Ajout de commandes aux menus excel existants

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 768 fois - Téléchargée 26 fois

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

Ajouter un commentaire Commentaires
Messages postés
2
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
24 décembre 2008

Comment faut-il s'y prendre quand le bouton à ajouter est dans un sous-menu et non directement sous le menu racine ?
Merci
Messages postés
15
Date d'inscription
mercredi 21 janvier 2004
Statut
Membre
Dernière intervention
5 février 2008

Terriblement efficace même !

Je cherchais justement un moyen d'associer une macro complémentaire et cela m'a fait gagner du temps.

J'ai simplement ajouter une ligne de commande dans le bloc with :
.FaceId = 173 'Ce qui permet d'associer une image au bouton

Pour moi 173 correspondait à l'image voulue ! Après tout dépend de la macro, faites votre choix ...
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
1
Autre question : peut on ajouter un bouton permanent qui se lancera quelque soit le fichier ouvert comme le bouton Acrobat de la version pro ?
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
1
Salut,
vraiment génial ton truc.
Juste une question, comment fait-on pour mettre une icone au bouton ? Et comment la choisir ? Chez moi le bouton n'en a pas.

++
Messages postés
64
Date d'inscription
vendredi 21 décembre 2001
Statut
Membre
Dernière intervention
16 janvier 2009

RAS.

Simple et efficace.
Je met 10. Tout simplement.

ah si, juste une remarque : le caption du bouton créé ne se met pas sur le bouton (il faut passer dessus pour voir apparaitre le texte...)
as-tu le truc pour qu'il apparaisse directement sur le bouton?

(ce genre de contributions est simple certes mais tellement utile !)

Cordialement,
LeDesasembleur (alias Bertrand)

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.