Discussion :

[vanessaf22]

Bonjour !

Voilà mon problème : je souhaite insérer une requête en tant que commande dans un sous-menu de ma barre de menus personnalisée.

Sans passer par VBA, je sais faire tout ça : en personnalisant la barre d'outils et en ajoutant une requête au choix parmi "Toutes les requêtes" dans l'onglet Commandes...

En passant par VBA, c'est le drame...
Je tente de digérer l'aide depuis une demi-journée et sans succès.
Je ne saisis pas les différences subtiles qu'il existe entre les CommandBars, CommandBar, CommandBarControls et CommandBarControl.

Si jamais quelqu'un manie la chose avec dextérité alors je suis prenante.

Voici des infos complémentaires pour adapter le code à mon application.
Un Menu "Appli GRH" qui se trouve dans la barre de menu (à droite de l'aide).
Ce Menu contient 4 sous-menus ; le dernier s'intitule "Requêtes".
Ce dernier menu contient 12 sous-menus ; le dernier s'intitule "Personnalisées".
C'est au sein de ce dernier sous-menu de sous-menu de menu que je souhaite ajouter une requête dont le nom est "quer_name".

Merci énormément à ceux qui me liront et auront THE réponse !

[pitistef]

Bon, finalement j'ai trouvé des infos claires sur le lien suivant:
http://access.seneque.free.fr/barre_de_menus.htm

Le tout est de commencer par cocher la référence à Microsoft Office (au moins version 9).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim CB As CommandBar
Dim CBBouton As CommandBarControl
Set CB = CommandBars.Add(CB_Nom)
With CB
    Set CBBouton = .Controls.Add(msoControlPopup)
    With CBBouton
    .Caption = "Rien"
    .Enabled = True
    End With
End With
CB.Visible = True
CB.Position = msoBarTop

Ce code marche chez moi, pour le perfectionner, regarde le lien plus haut.

[vanessaf22]

Effectivement le code que tu m'as posté fonctionne...
J'étais parvenue à faire ce genre de choses.

Seulement, dans mon cas particulier, je souhaite insérer une commande dans un sous-menu de sous-menu de menu qui se trouve dans la barre de menus.

Et ça, je n'y parviens pas !!!

[Drosera]

Bonjour,

une petite adaptation en passant

Code :

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

1
2
3
    Dim cb As Object
 
    Set cb = CommandBars("Appli GRH").Controls("Requêtes").Controls("personnalisé").Controls.Add

attention aux noms contenant des espaces, peut-être faudra-t-il utiliser des crochets pour [Appli GRH]

[pitistef]

Bon, je vois que Drosera a été plus rapide que moi.C'est effectivement la marche à suivre.

[FRED.G]

CommandBar
"Représente la barre de commandes de l'application conteneur. L'objet

> Les barres de menus, les barres de menus contextuels et les barres d'outils sont des objet CommandBar.
>Ces objets sont regroupés dans une collection nommée CommandBars

CommandBars

Collection d'objets CommandBar qui représente les barres de commandes dans l'application
Pour renvoyer un seul objet CommandBar, utilisez CommandBars(index), index étant le nom ou le numéro d'index d'une barre de commandes

Par exemple pour renvoyer la barre de menu qui contient tes sous menus, tu utilises le code suivant :

Code :

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

Application.CommandBars.Item ("Nom de ta barre de Menu")

Maintenant que tu sais renvoyer une barre de menus, voyons les contrôles :

Il en existe plusieurs sortes :
- des boutons de commande (le plus courant, tu cliques dessus pour une déclencher une action donnée),
- des zones de listes modifiables (que tu ne peux créer qu'en VBA),
- des menus contextuels (qui servent à afficher un sous menu dans une barre de commande; les contrôles menus contextuels ne doivent pas être confondus avec les barres de menus contextuel)
- il existe encore d'autres type de contrôle (voir dans l'aide Access)

Si j'ai bien compris ton pb, tu possèdes une barre de menu (appelons-la BrMn) qui possède un contrôle menu contextuel "Appli GRH".


Pour renvoyer "Appli GRH" :

Code :

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

Application.CommandBars.Item("BrMn").Controls.Item ("Appli GRH")

Pour créer "Appli GRH" :

Code :

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

Application.CommandBars.Item("BrMn").Controls.Add "Appli GRH", msoControlPopup

Chaque contrôle menu contextuel contient un objet commandbar (= le sous menu)

Donc le contrôle "Appli GRH" contient une barre de commande qui contient elle-même 4 contrôles menus contextuel dont le dernier s'intitule "Requêtes".

Le contrôle "Requêtes", en tant que contrôle menu contextuel, contient une barre de commande qui contient elle-même 12 contrôles menus contextuel dont le dernier s'intitule "Personnalisées".
Enfin "Personnalisées" contient une barre de commande qui contient un contrôle qui est un simple bouton, nommé "quer_name".


Voici comment créer "quer_name"

'ce code sert à créer ton bouton "quer_name"
' je pars du principe que les menus et sous menus sont déjà créés...
'Si tu veux les créer dis-le moi...

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
Dim cb As CommandBar
Dim cbctl As CommandBarButton
 
'renvoie la barre de menu principale via cb
Set cb = Application.CommandBars.Item("BrMn")
 
'crée un bouton à la position indiquée
Set cbctl = cb.Controls.Item("Appli GRH") _
                .CommandBar.Controls.Item("Requêtes") _
                .CommandBar.Controls.Item("Personnalisées") _
                .CommandBar.Controls.Add(msoControlButton)
 
'nomme le bouton créé
cbctl.Caption = "quer_name"
 
'attribue une action au bouton créé
cbctl.OnAction = "=FonctionPourLancerTonAction()"
 
' FonctionPourLancerTonAction() est une Public function placée dans un module indépendant _
et qui définit l'action à accomplir sur clic du bouton "quer_name"

Voilà j 'espère que j'ai pas fait d'erreurs et que je t'ai aidée...

[vanessaf22]

Hello !

Ta solution fonctionne bien...
Merci!

Cependant, il y a encore un truc qui coince : la propriété OnAction...
Etant donné que je veux que ce bouton ouvre une requête pré-existante, j'ai créé la Public Sub suivante, dans un module indépendant :

Code :

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

1
2
3
4
 
Public Sub ouvrir_requ(nom_requête As String)
DoCmd.OpenQuery (nom_requête)
End Sub

Et j'ai adapté ton code avec :

Code :

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

1
2
3
 
'attribue une action au bouton créé
cbctl.OnAction = "=ouvrir_requ(quer_name)"

Malheureusement, ça ne fonctionne pas...

Voivi le message d'erreur que j'obtiens en cliquant sur le bouton :

L'expression entrée comporte un nom de fonction introuvable.

Si jamais quelqu'un a une idée... (?)
Merci en tous cas !!!

[Drosera]

Bonjour,

il faut une fonction et non une procédure, donc Public Function à la place de Public Sub

[vanessaf22]

Re !
Merci Merci Merci !!!
Pas maligne moi des fois...

Tout fonctionne à merveille !

Juste une modif :

Code :

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

1
2
3
 
'attribue une action au bouton créé
cbctl.OnAction = "=ouvrir_requ(" & Chr(34) & quer_name & Chr(34) & ")"

[pitistef]

Tu peux te passer du chr(34) si tu utilises les doubles guillemets (ici en fait quatre puisqu'il y a ceux de l'ouverture de ta chaine de caractère).

Code :

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

1
2
 
cbctl.OnAction = "=ouvrir_requ("""" & quer_name &""""")"