Je cherche comment lister les onglets d'un fichier Excel dans un tableau et de facon automatique
exemple j'ai un fichier avec 50 feuilles et je veux recuperer tous les noms de feuille dans un tabeau de la premiere feuille

à l'aide la macro:
--------
Attribute VB_Name = "TypeFeuillesClasseur"
 
'liste toutes les feuilles d'un classeur et leur type
'(y compris les feuilles cachées)
'les différents types de feuille peuvent être :
'  - Worksheet (feuille de calcul)
'  - Chart (feuille de graphique)
'  - DialogSheet (boite de dialogue Excel 5)
'  - Excel4MacroSheet (feuille macro Excel 4)
'  - Excel4IntlMacroSheet (feuille macro internationale Excel 4)
 
Sub ListSheetTypes()
'd'après Rob Bovey, mpep
Dim objSheet As Object
Dim szType As String, sousType As String
   
  Sheets.Add
  For Each objSheet In ActiveWorkbook.Sheets
    i = i + 1
    Cells(i, 1) = objSheet.Name
    szType = TypeName(objSheet)
    If szType = "Worksheet" Then
      Select Case objSheet.Type
        Case xlWorksheet
          sousType = szType
        Case xlExcel4MacroSheet
          sousType = "Excel4MacroSheet"
        Case xlExcel4IntlMacroSheet
          sousType = "Excel4IntlMacroSheet"
      End Select
      Cells(i, 2).Value = sousType
    Else
      Cells(i, 2).Value = szType
    End If
    Next objSheet
     
End Sub
 
-------
 
Merci à Rob Bovey