Macro XLA ajout et supression bouton de commande

Bonsoir à tous.:D

J’ai besoin d’un petit coup de pouce.

Voila, j’ai créé une macro xla qui à l‘ouverture de l’application Excel ajoute un bouton de commande dans la barre d’outils.

J’aimerais qu’à la fermeture de l’application Excel ce bouton de commande soit supprimé.

Je ne sais pas comment mis prendre. J’ai essayé l’évènement de ThisWorkbook suivant :

Code:

---

1 2 3 4

Private Sub Workbook_BeforeClose(Cancel As Boolean) Call SuppressionBoutonsCommande End Sub

---

Cela ne fonctionne pas, quel évènement faut-il utiliser ?

Merci d’avance pour votre réponse.

A +

Quel code emploies-tu pour le créer, ce bouton?

Bonsoir Singular :D

Dans un module voici le

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub CreationBoutonCommande () With CommandBars("Formatting").Controls.Add(msoControlButton, Before:=14) .FaceId = 798 .OnAction = "procédure..." .TooltipText = "...." End With End Sub Sub SuppressionBoutonsCommande () Application.CommandBars("Formatting").Controls(14).Delete End Sub

---

Dans le ThisWorkbook

Code:

---

1 2 3 4

Private Sub Workbook_Open() Call CreationBoutonCommande End Sub

---

@ +

Bonjour

Regardes dans l'aide le dernier paramètre de Add qui se nomme Temporary.

Starec