Discussion :

[etorria]

Bonjour !

Tout est dit dans le titre !

Si vous avez une solution, je suis preneur !

Cdt,

Etorria

[Le Pierre]

bonjour

Pour coller le nom de l'onglet dans la cellule B2 par exemple, voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    NomOnglet = ActiveSheet.Name
    Range("B2").Value = NomOnglet

à plus

[etorria]

bonjour

Pour coller le nom de l'onglet dans la cellule B2 par exemple, voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    NomOnglet = ActiveSheet.Name
    Range("B2").Value = NomOnglet

à plus

Merci Le Pierre !

Et si j'ai plusieurs onglets, je dois procéder comment ?
Par exemple j'ai 10 onglets, et leur nom doit être copié dans la cellule F1.
N'y a t-il pas un code qui me permettrait d'effectuer cette procédure en une seule fois ?

Cdt,

Etorria

[Jean-Pierre49]

Une piste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        For CompA = 1 To Sheets.Count
            Range("A1").Value = Sheets(CompA).Name
        Next CompA