Sub ListeFeuillesClasseurFerme()
Dim Cn As ADODB.Connection
Dim Fichier As String
Dim xlSheet As Variant
'Définit le classeur fermé servant de base de données
Fichier = "C:\classeur1.xlsx"
Set Cn = New ADODB.Connection
Set cat = CreateObject("ADOX.Catalog")
'--- Connexion ---
With Cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
& Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
.Open
End With
'-----------------
Set cat.ActiveConnection = Cn
For Each xlSheet In cat.tables
Resultat = Resultat & xlSheet.Name & vbCrLf
Next
MsgBox Resultat
'--- Fermeture connexion ---
Cn.Close
Set Cn = Nothing
Set cat = Nothing
End Sub