[E-03] Ajouter CommandBar

Version imprimable

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

Citation:

Argument ou appel de procédure incorrect

sur cette ligne

Code:

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:

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!

28/02/2009, 09h26
ouskel'n'or

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

Code:

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

Citation:

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 :aie:
28/02/2009, 15h36
drakkar_agfa

Ok merci. Ça marche parfaitement!

Bonne fin de journée!
02/03/2009, 16h59
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

Citation:

Argument ou appel de procédure incorrect

J'ai bien la version 2003 au bureau.

Auriez-vous une idée?

Merci!
02/03/2009, 17h27
ouskel'n'or

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

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:

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

02/03/2009, 18h40
Invité

Bonjour

Juste un test (sans garantie)

Au lieu de

Code:

Dim customBar As CommandBar

essayes

Code:

Dim customBar As Office.CommandBar

Philippe
02/03/2009, 18h46
drakkar_agfa

Merci de l'essais :)
Mais j'ai toujours l'erreur! 8O

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

Code:

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

:king: 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:

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? :aie:

Encore merci!

02/03/2009, 23h37
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
03/03/2009, 15h45
drakkar_agfa

Merci pour le lien!

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