Copier une feuille et lui attribuer un nom : possible en 1 seule instruction ?

[Sebast]

Bonjour à toutes et à tous,

je n'arrive pas à faire une opération pourtant assez simple : copier une feuille dans une autre et attribuer un nom à cette nouvelle feuille

Peut-on le faire en une unique instruction ? Ou doit-on d'abord copier puis renommer la feuille ?

L'instruction qui coince est la suivante :

Worksheets("Base").Copy(after:=Worksheets(Worksheets.Count)).Name = "Copie_Base"

Merci d'avance pour vos lumières
Sebast

 

[Paritec]

Re : Copier une feuille et lui attribuer un nom : possible en 1 seule instruction ?

Bonjour Sebast le forum
ton fichier en retour
a+
Papou😱

 

[Sebast]

Re : Copier une feuille et lui attribuer un nom : possible en 1 seule instruction ?

Bonjour Paritec,

merci beaucoup pour ta solution qui fonctionne parfaitement.
Cependant, comme je ne connais pas nécessairement la position de la feuille "Base", je préfère ne pas utiliser le numéro (ici Feuil1.Copy ...).

Je me suis inspiré de ton code : ma syntaxe était foireuse ...
La bonne instruction est donc :

Worksheets("Base").Copy after:=Sheets(Sheets.Count): ActiveSheet.Name = "Copie Base"

Encore merci de m'avoir ouvert les yeux sur mon erreur

 

[camarchepas]

Re : Copier une feuille et lui attribuer un nom : possible en 1 seule instruction ?

Bonjour ,
Juste pour chipoter ,
si je compte bien , y'a 2 instructions , même s'il n'y a qu'une ligne

 

[Sebast]

Re : Copier une feuille et lui attribuer un nom : possible en 1 seule instruction ?

Bonjour,

tu as effectivement raison, je m'étais mal exprimé.
En fait c'était implicite (peut-être que dans mon esprit !) : je voulais surtout éviter d'utiliser un activate avant de renommer.

 

[Paritec]

Re : Copier une feuille et lui attribuer un nom : possible en 1 seule instruction ?

Re Bonjour Sebast Nono😱
effectivement là tu chipotes, mais tu as vu j'ai répondu sur une ligne !!!!
a+
Papou😱

 

[camarchepas]

Re : Copier une feuille et lui attribuer un nom : possible en 1 seule instruction ?

Allez ,

juste pour la forme ,

une solution :

Sheets.Add.Name = "Feuille_du_Jour"

Oups , me suis emballé un peu , l à c'était pas la question , Dsl