Ajout de commandes aux menus excel existants

Commenter

Contenu du snippet

Code permettant d'ajouter une commande à un menu excel existant à l'ouverture du classeur, et de supprimer cette commande lors de la fermeture du classeur.
Très pratique pour associer une macro à un bouton de commande que l'on crée dans le menu outils, dans le cas ou l'on veut exécuter une macro complémentaire à partir du menu outils.

Source / Exemple : 


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.CommandBars("Nom du menu existant").Controls("Nom du bouton de commande").Delete
End Sub

Private Sub Workbook_Open()
Set Tools = Application.CommandBars("Nom du menu existant")
    With Tools.Controls.Add(, , , , True)
        .BeginGroup = True 'si l'on veut une séparation avant le bouton de commande
        .Caption = "Nom du bouton de commande"
        .OnAction = "Nom du fichier de macro complémentaire ! Nom de la macro à exécuter"
    End With
End Sub

Conclusion :


Je pense que les initiés n'auront pas de mal à comprendre le fonctionnement de la macro ;D

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.