[Sources]Créer un bouton dans une barre d'outils [Fait]

[ouskel'n'or]

Place un bouton après le dernier bouton de la barre "Standard" et lui affecte la macro "NomMacroAssociée" à l'ouverture du classeur et le supprime à la fermeture.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Auto_open()
    Application.EnableEvents = True
    Call CréerBouton
End Sub
 
Sub CréerBouton()
Dim nbboutons As Byte
    Set MonControl = Application.CommandBars("Standard")
    With MonControl
        nbboutons = .Controls.Count
        Set MonBouton = .Controls.Add(msoControlButton, 2950, nbboutons)
            With MonBouton
                .Caption = "Recettes"
                .OnAction = "NomMacroAssociée"
            End With
        Set MonBouton = Nothing
    End With
    Set MonControl = Nothing
End Sub
 
Sub Auto_Close()
    Call SupprimerBouton
End Sub
 
Sub SupprimerBouton()
    Application.CommandBars("Standard").Controls(Application.CommandBars("Standard").Controls.Count).Delete
End Sub

Edit
Une question sur le forum me fait préciser que ce code est à placer dans un module standard -> Editeur VB -> Insertion -> Module

[bbil]

bonsoir ouskel'n'or... .

Juste une question, peu-tu m'expliquer l'utilité du "Application.EnableEvents".. en tête de ton code .. ? sa présence est-elle volontaire..?

[ouskel'n'or]

Hello bbil,
Oui, ça dépend où tu places la macro auto_open
Si tu mets Workbook_Open dans un module au lieu de le placer dans ThisWorkbook, cette ligne est nécessaire pour que la macro s'exécute. J'ignore (encore) si celà provient d'un niveau de sécurité mais j'ai remarqué ça. On a déjà eu une discussion sur le fonctionnement de Workbook_Open sur le forum et j'avais proposé la solution. L'intéressé affirmait que Workbook_Open (placé dans un module standard) ne fonctionnait pas dans 2003.
Je n'ai pas de meilleurs explications
A+