Merci pour ta répondre
Malheureusement chaqu'un de mes fichiers sont nommés au nom du client. J'ai utilisé une formule (FileSearch) pour extraire la liste des fichiers et pour m'extraire deux cellule, exemple Feuil1 R15C3 = C15 et R15C5 = E15. mais dans ma liste je reçoit uniquement la première colonne (A) le nom des fichiers. La colonne B et C me donent comme info #REF!.
Ci-dessous la formule:
Sub Bouton1_QuandClic()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
NomDossier = "T:\Dossiers_clients"
If NomDossier = "" Then Exit Sub
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
Fichier = File.Name
x = x + 1
Range("A" & x) = Fichier
Range("B" & x) = ExecuteExcel4Macro _
("'" & NomDossier & "\[" & Fichier & "]Feuil1'!R15C3")
Range("C" & x) = ExecuteExcel4Macro _
("'" & NomDossier & "\[" & Fichier & "]Feuil1'!R15C5")
Next
End If
End Sub
Aurais-je une erreur dans mon code?
Merci pour ton aide
@plus Jean-Marc