Nom de fichier

[GGPS58]

Bonjour à tout le forum,
Mon soucis :
J'ai un fichier excel contenant une chaine de caractères "AAAA".
J'ai également un répertoire "Toto" avec moultes fichiers excel.
J'aimerais pourvoir trouver le nom de fichier qui contient "AAAA" dans mon répertoire "Toto"
Les noms de fichiers peuvent être du type "AAAABBBB.xls" ou "BBAAAACC.xls" ou "BBBBAAAA.xls". C'est a dire que la chaine "AAAA" peut être n'importe ou dans le nom du fichier.

D'avance merci de votre aide.

 

[GIBI]

Re : Nom de fichier

Bonjour,

tu peux utiliser la fonction rechercher d'Excel

With Application.FileSearch
.NewSearch
.LookIn = "le chemin"
.SearchSubFolders = True
.Filename = "*AAAA*.*"

If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
' MsgBox "There were " & .FoundFiles.Count &" file(s) found."
NbF = .FoundFiles.Count
For L = 1 To NbF
Fic = .FoundFiles(L)
'traitement d'un fichier
Application.StatusBar = L & " / " & NbF
Next L
Else
MsgBox "Je n'ai trouvé aucun fichier"
End If
End With



GIBI