Macro qui efface une macro

[Creepy]

Bonjour à tous,

Je voudrais faire une macro qui sauvegarde mon document. Cependant j'ai une macro en Workbook_Open() qui initialise mon projet (remet tout à 0).

Si je fais une sauvegarde de la feuille avec des données ce n'est pas pour quand je la réouvre qu'elle me remette tout à 0 !!

Comment faire pour que mon bouton "Enregistrer" supprime le contenu de ma macro Workbook_Open() avant d'enregistrer ??

Merci d'avance

Creepy

 

[michel]

bonsoir Creepy

la procedure ci dessous supprime la macro "Workbook_Open" dans le "ThisWorkbook"
tout cela est à adapter pour ton projet

Dim Debut As Integer, Lignes As Integer
With ThisWorkbook.VBProject.VBComponents("ThisWorkbook").codemodule
Debut = .ProcStartLine("Workbook_Open", 0)
Lignes = .ProcCountLines("Workbook_Open", 0)
.DeleteLines Debut, Lignes
End With


bonne soirée
michel

 

[Creepy]

Merci bcp !

Creepy