Bonjour,

J'ai une appli en VBA qui doit faire appel à un fichier d'aide en pdf.

Lorsque j'utilise
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
ActiveWorkbook.FollowHyperlink Address:=ThisWorkbook.Path & "\Aide.pdf", NewWindow:=True
Il y a une fenêtre d'alerte indiquant qu'il est dangereux d'ouvrir ce fichier.
Après validation, le fichier s'ouvre dans Adobe Acrobat Reader.

Si j'utilise le code (trouvé sur ce forum)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Sub Tst()
    Dim sFichier As String, WsShell As Object
    sFichier = ThisWorkbook.Path & "\Aide.pdf"
    Set WsShell = CreateObject("WScript.Shell")
    WsShell.Run "AcroRd32 " & sFichier
    Set WsShell = Nothing
End Sub
Cette procédure ouvre bien Adobe Reader mais je rencontre l'erreur : Fichier introuvable

Qq aurait une idée ?

Cdt, NC