Une recherche .... URGENT

Réponse acceptée !
Salut,

J'ai ecrit ce qui suit directement  ici donc pas testé mais devrait etre quelque chose comme ça :

Dim CheminNomEtDate() As String, NbFichier As Long, i As Long
With Application.FileSearch
        .NewSearch 'nouvelle recherche
        .LookIn = "c:\Mes Documents" 'dans le repertoire :
        .FileName = "*test*" 'chaine recherché sur les nom de fichiers
        .SearchSubFolders = True 'dans les sous repertoire ? oui
        .Execute 'lancement de la recherche
       NbFichier = .FoundFiles.Count 'combien de fichier trouvé ?
       If NbFichier > 0 Then 'si au moins un fichier trouvé
           Redim CheminNomEtDate(1 to .FoundFiles.Count, 1) 'on dimensionne notre variable tableau
       Else 'si pas de fichier trouvé
           Msgbox "Aucun fichier Trouvé ! "
           .LookIn = "" 'variable percitente doit vider etre si l'on ne veut pas ce retrouvé a chercher dans le chemin precedent
           Exit Sub 'pas de fichier donc on arrete tout... snif!
       End If
       For i = 1 to NbFichier 'on rempli notre tableau avec les infos sur les fichier trouvé
           CheminNomEtDate(i, 0) = FoundFiles(i) 'le chemein +le nom
           CheminNomEtDate(i, 1) = FileDateTime(.FoundFiles(i)) 'la date
       Next i
       .LookIn = "" 'voir plus haut
End With

Voila

A+