Bonjour,

Je me suis fait une macro qui ajoute une barre de menu (avec deux boutons à l'intérieur). Tout me semble correct mais j'ai une erreur
Argument ou appel de procédure incorrect
sur cette ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set customBar = Application.CommandBars.Add("Rapports", msoBarPopup, , True)
J'ai beau regardé dans l'aide mais tout me semble correct avec le .Add

Voici mon code complet
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
Sub AjoutMenu()
    Dim customBar As CommandBar
    Dim newButton As CommandBarButton
    Set customBar = Application.CommandBars.Add("Rapports", msoBarPopup, , True)
    customBar.Visible = True
 
    Set newButton = customBar.Controls.Add(msoControlButton, , , , True)
    With newButton
    .Caption = "Menu des rapports"
    'Attribue une macro à la barre de menu.
    .OnAction = "OuvrirMenu"
    End With
 
    Set newButton = customBar.Controls.Add(msoControlButton, , , , True)
    With newButton
    .Caption = "Visualiser liste"
    'Attribue une macro à la barre de menu.
    .OnAction = "VisualiserListe"
    End With
 
End Sub
Et si je comprends bien, en donnant True au paramètre Temporary, je n'ai pas besoin de faire une macro qui supprime mes menus avec un beforeclose?

Merci de votre précieuse aide!