Bonjour

Via un code vba je tente de faire une recherche de fichier dans un dossier excel via un inputbox dans lequel on met le nom du fichier recherché. Le code fonctionne pour le cas ou le fichier est présent dans le dossier

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub open_file()
 
Dim opened_trade As String
 
opened_trade = InputBox("Entrer la reference recherché")  ‘
 
ChDir "C:\test\dossier1"    ‘définition du chemin d’accès
 
Workbooks.Open Filename:=opened_trade
 
 
End Sub
J’aimerai pouvoir établir une condition qui prend en compte l’éventualité que le fichier n’existe pas, une condition du type

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
IF le fichier existe dans le dossier THEN 
Open le fichier 
ELSE le fichier n’existe pas dans le dossier THEN 
MsgBox ‘’ aucun fichier trouvé ‘’
END IF
Je n’arrive pas à définir cette condition
Comment puis-je faire ?

Merci d’avance