Lien vers fichier .pdf

[Sophie]

Bonjour à toutes et à tous,

Est-il possible d'adapter le code suivant qui me permet d'ouvrir un document word afin d'ouvrir un fichier PDF ?

Set wrdApp = CreateObject('Word.Application')
On Error GoTo line1
Set wrdDoc = wrdApp.Documents.Open('C:\\mon_fichier.doc')
wrdApp.Visible = True
Exit Sub
line1:
MsgBox 'Le fichier 'Manuel technique Maintenance bactério' est introuvable !', vbOKOnly + vbExclamation, 'Attention'
MsgBox 'Veuillez placer le fichier dans le répertoire 'C:\\mon_fichier'', vbOKOnly + vbExclamation, 'Attention'

Je vous remercie beaucoup pour votre aide.

Bonne journée

Sophie

 

[MichelXld]

bonjour

tu peux tester

ThisWorkbook.FollowHyperlink 'C:\\\\\\\\leFichier.pdf'


bonne journée
MichelXld

 

[Sophie]

Bonjour Michel,

Ta solution fonctionne comme je le veux. Je te remercie beaucoup.

Sais tu comment je pourrai enchaîner derrière avec une MsgBox si le fichier ne se situe pas où il faut ?

Merci pour ton aide précieuse car je suis débutante dans le domaine.

Bonne journée

Sophie

 

[MichelXld]

rebonjour Sophie

dans ce cas tu peux essayer


Dim Fichier As String

Fichier = 'C:\\\\\\\\leFichier.pdf'
If Dir(Fichier) = '' Then
MsgBox 'Fichier inexistant'
Else
ThisWorkbook.FollowHyperlink Fichier
End If


bon week end
MichelXld