Suppression de la macro à l'issue de son exécution

[lostheroe]

Bonjour,

J'aimerais que l'orsque je lance la macro du fichier ci-joint, à l'issue de son exécution elle supprime automatiquement le bouton de lancement ainsi qu'elle efface le module test et le module 1.

 

[DoubleZero]

Re : Suppression de la macro à l'issue de son exécution

Bonjour, lostheroe, le Forum,

Peut-être ainsi :

Option Explicit
Sub suppression()
    Dim n As Name
    For Each n In ActiveWorkbook.Names
        If Not n.Name Like "*Print_Area" Then n.Delete
    Next
    Sheets("Feuil1").Shapes("Bouton 1").Delete    ' bouton supprimer
    Call Modules_1_et_test_supprimer              ' macros supprimer
End Sub
Sub Modules_1_et_test_supprimer()
'Adaptation d'un code de MichelXld (merci !)
    With ActiveWorkbook.VBProject.VBComponents
        .Remove .Item("Module1")
        .Remove .Item("test")
    End With
End Sub

A bientôt

P. S. : Bonjour, Efgé

 

[lostheroe]

Re : Suppression de la macro à l'issue de son exécution

Bonjour DoubleZero,

La macro bloque sur With ActiveWorkbook.

 

[Efgé]

Re : Suppression de la macro à l'issue de son exécution

Bonjour lostheroe, Bonjour 00

Pour modifier le projet VBA, il faut autoriser les changements:
Sous 2007:
Onglet Développeur / Groupe code / Sécurité des macros / Paramètres des macros ==> Cocher "Accès approuvé au modèle d'objet du projet VBA"

Cordialement

 

[lostheroe]

Re : Suppression de la macro à l'issue de son exécution

Merci Efge, en effet ça marche nettement mieux en activant l'option dans excel.