bonjour Iffic
tu peux tester cet exemple pour boucler sur les feuilles d'un classeur fermé
Sub boucleFeuillesFichierFerme()
'd'après Ramesh, microsoft.public.data.ado
Dim XlConnect As Object, XlCatalog As Object
Dim Fichier As String, Resultat As String
Dim Feuille As Object
Fichier = "C:\Documents and Settings\michel\fichier test.xls"
Set XlConnect = CreateObject("ADODB.Connection")
Set XlCatalog = CreateObject("ADOX.Catalog")
XlConnect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Fichier & _
";Extended Properties=Excel 8.0;"
Set XlCatalog.ActiveConnection = XlConnect
For Each Feuille In XlCatalog.Tables
Resultat = Application.WorksheetFunction.Substitute(Feuille.Name, "$", "")
Resultat = Application.WorksheetFunction.Substitute(Resultat, "'", "")
MsgBox Resultat
'ListBox1.AddItem Resultat
Next
End Sub
bonne journée
MichelXld