Macro qui efface une macro

Creepy · 13 Janvier 2004

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 · 13 Janvier 2004

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 · 13 Janvier 2004

Merci bcp !

Creepy

Macro qui efface une macro

Creepy

Guest

michel

Guest

Creepy

Guest

Discussions similaires