OVH Cloud OVH Cloud

Copier puis renommer une feuille

4 réponses
Avatar
Didier Novarin
Bonsoir,
je souhaite copier une feuille, puis que celle-ci se renomme par la valeur
qui se trouve dans la cellule A1 de la feuille qui à été copiée
Je vous remercie
Didier

4 réponses

Avatar
Didier Novarin
C'est bon, j'ai trouvé :

NomFeuil = ActiveSheet.Range("A1")
ActiveSheet.Select
ActiveSheet.Copy Before:=Sheets(31)
'rename
ActiveSheet.Name = NomFeuil

"Didier Novarin" a écrit dans le message de
news: %
Bonsoir,
je souhaite copier une feuille, puis que celle-ci se renomme par la valeur
qui se trouve dans la cellule A1 de la feuille qui à été copiée
Je vous remercie
Didier





Avatar
AV
< C'est bon, j'ai trouvé :

Sheets.Add.Name = [A1]

AV
Avatar
Didier Novarin
Bonsoir AV et merci beaucoup
en fait, je souhaite faire ceci, mais cela plante pour le rennomage, si je
mets Alpha & NomFeuil, alors que lorsque je mets que NomFeuil, cela
fonctionne
Didier

Alpha = Sheets("ouverture").[C12].Value
NomFeuil = ActiveSheet.Range("A1").Value
ActiveSheet.Select
ActiveSheet.Copy Before:=Sheets(31)
ActiveSheet.Name = Alpha & NomFeuil
ActiveSheet.Unprotect Password:="toto"
ActiveSheet.DrawingObjects.Select
Selection.Delete
ActiveSheet.Protect Password:="toto"



"AV" a écrit dans le message de news:

< C'est bon, j'ai trouvé :

Sheets.Add.Name = [A1]

AV




Avatar
anonymousA
Bonjour,

Que vaut apha ? Quelle est la taille de la chaine de caractères alpha &
NomFeuil ?

Tous ces éléments peuvent avoir une importance capitale dans le refus
d'Excel d'accepter ton nom de feuille.

A+


Bonsoir AV et merci beaucoup
en fait, je souhaite faire ceci, mais cela plante pour le rennomage, si je
mets Alpha & NomFeuil, alors que lorsque je mets que NomFeuil, cela
fonctionne
Didier

Alpha = Sheets("ouverture").[C12].Value
NomFeuil = ActiveSheet.Range("A1").Value
ActiveSheet.Select
ActiveSheet.Copy Before:=Sheets(31)
ActiveSheet.Name = Alpha & NomFeuil
ActiveSheet.Unprotect Password:="toto"
ActiveSheet.DrawingObjects.Select
Selection.Delete
ActiveSheet.Protect Password:="toto"



"AV" a écrit dans le message de news:


< C'est bon, j'ai trouvé :

Sheets.Add.Name = [A1]

AV