Help VBA

Discussion dans 'Web, design' créé par Tolk, 7 Décembre 2005.

Statut de la discussion:
Fermée.
  1. Offline
    Tolk Vieille branche
    Voilà je dois faire un truc tout con (enfin pour moi ca ne l'est pas :D ). C'est simplement ouvrir un fichier .pdf qui se trouve sur le réseau. J'arrive sans problème à browser pour le trouver mais j'ai besoin de l'action nécessaire pour l'ouvrir.
    J'ai essayer "FileSystemObject.OpenFile" mais ca ne fonctionne pas évidemment. Quelqu'un a une idée?
    Tolk, 7 Décembre 2005
    #1
  2. Offline
    La Poubelle Elite
    J'ai un truc tordu normalement, mais je vais voir si il y a pas plus simple
    La Poubelle, 7 Décembre 2005
    #2
  3. Offline
    PLoPLi Geek
    Si Acrobat est installé sur la machine, il doit être possible d'ajouter une références (VB Editor -> menu 'outils' -> 'références') à la librairie de fonction liées à Acrobat (chez moi, "Adobe Acrobat 7.0 Type Library")

    Ensuite, utilise les fonctions de cette libraire comme :

    Code:
    Dim test As New AcroAVDoc
    Dim test_app As New AcroApp
    Dim test_ret As Boolean
    
    test_ret = test_app.Show()
    test_ret = test.Open("chemin vers le document", "Nom de la fenêtre")
    test_ret = test.BringToFront()
    
    Chez moi, avec Office 2003, ca fonctionne ...
    PLoPLi, 7 Décembre 2005
    #3
  4. Offline
    Tolk Vieille branche
    Vais tester ca faut voir si la librairie est accessible on a encore la version 6

    J'ai essayé avec shell, il ouvre acrobat mais je trouve pas la syntaxe pour ouvrir ensuite le fichier.
    Tolk, 7 Décembre 2005
    #4
  5. Offline
    via shell, tu peux lancer le nom de fichier, il devrait lancer l'application adhoc (reader) pour le lire
    Jeffke_Avalon, 7 Décembre 2005
    #5
  6. Offline
    Tolk Vieille branche
    Non j'ai essayé marche pas. je crois qu'il faut l'application et le nom de fichier ensuite mais je touve pas la syntaxe.
    Tolk, 7 Décembre 2005
    #6
  7. Offline
    La Poubelle Elite
    http://www.meg.uct.ac.za/downloads/Aware/Authorware - Ideas.doc
    La Poubelle, 8 Décembre 2005
    #7
  8. Offline
    Tolk Vieille branche
    Merci pour le fichier mais ca ne fonctionne toujours pas
    Tolk, 8 Décembre 2005
    #8
  9. Offline
    ca :

    Option Explicit
    Private Sub CommandButton1_Click()

    Dim myerror As Double
    On Error GoTo myerr

    myerror = Shell("C:\Program Files\Adobe\Acrobat 6.0\Reader\acrord32 c:\jfk\moto\vfr.pdf", 1)


    myerr:


    End Sub

    ca marche mais c pas beau...
    Jeffke_Avalon, 8 Décembre 2005
    #9
  10. Offline
    Tolk Vieille branche
    Oui ca marche je viens juste de finir et j'ai fais exactement comme toi, j'allais indiquer comment faire mais tu as déjà donné la bonne réponse.
    J'ai cherché compliqué alors que c'était tout simple.
    Encore merci à ceux qui ont cherché pour moi.
    Tolk, 8 Décembre 2005
    #10
  11. Offline
    La Poubelle Elite
    Par contre, il est utile de chercher le chemin d'adobe avec la based de registre, c'est une api windows facile à utiliser.

    Si tu as besoin du code, il suffit de le demander
    La Poubelle, 8 Décembre 2005
    #11
Statut de la discussion:
Fermée.