Ouvrir document PDF

[wizard0147]

Bonjour à tous,

J'ai créé le code suivant afin d'ouvrir un document PDF.

Sub Open_file1()

Dim Fichier As String

Sheets("Home").Select

Producteur = Range("C16").Text
Reference = Range("C18").Text

Fichier = "G:\Commercial\Produits\Fiches de spécifications\" & Producteur & "\" & Dir("G:\Commercial\Produits\Fiches de spécifications\" & Producteur & "\" & Reference & ".pdf")

ThisWorkbook.FollowHyperlink Fichier

End Sub

Toutefois, mon problème est que ce code permet à un utilisateur d'ouvrir ce document s'il existe. En effet, il peut arriver que le document n'existe pas.

Mon problème est le suivant :
Lorsque le fichier existe, pas de problèmes
Lorsque le fichier n'existe pas, Excel ouvre alors le dossier cible. Je souhaite supprimer cette ouverture et à la place ouvrir une MsgBox.

J'ai donc modifié le code comme suit

If Dir(Fichier) <> "" Then
ThisWorkbook.FollowHyperlink Fichier

Else
MsgBox "Le fichier recherché n'existe pas"
End If

Mais ça ne change rien à mon problème

Merci pour votre aide

PS : Désolé mais je débute en vba et mon code vient souvent de forums

 

[wizard0147]

Re : Ouvrir document PDF

Finalement, j'ai trouvé la solution grâce à ce post :
https://www.excel-downloads.com/threads/test-existence-dun-fichier-avec-vba.96119/

Bonne journée