Ouvrir un pdf en VBA

[christian_noel]

Bonjour a tous,

Voici mon problème:

Je souhaiterai ouvrir un fichier au format "Pdf" a l'aide ce code...

Private Sub CommandButton1_Click()
Shell "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe C:\MonDocument.pdf", vbNormalFocus
End Sub

...Mais je voulais savoir si c'etait possible de lui donner le chemin "C:\MonDocument.pdf" à l'interieur d'une cellule ce qui me permettrai d'ouvrir n'importe quel document à l'aide d'un seul bouton.

Merci. (Ci joint voici le fichier d'exemple)

 

[jp14]

Re : Ouvrir un pdf en VBA

Bonjour

Ci dessous le code modifié
Shell "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe " & Sheets("Feuil1").Range("e6").Value, vbNormalFocus

Le nom se trouve dans la cellule e6

JP

 

[christian_noel]

Re : Ouvrir un pdf en VBA

Bonjour JP,

Dit moi a tu essayé le code que tu ma donné? parceque lorseque je clic sur le bouton, il me dit "fichier introuvable" alors que mon fichier est bien présent.

Est ce moi qui fait une mauvaise manipulation?

Merci d'avance!!!

 

[jp14]

Re : Ouvrir un pdf en VBA

Bonsoir

J'ai fait un test avec le code envoyé, comme j'ai Reader 9.0 j'ai modifié le code car j'avais le même problème.

Il faut modifier le début du code et mettre dans la cellule le nom et le chemin.
Je viens de "retester" pas de problème.

JP

 

[philmascio]

Re : Ouvrir un pdf en VBA

Il y a (beaucoup) plus simple:

ActiveWorkbook.FollowHyperlink Address:=chemin & fichier