Sub Test()
Dim Tbl() As String
Dim Chemin As String
Dim Ctritere As String
Dim Extension As String
Dim I As Integer
Chemin = "D:\Mon dossier\" '<-- le dossier doit exister !
Ctritere = "toto"
Extension = ".xls"
'appel de la fonction...
'seuls les classeurs contenant le critère et l'extension précisée seront retournés, à adapter...
Tbl() = RecupFichiers(Chemin, Ctritere, Extension)
'si le tableau a été initialisé...
If Not Not Tbl Then
For I = 1 To UBound(Tbl)
Debug.Print Tbl(I)
'le code de déplacement...
Next I
End If
End Sub
Function RecupFichiers(Chemin As String, Critere As String, Extension As String) As String()
Dim TableauFichiers() As String
Dim Fichier As String
Dim I As Integer
If Left(Extension, 1) <> "." Then Extension = "." & Extension
Fichier = Dir(Chemin & "*" & Critere & "*" & Extension)
Do While (Len(Fichier) > 0)
I = I + 1
ReDim Preserve TableauFichiers(1 To I)
TableauFichiers(I) = Fichier
Fichier = Dir()
Loop
RecupFichiers = TableauFichiers()
End Function