Copie par macro d'une cellule avec variable pour nommer une feuille

[Distrofi]

Bonjour,

Je cherche à nommer les feuilles d'un fichier Excel par une macro qui copie une cellule avec une donnée variable sur la feuille elle même. Le problème est que la macro prend en dur le contenu de la cellule et non pas le resultat de la formule. Lorsque je modifie la feuille "base de données" la macro nomme la feuille avec l'ancienne variable et non la nouvelle

Sheets("Feuil2").Select
Selection.Copy
Sheets("Feuil2").Select
Sheets("Feuil2").Name = "01CC"
Sheets("Feuil3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil3").Select
Sheets("Feuil3").Name = "01CR"
Sheets("Feuil4").Select

Il faudrait qu'à la place de "01CC" et "01CR" il y ait une variable de la cellule et non un nom en dur, car si la cellule devient "01CD" et "01CG" le nom des feuilles 2 et 3 restera "01CC" et "01CR"

J'espère avoir été explicite, merci pour votre aide.

 

[G'Claire]

Distrophi, le forum

Voici le code : pour affecter le nom de la feuille copiée avec une cellule

Dim MaVariable
MaVariable = Sheets("Feuil1").Range("A1")

Sheets("Feuil2").Select
Selection.Copy
Sheets("Feuil2").Select
Sheets("Feuil2").Name = var
Sheets("Feuil3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil3").Select
Sheets("Feuil3").Name = var

Salut, G'Claire

 

[Distrofi]

Merci G'Claire, c'est nickel

A+