XL 2019 Dupliquer feuille après une feuille existante vba

FLOW312020 · 29 Mars 2021

Bonjour à tous,

J'ai besoin d'un petit coup de votre part pour dupliquer une feuille "Trame" de mon classeur dans ce même classeur.

Aujourd'hui je fais la duplication de la feuille par le code suivant.
oFeuilleTrame.Copy After:=Sheets("Synthèse")

Néanmoins, si demain l'utilisateur renomme la feuille "Synthèse" par "XXX", le code ne marchera plus.
Je souhaite donc transformer le code plus haut en ne faisant plus appel au nom de la feuille mais au nom de cette même feuille renseigné dans le vbe.
Cette feuille s'appelle dans Excel "Synthèse" et dans ses propriétés "wksSynthèse".

Par la suite, je souhaite que la feuille dupliqué soit renommée en "wksDuplication" dans ses propriétés.

J'espère avoir été suffisamment clair dans mes explications.

Merci!

Phil69970 · 29 Mars 2021

Bonjour @FLOW312020 , le forum
Edit : Bonjour @mapomme

En image c'est plus parlant

Feuille toto c’est le nom de ton onglet (name) que l'utilisateur peut renommer
Mais Feuil1 en jaune c'est le nom interne (codename) de ta feuille qui lui n'est pas accessible à l'utilisateur sans passer par du code ....

@Phil69970

mapomme · 29 Mars 2021

Bonsoir @FLOW312020, @Phil69970 ,

Cliquer sur le bouton Hop!

Évidemment, la macro ne peut être exécutée qu'une seule fois à moins de supprimer avant une autre exécution la feuille créée précédemment.

Voir le code dans module1:

VB:

Sub Test()
Dim oFeuilleTrame As Worksheet, NewFeuille As Worksheet

   Set oFeuilleTrame = Worksheets("Trame")
   oFeuilleTrame.Copy after:=wksSynthèse
   Set NewFeuille = ActiveSheet
   NewFeuille.[_CodeName] = "wksDuplication"
   NewFeuille.Name = "Nouvelle trame"

End Sub

FLOW312020 · 29 Mars 2021

Bonjour,

Merci à vous deux c'est parfait!

XL 2019 Dupliquer feuille après une feuille existante vba

FLOW312020

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

FLOW312020

XLDnaute Nouveau

Discussions similaires