Macro automatique

[MarcM]

Bonjours,
Je souhaiterai que dès l'execution de la macro à l'ouverture du fichier excel (ex:Auto-open) celle ci soit supprimée.
Merci de votre aide.

 

[Jacques87]

Re : Macro automatique

Bonjour,

Il te suffit de l'appeler dans la procédure évenementielle :

Private Sub Workbook_Open()

de ThisWorkBook

exemple :

Private Sub Workbook_Open()
Ma_macro
End Sub

elle sera automatiquement lancée à chaque ouverture de ton fichier

Bon courage

 

[MarcM]

Re : Macro automatique

Merci Jacques, mais la question était comment supprimer cette macro automatiquement après l'avoir executer. Car l'on ne souhaite pas qu'elle se reexecute lors de la prochaine lecture. Merci pour ton adie

 

[GPLIONEL]

Re : Macro automatique

Bonjour,

je crois que la solution consisterait à mettre dans la macro une condition de non exécuton.
Du style
IF range("A1")<>"" then
end
endif

 

[Jacques87]

Re : Macro automatique

OK, une fois de plus j'avais lu en diagonale

pour répondre à ta question voici un code qui devrait te convenir : il te permet de supprimer la macro MaMacro que tu as placée dans le Module2

[COLOR=#669933]'Supprimer la macro nommée "MaMacro" dans le "module2"[/COLOR]
[COLOR=#0033ff]Sub[/COLOR] supprimer_MaMacro()
[COLOR=#0033ff]Dim[/COLOR] Debut [COLOR=#0033ff]As[/COLOR] [B][COLOR=#3366cc]Integer[/COLOR][/B], Lignes [COLOR=#0033ff]As[/COLOR] [B][COLOR=#3366cc]Integer[/COLOR][/B]
    [COLOR=#0033ff]With[/COLOR] ThisWorkbook.VBProject.VBComponents([COLOR=#993399]"Module2"[/COLOR]).CodeModule 
       Debut = .ProcStartLine([COLOR=#993399]"MaMacro"[/COLOR], 0)
        Lignes = .ProcCountLines([COLOR=#993399]"MaMacro"[/COLOR], 0)
        .DeleteLines Debut, Lignes 
   [COLOR=#0033ff]End[/COLOR] [COLOR=#0033ff]With[/COLOR]
[COLOR=#0033ff]End[/COLOR] [COLOR=#0033ff]Sub[/COLOR]

Attention au préalableil faut :

ajouter la référence "Microsoft visual Basic For Application Extensenbility x.x" à ton projet

Il te suffit d'appeler ce code ne fois la macro exécutée

A ton service

 

[MarcM]

Re : Macro automatique

Merci pour l'info. Comment fait on pour télécharger et ajouter cette référence (Microsoft Visual Basic for Applications Extensibility 5.3) lorsque l'option référence est grisée (non accessible)
Merci encore.

 

[Pierrot93]

Re : Macro automatique

Bonsoir Marc ,Jacques,Lionel

dans l'éditeur visual basic, =>barre de menu => Outils => Références, et tu coches la référence indiqué par Jacques.

Bonne soirée
@+

 

[Jacques87]

Re : Macro automatique

Bonsoir tout le monde,

Pierrot tu m'as précédé en répondant à la question de Marc
Cela m'apprendra à pendre mon temps pour diner (lol)

Je te souhaite une bonne soirée, et à la prochaine avec plaisir

 

[MarcM]

Re : Macro automatique

Merci à vous tous !