nommer feuille suivant cellule active

[28gaëlle]

Bonjour,

Je souhaiterais que lorsque ma feuille Fiche identité elle soit aussi accompagné du nom de la celllule A1 de ma feuille fiche de travail. Est ce possible
Je vous joins le code.
Sub creation_fiche_identite()
Sheets("travail_fiche_identité").Visible = True
Sheets("BD").Visible = True
Sheets("travail_fiche_identité").Select
Sheets("travail_fiche_identité").Copy Before:=Sheets(4)
Sheets("travail_fiche_identité (2)").Select

Sheets("travail_fiche_identité (2)").Name = "Fiche_identité"

Sheets("travail_fiche_identité").Visible = False
Sheets("BD").Visible = False
End Sub


Merci d'avance de votre aide

GAëlle

 

[Pierrot93]

Re : nommer feuille suivant cellule active

Bonjour Gaelle

regarde le code ci dessous si il peut t'aider, nom de la feuille à adapter :

Sheets("Feuil1").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Range("A1").Value

bon après midi
@+

 

[28gaëlle]

Re : nommer feuille suivant cellule active

merci beaucoup. Ca marche