Cette macro s'auto detruira ....

[carlos]

Bonjour au forum

je souhaite executer une macro à usage unique cad qui ne s'executera qu'une seule fois et s'effacera lors du premier enregistrement de mon fichier .


Merci

 

[Creepy]

Hello all,

Carlos, voila une macro que j'ai faite pour effacer les macros se trouvants dans workbook_open

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

++

Creepy

 

[carlos]

merci
Ca marche si j'ouvre le fichier. mais pas si j'enregistre.

j"ai essayé auto_save pour l'executer des l'enregistrement mais rien ne se passe

Pourquoi ?

 

[@+Thierry]

Bonsoir Carlos, Creepy, le Forum

Dans ce cas Carlos, c'est l'évènement Workbook_BeforeSave que tu dois indiquer...

Bonne Soirée
@+Thierry

 

[carlos]

GENIAL CREEPY