Changer le nom d'onglets d'un classeur avec la valeur d'une cellule

Bonjour,

N'étant pas très fort en VBA, je requiers votre aide.

Voilà mon problème. J'ai un classeur qui comporte environ 80 onglets, un par personne.

Dans chacun d'eux il y a le Nom (en C9) et le Prénom (en E9) d'une personne.

Ainsi j'aimerais trouver une macro qui renomme chacun de ses onglets par "Fiche individuelle Prénom Nom".

Cela se semple à priori peu compliqué mais je n'ai rien trouvé sur les forums.

Merci par avance ! Bonne Journée !

Bonjour Doui0101,

A essayer :

Sub changerNomOnglet()
    Dim Sh As Worksheet
    For Each Sh In Worksheets
        On Error Resume Next
        Sh.Activate
        Sh.Name = "Fiche individuelle " & Range("C9") & " " & Range("E9")
    Next Sh
End Sub

Cordialement,

Bonjour,

Ca marche très bien, j'ai pu me rendre compte que mon fichier avait un soucis d'ailleurs, merci !

Bonjour,

Le nombre de caractères pour un nom de feuille est limité à 31 caractères.

"Fiche individuelle " en comporte déjà 19. Cela signifie qu'il te reste 12 caractères pour le prénom et le nom !...

Remplacer peut-être "Fiche individuelle " par "FI".

Cdlt.

Bonjour,

Effectivement, j'avais oublié de détail. Merci !