<HTML>Salut ptit' coco (!)
Voici un méthode toute simple, à condition que les fichiers soient tous dans un répertoire unique, sinon il faut adapter...
Sub Ouverture()
Dim Message, Title, MyValue
Message = "Entrez le nom du fichier à ouvrir"
Title = "Ouverture de fichier"
MyValue = InputBox(Message, Title, Default)
Workbooks.Open Filename:="c:\Mes documents\" & MyValue & ".xls"
End Sub
(à arranger en fonction du répertoire avec le chemin d'accès complets au lieu de "c:\Mes documents\"
Bon Dimanche
@+Thierry</HTML>