Discussion :

[Kik's]

bonjour:
j'aurais besoin d'aide
je travaille actuellement sur la gestion d'une base de données pour le service d'ophtalmologie génétique à strasbourg.
J'utilise dans ma base de données une barre de menu appelé "MenuPrincipal", cette barre est faite de différents groupe de menu
je voudrais ajouter à mon menu "Patients" un nouveau menu contextuel et dans lequel je pourrais faire afficher le résultat d'une requête.

pour ce faire j'utilise Commandbars.controls.add(mscocontrolbutton)
mais cela ne fait que rajouter un bouton au bout de ma barre de menu

ce que je rechercher c'est ajouter un élément sur une barre déjà existante
et si possible de pouvoir mettre à jour cette parti en fonction du résultat de la requête

j'espère que quelqu'un pourra m'aider
Merci

[=JBO=]

Bonjour,

J'utilise dans ma base de données une barre de menu appelé "MenuPrincipal", cette barre est faite de différents groupe de menu
je voudrais ajouter à mon menu "Patients" un nouveau menu contextuel et dans lequel je pourrais faire afficher le résultat d'une requête.
[...]
ce que je rechercher c'est ajouter un élément sur une barre déjà existante
et si possible de pouvoir mettre à jour cette parti en fonction du résultat de la requête

Quel est le libellé du nouveau Sous-Menu ?
Pour l'instant, je l'appellerai "Nouveau sous-menu".

(1) Dans le projet VBA, référencer la bibliothèque "Microsoft Office n.x Object Libray".

(2) Code pour créer le nouveau sous-menu et récupérer une référence sur l'objet correspondant.
Le code est décomposé, dans un souci de clarté.

Code :

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

1
2
3
4
5
6
7
8
9
Dim oMenuBar as Office.CommandBar
Dim oMenuPatients As Office.CommandBarPopup
Dim oPopup As Office.CommandBarPopup
 
Set oMenuBar = Application.CommandBars("MenuPrincipal")
Set oMenuPatients = OMenuBar.Controls("Patients")
 
Set oPopup = oMenuPatients.Controls.Add(msoControlPopup, 1)
oPopup.Caption = "Nouveau sous-menu"

(3) Ajouter un Item dans le sous-menu et le paramétrer:
- libellé sans icône (à adapter)
- nom de la procédure VBA à exécuter quand l'utilisateur clique sur l'item.

Code :

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

1
2
3
4
5
6
7
 
Dim oItem as Office.CommandBarButton
 
Set oItem = oPopup.Controls.Add(msoControlButton, 1)
oItem.Style = msoButtonCaption
oItem.Caption = "Nouvel item"
oItem.OnAction = "NomProcédure"

Bien sûr, le point (3) est à réitérer autant de fois que l'on a besoin d'ajouter un item dans le sous-menu.

Voilà, c'est un déjà un bon point de départ, à adapter et améliorer .