Sub ouvre()
chemin = InputBox("Indiquer le répertoire")
sem = InputBox("Indiquer la semaine")
With Application.FileSearch
.LookIn = chemin
.FileType = msoFileTypeExcelWorkbooks
.Filename = "*" & sem & "*"
.Execute
If .FoundFiles.Count = 0 Then MsgBox "auncun fichier trouvé"
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Next
End With
End Sub