Je n'arrive pas à ouvrir les fichiers trouvées lors de ma recherche, par contre si je n'en spécifie que un seul cela fonctionne, je pense qu'il manque un as String mais j'ai essyé mais cela ne fonctionne pas !
 
Voici mon code :
 
Private Sub CommandButton1_Click()
 
 
  With Application.FileSearch
'D abord réinitialiser les critères (Attention : Le LookIn ne se réinitialise pas comme ça)
    .NewSearch
'Pour mettre à jour la liste des dossiers, au cas ou on viendrait de créer un nouveau dossier par VBA :
'    .RefreshScopes
'Dossier(s) de recherche :
    .LookIn = ActiveWorkbook.Path
   ' "C:\Documents and Settings\Jagwar\Bureau\stage IUEM\etalons mis ss la nvelle forme\ex\Fichiers excel"
'Fichiers à rechercher (J'ai essayé plusieurs formes "a*.php;C*.*" mais ça ne marche pas:
'.FileName = "*.*" recherche tous les fichiers
'.Filename = "C.php" recherche tous les fichiers qui contiennent c ou C quelque par dans leur nom, et qui se terminent par .php ou .PHP
    .Filename = "*.xls"
'Le type de fichiers qu'on recherche. Ici, tous, et de toute façon, on a déjà filtré avec .FileName. Mais on peut par exemple indiquer msoFileTypeExcelWorkbooks qui va extraire tous les fichiers Excelé (XLA, XLT, XLS, XLW)
    .FileType = msoFileTypeAllFiles
'Tous les fichiers créés ou modifiés cette semaine :
 '   .LastModified = msoLastModifiedThisWeek
'On va rechercher dans les sous dossiers d'atelier et Toto :
'    .SearchSubFolders = True
'C est parti :
    .Execute
'Une boucle traditionnelle pour parcourir les fichiers trouvés. FoundFiles(Ctr) n'a pas de propriétés. Par exemple, pas question d'avoir le nom du fichier sans le dossier, ou même sa date de création (en tout cas par la méthode FoundFiles)
    For Ctr = 1 To .FoundFiles.Count
      Cells(Ctr, 1) = .FoundFiles(Ctr)
Workbooks.OpenText Filename:= .FoundFiles(Ctr) 'cela fonctionne par contre quand je met C:\temp.xls'
        , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
        :=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, Semicolon:= _
        False, Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array( _
        1, 1), Array(2, 1))
 
    Next
  End With
 
End Sub

Cela ne fonctionnait pas ce matin mais maintenant oui.  Donc problème résolu

Résolu sans rien faire ... j'vais essayer aussi !!!!

VBA pour les nuls XD