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

[Invité]

Bonjour

Juste un test (sans garantie)

Au lieu de

Code :

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

Dim customBar As CommandBar

essayes

Code :

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

Dim customBar As Office.CommandBar

Philippe

[drakkar_agfa]

Merci de l'essais
Mais j'ai toujours l'erreur!

[ouskel'n'or]

Oui, moi aussi j'ai l'erreur quand la barre d'outils existe déjà
Teste ça, ça devrait aller

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub AjoutMenu()
    Dim Unebarre As CommandBar, ok As Boolean
    ok = True
    For Each Unebarre In Application.CommandBars
        ok = unebarre.Name = "Rapports"
        If ok Then
            Unebarre.Delete
            Exit For
        End If
    Next
    Set unebarre = Application.CommandBars.Add("Rapports", 1, 0, True)
    UneBarre.Visible = True
End Sub

Bonne soirée

[drakkar_agfa]

Merci ça fonctionne!

Mais, avec ce code, mon bouton s'ajoute bien mais je n'ai pas rien d'écrit. Il est présent avec aucune écriture dedans. Quand je passe la souris dessus, un carré apparait et affiche une bulle "Menu des rapports"

Voici mon code :

Code :

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

1
2
3
4
5
6
    Set newButton = customBar.Controls.Add(msoControlButton, , , , True)
    With newButton
    .Caption = "Menu des rapports"
    'Attribue une macro à la barre de menu.
    .OnAction = "OuvrirMenu"
    End With

D'après moi, pour le titre du bouton c'était .Caption, non?

Encore merci!

[ouskel'n'or]

Si tu ajoutes un bouton tout nu, tu obtiens un bouton tout nu. Le mieux serait que tu lises le tuto réalisé par fring sur les barres d'outils personnalisées.
Bonne lecture

[drakkar_agfa]

Merci pour le lien!

Très bien, j'ai de super beaux boutons maintenant!!!