Nommer automatiquement onglets excel

sofienexcel -  
Bonjour,

J'utilise Excel 2010, dans un rapport de 50 onglets je souhaite les renommer tous à la fois, par exemple feuil1: 012013, feuil2, 022013, ... y'a t-il un code vba qui modifie le nom de chaque onglet en se basant sur les données d'une feuille 51 (feuille source), rien n'est impossible
merci

1 réponse

  1.  via55
    Bonsoir

    Avec les noms à donner en A1:A50 de la 51eme feuille : 
    Sub renommer()
For n = 1 To 50
Sheets(n).Name = Sheets(51).Range("A" & n)
Next
End Sub


    Cdlmnt
    Via
    1
    1. sofienexcel Auteur
      parfait ça fonctionne bien, merci beaucoup via55
      0