Help VBA

Statut
N'est pas ouverte pour d'autres réponses.

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?
 

La Poubelle

Pou'r allé Danché
J'ai un truc tordu normalement, mais je vais voir si il y a pas plus simple
 

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 ...
 
1er
OP
Tolk

Tolk

Vieille branche
PLoPLi a dit:
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 ...
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.
 
via shell, tu peux lancer le nom de fichier, il devrait lancer l'application adhoc (reader) pour le lire
 
1er
OP
Tolk

Tolk

Vieille branche
Jeffke_Avalon a dit:
via shell, tu peux lancer le nom de fichier, il devrait lancer l'application adhoc (reader) pour le lire
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.
 
1er
OP
Tolk

Tolk

Vieille branche
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...
 
1er
OP
Tolk

Tolk

Vieille branche
Jeffke_Avalon a dit:
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...
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.
 

La Poubelle

Pou'r allé Danché
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
 
Statut
N'est pas ouverte pour d'autres réponses.
Haut