Sub test()
Dim NbFile As Integer
'manipule le système de fichiers de Windows
Set Fso = CreateObject("Scripting.FileSystemObject")
'chemin du dossier contenant les fichiers
Dossier = InputBox("Veuillez saisir le chemin du dossier des fichiers." & vbCrLf & vbCrLf)
'Lit les fichiers du dossier
Set objFiles = Fso.GetFolder(Dossier)
'Boucle sur les fichiers
For Each Item In objFiles.Files
If Item.Name Like "*_nomfichier.xlsb" Then
Workbooks.Open Item: Exit Sub
End If
Next
End Sub