Discussion :

[graphikris]

Bonjour,
je cherche le bon terme pour ouvrir un fichier Pdf a partir d'une macro Excel.

Voici le code que je présumais correct mais qui n'ouvre pas Acrobat Reader

Code :

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

Set AcApp = CreateObject("Acrobat.application")

[kiki29]

Salut, à adapter à ton contexte

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
 
Sub Tst()
Dim sFichier As String, WsShell As Object
    sFichier = "C:\.....\Essai.pdf"
    Set WsShell = CreateObject("WScript.Shell")
    WsShell.Run "AcroRd32 " & sFichier
    Set WsShell = Nothing
End Sub

Il me semble qu'en plus cela à l'avantage d'éviter l'avertissement sur les fichiers PDFs comme n'étant pas sûrs.

[Marc-L]

Bonjour,

utiliser DocOpen pour n'importe quel type de document dont l'extension est bien enregistrée dans les associations de Windows …

______________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

______________________________________________________________________________________________________
Je suis Paris, Charlie, …

[graphikris]

merci a vous je vais tester

[graphikris]

Bonjour,

utiliser DocOpen pour n'importe quel type de document dont l'extension est bien enregistrée dans les associations de Windows …

______________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

______________________________________________________________________________________________________
Je suis Paris, Charlie, …

Test non concluant. Bloque tjrs.

[Marc-L]

Dans ce cas utiliser la méthode Workbook.FollowHyperlink …



______________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[graphikris]

Bjr MARC L

je met donc ce code dans Workbook

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
DocOpen (Fichier$)
    On Error Resume Next
    CreateObject("WScript.Shell").Run _
    CreateObject("Scripting.FileSystemObject").GetFile(Fichier).ShortPath
 
End Sub

mais ensuite que dois je modifier dans mon code cité dans ce post ?
http://www.developpez.net/forums/d15...-vers-doc-pdf/