Papaye

Bonjour deni29,

Perso, j'utilise :

With Application.FileSearch
.NewSearch
.LookIn = Chemin
.SearchSubFolders = True
.Filename = 'Données.xls'
.MatchAllWordForms = False
.FileType = msoFileTypeAllFiles
If (.Execute() > 0) Then NomFic = .FoundFiles(1)
End With

Bon courage,

Papaye