Sub listeFeuillesClasseurFerme()
'necessite d'activer la reference Microsoft ActiveX Data Objects x.x Library
'necessite d 'activer la reference Microsoft ADO Ext 2.7 for DLL ans Security
Dim Cat As ADOX.Catalog
Dim Fichier As String, xConnect As String, Resultat As String
Dim Cn As ADODB.Connection
Dim Feuille As ADOX.Table
Fichier = 'C:\Documents and Settings\michel\dossier\excel\Classeur1.xls'
xConnect = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' & Fichier & ';' & _
'Extended Properties=Excel 8.0;' 'preparation connection
Set Cat = CreateObject('ADOX.Catalog')
Set Cn = CreateObject('ADODB.Connection')
Cn.Open xConnect
Set Cat.ActiveConnection = Cn
For Each Feuille In Cat.tables
'MsgBox Feuille.Name
Resultat = Application.WorksheetFunction.Substitute(Feuille.Name, '$', '')
MsgBox Application.WorksheetFunction.Substitute(Resultat, ''', '')
Next
Set Cn = Nothing
Set Cat = Nothing
End Sub