Microsoft 365 nommer automatiquement les différentes feuilles d'un dossier

[Hdv95]

Bonjour à toutes et à tous

Je fais appelle à vous afin de nommer automatiquement les différents feuilles d'un dossier selon une liste de nom contenue dans une 1ère feuille
ex : feuille 1 (A1:A5)
A1 = Nom 1
A2 = Nom 2
A3 = Nom 3
A4 = Nom 4
A5 = Nom 5

le nom de la feuille 1 sera donc "Nom 1" : le nom de la feuille 2 sera donc "Nom 2" : le nom de la feuille 3 sera donc "Nom 3" etc .....

Cela est sans doute très simple, mais j'ai des lacunes !

Je vous remercie par avance pour le temps que vous voudrez bien consacrer à m'aider.

Très cordialement

 

[laurent950]

Bonsoir @Hdv95

Sub RenommerFeuillesDepuisListe()
    Dim wsListe As Worksheet
    Dim i As Long
    Dim nomFeuille As String
    ' La liste des noms est en Feuil1, colonne A (A1:A5)
    Set wsListe = Worksheets(1) ' feuille contenant la liste des noms
    i = 1
    Do While wsListe.Cells(i, 1).Value <> ""
        nomFeuille = wsListe.Cells(i, 1).Value
        ' Renomme la feuille i
        Worksheets(i).Name = nomFeuille
        i = i + 1
    Loop
End Sub

 

[Hdv95]

Bonsoir @Hdv95

Sub RenommerFeuillesDepuisListe()
    Dim wsListe As Worksheet
    Dim i As Long
    Dim nomFeuille As String
    ' La liste des noms est en Feuil1, colonne A (A1:A5)
    Set wsListe = Worksheets(1) ' feuille contenant la liste des noms
    i = 1
    Do While wsListe.Cells(i, 1).Value <> ""
        nomFeuille = wsListe.Cells(i, 1).Value
        ' Renomme la feuille i
        Worksheets(i).Name = nomFeuille
        i = i + 1
    Loop
End Sub

Merci beaucoup