Quel est le code pour afficher un fichier PDF

C'est con, mais je ne trouve pas.

(De manière indépendante de la version de Acrobat dont je dispose, Reader ou full).

Je cherche un truc bete du genre :

lance "monficher.pdf".

j'ai trouvé du code dans ce forum qui dit de faire

Code:

---

1 2	ThisWorkbook.FollowHyperlink PdFFullName

---

mais ca ne fait rien, ou ca plante excel. :aie:

Bonjour

Pour ouvrir un fichier Pdf? si j'ai bien compris

J'utilise

Code:

---

1 2 3 4 5

Dim Programme As String Dim CheminPdf As String CheminPdf = "C:\.........\........\............" Programme = "C:\Program Files\Adobe\Acrobat 6.0\Acrobat\Acrobat" ' a verifier l'éxécutable Shell Programme + " " + CheminPdf & "\monfichier.PDF", vbMaximizedFocus

---

Salut et merci,

j'ai trouvé plus simple, sans donner le nom du programme qui ouvre.
je l'avais déjà fait il y atrès longtemps mais j'avais oublié.:resolu:

Tu fais

Code:

---

1 2	ret = Shell("explorer " & PdFFullName, vbNormalFocus)

---

:yaisse2:

Merci Godzestla

Si je fais cela je l'ouvre das internet explorer:cry:

Est normal?

Mon but étant de voir le fichier formatté comme il doit,

"ça le fait", alors peu importe le vin pourvu qu'on ai l'ivresse.

NB : ca marche pour tous les types de fichiers pour lesquels l'extension est connue du système.

Cool non ?;)

Re,

Pour finaliser ta première idée...

Code:

---

ActiveWorkbook.FollowHyperlink Address:="C:\...\...\MonDoc.pdf", NewWindow:=True

---

Cordialement

Sorry Spitnolan,

mais ce code ne fonctionne pas chez moi.

Code:

---

1 2 3 4

Sub test_hyp() ActiveWorkbook.FollowHyperlink Address:="C:\Documents and Settings\a477453\Desktop\D-PUR-01-02 Kostenstellenverzeichnis 10-10-07.pdf", NewWindow:=True End Sub

---

Il me donne l'erreur suivante :

Citation:

---

Runtime error '-2147221021(800401e3)':
An unexpected error has occured

---

au premier appel et puis au second

Citation:

---

Runtime error '429':
ActiveX component can't create object

---

et puis Excel se plante

je reste à ma solution

Code:

---

1 2	ret = Shell("explorer " & PdFFullName, vbNormalFocus)

---

...détail

Re,

C'est peut être parce que ta version ne parle pas allemand....:mouarf:

Plus sérieusement, et à tout hasard, peut être un pb de référence VB :
Sur le classeur de test j'ai activé :
Microsoft Excel 11.0 Object Library
Microsoft office 11.0 Object Library
sinon aucune idée...

Cordialement

Tu l'as dit bouffi.

ici c'est en plein chez les germanos.....

J'ai regardé les références, et rien n'y fait.

Tu as quelquechose pour Adobe ?