Le nom de la feuille dans une cellule VBA excel
Bonjour,
Ma modeste contribution pour inscrire le nom de toute les feuilles dans la cellule B1.
Sub NomFeuille()
Dim Ws As Worksheet
'Active la première feuille du classeur.
Sheets(1).Activate
'Boucle sur les feuilles du classeur.
For Each Ws In Worksheets
'Active la feuille et Inscrit sont nom dans la cellule [B1].
Ws.Activate
[B1] = ActiveSheet.Name
'Passe à la feuille suivante.
Next Ws
'Reviens à la première feuille du classeur.
Sheets(1).Select
'Fin de la procédure.
End Sub
Ma modeste contribution pour inscrire le nom de toute les feuilles dans la cellule B1.
Sub NomFeuille()
Dim Ws As Worksheet
'Active la première feuille du classeur.
Sheets(1).Activate
'Boucle sur les feuilles du classeur.
For Each Ws In Worksheets
'Active la feuille et Inscrit sont nom dans la cellule [B1].
Ws.Activate
[B1] = ActiveSheet.Name
'Passe à la feuille suivante.
Next Ws
'Reviens à la première feuille du classeur.
Sheets(1).Select
'Fin de la procédure.
End Sub
