bonjour Loic
Direction = Dir(ThisWorkbook.Path & "\*.xls")
Do While Len(Direction) > 0
NbFichiers = NbFichiers + 1
ReDim Preserve Tableau(1 To NbFichiers)
Tableau(NbFichiers) = Direction
Direction = Dir()
Loop
permet de lister les fichiers du repertoire cible . les nom sont enregistrés dans un tableau dynamique nommé"Tableau"
Set Cn = CreateObject("ADODB.Connection")
Set Cat = CreateObject("ADOX.Catalog")
Fichier = ThisWorkbook.Path & "\" & Tableau(X)
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Fichier & ";Extended Properties=Excel 8.0;"
Set Cat.ActiveConnection = Cn
For Each xlSheet In Cat.Tables
If xlSheet.Name = "Page_Garde$" Then
Nb = Nb + 1
ReDim Preserve Tableau2(1 To Nb)
Tableau2(Nb) = Tableau(X)
End If
Next
Set Cn = Nothing: Set Cat = Nothing
permet de controler dans chaque classeur , si un onglet est nommé "Page_Garde" sans ouvrir le classeur . si c'est le cas
le nom du classeur est enregistré dans "Tableau2"
j'espere que cela pourra t'aider .
bon apres midi
michel