Discussion :

[canard338]

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

[yoyof]

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

[kiki29]

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"

[canard338]

Merci.
Réponse claire et précise.

Cdt, NC