Ouverture fichier pdf en VBA

Bonjour,

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

Lorsque j'utilise

Code:

---

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:

---

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

De mon côté, les deux solutions fonctionnent.

Salut, pour le message lié aux hyperliens voir Comment faire pour activer ou désactiver les messages d'avertissement de lien hypertexte dans les programmes Office 2007 Office 2010
Pour le 2nd code, aller dans les préférences du Reader : Protection (renforcée) et décocher "Activer le mode protégé au démarrage"

Merci.
Réponse claire et précise.

Cdt, NC