Parcours de feuille excel d'un classeur fermé

[alaaepes]

Bonjour à tous,
Je suis entrain de coder une macro qui me réalise une synthése de plusieurs fichiers excel. Le probleme que j'ai c'est que chaque fichier contient plusieurs feuille.. et étant donné que c'est des fichiers fermés je voudrais savoir comment je peux réaliser le traitement pour chaque feuille, surtout que je n'établie pas de connexion.. j'utilise la fameuse ExecuteExcel4Macro.
Voici le bout de code:

Dim FSO As Scripting.FileSystemObject
Dim DirSource As Scripting.Folder
Dim Fichier As Scripting.File
Dim r As Long
Dim le_local As String

Dim Feuille As Worksheet
Dim Classeur As Workbook

Set FSO = New Scripting.FileSystemObject
Set DirSource = FSO.GetFolder(NomDirSource)

NbTrames = 0
r = Sheets("recap").Range("A65536").End(xlUp).Row + 1


'Balayage du dossier

For Each Fichier In DirSource.Files
If Right(Fichier.Name, 5) = ".xlsx" Then

Set Classeur = "'" & ThisWorkbook.Path & "\" & "[" & Fichier.Name & "]"
For Each Feuille In Classeur.Sheets
c'est là ou j'ai ke probleme ..



Merci d'avance