Ouvrir document PDF

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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