chemin = ThisWorkbook.Path & "\"
[COLOR="Red"]saisie_fichier:[/COLOR]
reponse = InputBox("Veuillez entrer le nom de la base :", "Nom de la base", "REF_AUTO_2007")
If reponse = "" Then Exit Sub
If ExisteFichier(chemin & reponse & ".xls") = False Then MsgBox ("votre fichier ne porte pas ce nom ou est situé dans le mauvais répertoire")[COLOR="Red"]: GoTo saisie_fichier[/COLOR]
Application.ScreenUpdating = False
Workbooks.Open Filename:=(chemin & reponse & ".xls")