Discussion :

[Godzestla]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    ThisWorkbook.FollowHyperlink PdFFullName

mais ca ne fait rien, ou ca plante excel.

[Jean-Pierre49]

Bonjour

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

J'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Godzestla]

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é.

Tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Pierre49]

Merci Godzestla

Si je fais cela je l'ouvre das internet explorer

Est normal?

[Godzestla]

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 ?

[spitnolan]

Re,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement

[Godzestla]

Sorry Spitnolan,

mais ce code ne fonctionne pas chez moi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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

au premier appel et puis au second

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

et puis Excel se plante

je reste à ma solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Godzestla]

...détail

[spitnolan]

Re,

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

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

[Godzestla]

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 ?