XL 2013 effacer code de la nouvelle feuille

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous :)

Voilà presque longtemps .... :)

J'ai une action à faire que je voudrais automatiser en vba et je n'arrive pas à trouver malgré mes recherches et essais.

Je me permets de poser ma question.

Dans mon classeur, j'ai une feuille de base que je duplique après l'avoir complétée.
Cette feuille contient des codes vba.

J'ai besoin d'effacer les codes dans la nouvelle feuille (tout en les gardant dans la feuille de base)

En recherchant sur le net, j'ai trouvé ce code :

Code:
With Workbooks("Classeur1").VBProject.VBComponents("Feuil1 (2)").CodeModule
    .DeleteLines 1, .CountOfLines
    End With

qui beugue sur le première ligne et je ne trouve pas ce qui ne va pas.

Quelqu'un pourrait me corriger ? (fichier test joint)

Avec mes remerciements,
Je vous souhaite à toutes et à tous un très beau dimanche :)
Amicalement,
Arthour973,
 

Pièces jointes

  • efface code feuille dipliquee.xlsm
    19.2 KB · Affichages: 22

Usine à gaz

XLDnaute Barbatruc
Supporter XLD

Pièces jointes

  • efface code feuille dipliquee.xlsm
    20.4 KB · Affichages: 28

Discussions similaires

Réponses
5
Affichages
215
Réponses
2
Affichages
120

Statistiques des forums

Discussions
312 305
Messages
2 087 087
Membres
103 461
dernier inscrit
dams94