Soyez le premier à donner votre avis sur cette source.
Snippet vu 10 840 fois - Téléchargée 27 fois
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
29 sept. 2006 à 15:52
Merci
28 oct. 2005 à 13:31
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 ...
28 juin 2004 à 13:22
23 juin 2004 à 13:11
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.
++
19 janv. 2004 à 12:27
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.