wizard0147
XLDnaute Occasionnel
Bonjour à tous,
J'ai créé le code suivant afin d'ouvrir un document PDF.
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
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
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