Dans ce cas il faut utiliser la fonction d'ouverture de fichier en prenant comme variable le numéro de dossier recherché.
Donc tu définis la variable en fonction de ce que l'operateur recherche.
Par exemple en utilisant le code
Sub ouvrir()
Dim classeur As String
'Demander quel fichier ouvrir
classeur = InputBox("Quel fichier voulez-vous ouvrir?", "Question")
'Spécifier ce qui faut faire en cas de fichier inexistant ou d'erreur
On Error GoTo error
'Ouvrir le fichier dans le chemin spécifié en gardant la variable classeur pour que ce soit le bon fichier qui s'ouvre
Workbooks.Open ("C:\Temp\" & classeur & ".xls")
'Si tout s'est bien passé aller à la fin du sub
GoTo ok
'En cas d'erreur, spécifier que le fichier est introuvable
error:
MsgBox ("Le fichier est introuvable, veuillez vérifier la saisie")
ok:
End Sub
Evidemment il faut l'adapter à ta situation. Dans ton cas, si tu veux te servir des infos du fichier ouvert pour remplir ton fichier actif, il te faut faire des copier/coller spécifiques des champs entre les différents classeurs et les feuilles.