Nommer des feuilles automatiquement

[Hpotter]

Bonjour à tous,

J'ai un fichier Excel avec 52 feuilles et je dois les nommer S1, S2, S3, etc. jusqu'à S52.

Connaissez-vous un moyen de lfaire ce travail automatiquement, car prendre les feuilles une par une est assez fastidieux.

Je vous en remercie par avance

 

[Pierrot93]

Re : Nommer des feuilles automatiquement

Bonjour,

regarde ceci, si cela peut t'aider, mais il y aura peut être lieu d'effectuer certains tests... nombre de feuilles et si nom de feuille déjà utilisé... A voir selon ton projet

Option Explicit
Sub test()
Dim i As Byte
For i = 1 To 52
    Sheets(i).Name = "S" & i
Next i
End Sub

bon après midi
@+

 

[Hpotter]

Re : Nommer des feuilles automatiquement

Bonjour Pierrot et merci beaucoup ça fonctionne super bien.
Bonne fin d'après-midi
a+