Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 effacer code de la nouvelle feuille

Usine à gaz

XLDnaute Barbatruc
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

Discussions similaires

Réponses
10
Affichages
303
Réponses
5
Affichages
469
Réponses
3
Affichages
167
Réponses
2
Affichages
313
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…