Bonjour,

Je n'ai trouvé qu'une seule réponse sur le sujet

Ma problématique :
A la suite d'une copie de feuille dans laquelle se trouve une macro, je voudrais supprimer la macro toute entière de la feuille copiée.

Pourriez-vous m'aider svp ?



J'ai uniquement trouvé ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
With Workbooks("Classeur1").VBProject.VBComponents("Feuil1").CodeModule
    .DeleteLines 1, .CountOfLines
End With
Adapté à mon code, ça donne cela (à la base) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ThisWorkbook.VBProject.VBComponents(Nom_Nouvelle_Feuille).CodeModule.DeleteLines 1, ThisWorkbook.VBProject.VBComponents(Nom_Nouvelle_Feuille).CodeModule.CountOfLines

Après multiples modifications et erreurs associées 'error 1004' 'error 9' 'error 3', j'ai trouvé une solution. Je dois nommer la feuille dans le code sous le nom VBE et nom Excel.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ThisWorkbook.VBProject.VBComponents("Feuil5").CodeModule.DeleteLines 1, ThisWorkbook.VBProject.VBComponents("Feuil5").CodeModule.CountOfLines
Mais cela ne me convient pas, je voudrais que ce soit variable.
Comment svp le remplacer par un nom de feuille variable style 'Nom_Nouvelle_Feuille', comme dans mon code de base ??

mercciiiiiii