Récupéré le nom des onglets d'un classeur

Bonjour,

Je reviens vers vous vu que vous résolvez toujours mais problème.

Voila je voudrais récupérer le nom des onglets de mon classeur et les inséré dans le tableau d'une autre feuille nommé récap , ou le nom des onglet sont les un en dessous des autres. Sachant que chaque moi il y aura des onglets en plus ou en moins.

Pouvais vous m'aidez ?

Salut

Sub titre_onglet()

Cells(1, 1) = Sheets(1).Name

End Sub

Cordialement

Bonjour,

Pour le principe

Option Explicit
Private Sub Workbook_Open()
    Sommaire
End Sub

Option Explicit
Option Private Module
Public Sub Sommaire()
Dim ws As Worksheet, i As Integer, tmp As String
    Application.ScreenUpdating = False
    Set ws = Worksheets("Accueil")
    With ws
        .Cells.Clear
        .[A1] = "Sommaire"
        .[A2].Select
        For i = 2 To Worksheets.Count
        tmp = CStr(Sheets(i).Name)
        .Hyperlinks.Add _
            Anchor:=Selection, _
            Address:="", SubAddress:="'" & tmp & "'" & "!A1", _
            TextToDisplay:=tmp
            ActiveCell.Offset(1, 0).Select
        Next i
    End With
    Set ws = Nothing
End Sub

Nickel sa fonctionne mais par contre sa me supprime automatiquement mon tableau qui est sur ma feuille et qui commence en colonne B1

Y a t-il un moyen pour que mes onglets ce recopier en colonne A sans supprimer mon tableau qui commence en colonne B

Re,

Tu modifies, par exemple:

.Cells.Clear

par:

.[A:A].Clear

Sinon,

Génial sa fonctionne.

Par contre encore une petite chose mais onglet porte comme nom 003234, 003455, 003389

La macro me donne bien le nom de mais onglet mais ne m'insert pas le 00 qu'il y a devant est-il possible de les faire apparaître?

Re,

Option Explicit
Option Private Module
Public Sub Sommaire()
Dim ws As Worksheet, i As Integer, tmp As String
    Application.ScreenUpdating = False
    Set ws = Worksheets("Accueil")
    With ws
        .[A:A].Clear
        '.[A1] = "Sommaire"
        .[A2].Select
        For i = 2 To Worksheets.Count
        tmp = CStr(Sheets(i).Name)
        .Hyperlinks.Add _
            Anchor:=Selection, _
            Address:="", SubAddress:="'" & tmp & "'" & "!A1", _
            TextToDisplay:=tmp
            ActiveCell.NumberFormat = "000000"
            ActiveCell.Offset(1, 0).Select
        Next i
    End With
    Set ws = Nothing
End Sub

Sa marche merci,

par contre dans le reste de mon tableau je me sert de cette colonne pour allé récupéré des infos dans les onglets concerné et quand je regarde ma formule il ne li pas les zéro devant les nombres ( 003564) alors qu'il apparaisse .

Pourquoi?

Désolé tien la voici

Re