Discussion :

[drakkar_agfa]

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!

[ouskel'n'or]

Remplace le premier paramètre par sa valeur et mets une valeur au second

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set customBar = Application.CommandBars.Add("Rapports", 1, 0, True)

si je comprends bien, en donnant True au paramètre Temporary...

Tu comprends bien
Bonne journée

PS - Une explication ? Selon les versions de VBA il est arrivé à certains paramètres de changer de pseudo mais pas de valeur

[drakkar_agfa]

Ok merci. Ça marche parfaitement!

Bonne fin de journée!

[drakkar_agfa]

Rebonjour,

C'est dommage de ressortir un vieux topic mais,
j'ai testé la macro à la maison avec la ligne de ouskel'n'or et cela fonctionnait. Rendu ici, au bureau, j'ai toujours la même arreur même avec la ligne d'ouskel'n'or

Argument ou appel de procédure incorrect

J'ai bien la version 2003 au bureau.

Auriez-vous une idée?

Merci!

[ouskel'n'or]

As-tu testé sur un classeur tout neuf ?
As-tu déclaré customBar as commandbar ?

[drakkar_agfa]

J'ai testé cette macro dans le classeur en cours et je l'ai aussi testé dans un classeur neuf.
Voici le 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", 1, 0, 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