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.
Edit
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Une question sur le forum me fait préciser que ce code est à placer dans un module standard -> Editeur VB -> Insertion -> Module
Partager