Discussion :

[marot_r]

Bonjour à tous.

J'ai une appli 2003 que je manipule en 2007.
Cette appli a de nombreux menus personnalisés.

Le problème c'est qu'avec 2007, il n'y a plus d'outil pour manipuler le menu.
Atuellement mon client fait les modifs en 2003 quand nous avons besoin d'intrevenir sur les menus.

Je cherche du code qui me permettrai de faire :
La liste des menus personnalisé de l'application.
L'action associée à chacune des entrées.

L'idée est ensuite de convertir ceux-ci en ruban 2007 lors d'un projet de migration vers cette version.

Je me suis essayé avec les objets CommandBar et CommandBarCOntrol mais j'en rammasse des tonnes et ceux qui m'intéressent vraiment sont perdus dans la masse et en plus j'ai des entrées sans OnAction donc je ne sais pas trop ce qu'elles font.

Si quelqu'un peut m'aider avec cela ce serai très apprécié, mes lectures sur le sujet ne sont pas très informatives car elles parlent essentiellement de créatiom mais pas de documentation de menus existants.

A+

[Jean-Philippe André]

Salut,

et as-tu la possibilité de passer par une autre bdd qui n'aurait "aucun" menu personnalisé, pour faire un différentiel ?

[marot_r]

Bonjour.

Merci c'est une idée mais j'avais espéré quelque chose de moins "bricolé".

Un truc qui teste une propriété du menu.

A+

[ilank]

Bonjour,

En 2007, les menus personnalisés ne sont pas sous l'onglet Compléments du ruban ?

[marot_r]

Bonjour.

Oui, ils sont là mais ma question est comment accéder aux informations, comme l'action déclenchée, par code ?

A+

[ilank]

Regarde ce lien au cas où :https://docs.microsoft.com/fr-fr/off...s-and-toolbars

Juste une question, les anciennes versions d'access ne gérait pas les menus personnalisés sous forme de macros ?

[marot_r]

Bonjour.

Autant que je sache tu pouvais appeler une macro, du code VBA, un formulaire ou un rapport.

A+

[marot_r]

Bonjour.

j'ai trouvé quelque chose d'intéressant ici :

Understanding Excel Menus with VBA
http://what-when-how.com/excel-vba/u...enus-with-vba/

C'est pour Excel mais je pense que le gros du code doit fonctionner et il y a un programme d'inventaire des entrées de menu.
Il semble qu'il y ai une propriété BuiltIn qui je pense va me permettre de distinguer les menus de Access de ceux créés par mon client.

Je vous reviens quand j'ai validé mon intuition.

A+

P.S.

J'ai aussi trouvé cela :
Referencing command bar and control objects in Access
https://www.techrepublic.com/article...cts-in-access/
Moins complet mais avec des infos sur les éléments qui ne sont pas dans la référence précédente.

Re A+

[marot_r]

Bonjour.

Mon intuition était fausse mais à force d'essais/erreurs je suis parvenu au code suivant qui fait grosso-modo ce que je veux.

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
22
23
24
25
26
27
28
29
30
31
32
Option Compare Database
Option Explicit
 
Private Sub InventorierMenu()
    Dim cb As CommandBar
    Dim cbc As CommandBarControl
 
    For Each cb In Application.CommandBars
 
        If cb.BuiltIn = False Then
            Debug.Print String(10, "=")
            Debug.Print cb.Name, cb.NameLocal, cb.BuiltIn
            Debug.Print String(10, "-")
 
            For Each cbc In cb.Controls
 
                Call AficherItemMenu(0, cbc)
 
                If cbc.TYPE = msoControlPopup Then
                    Call InventorierItemMenu(1, cbc)
                End If
 
            Next cbc
 
            Debug.Print String(10, ".")
            Debug.Print String(10, " ")
            DoEvents
        End If
 
    Next cb
 
End Sub

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
Private Sub InventorierItemMenu(prmNiveau As Long, prmCBC As CommandBarControl)
    On Error GoTo err_InventorierItemMenu
 
    Dim cbc As CommandBarControl
 
    For Each cbc In prmCBC.Controls
        Call AficherItemMenu(prmNiveau, cbc)
        If cbc.TYPE = msoControlPopup Then
            Call InventorierItemMenu(prmNiveau + 1, cbc)
        End If
 
    Next cbc
 
exit_InventorierItemMenu:
    Exit Sub
 
err_InventorierItemMenu:
    Debug.Print "### Erreur au niveau " & prmNiveau & ", Entrée " & trim(prmCBC.Caption) & " : " & Err.Number & ", " & Err.Description
    Resume exit_InventorierItemMenu
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub AficherItemMenu(prmNiveau As Long, prmCBC As CommandBarControl)
    On Error Resume Next
    Debug.Print Space(prmNiveau * 4); prmCBC.Parent.Name; "|", 
    Debug.Print Trim(prmCBC.Caption),
    Debug.Print Trim(prmCBC.DescriptionText),
    Debug.Print Trim(prmCBC.TooltipText),
    Debug.Print Trim(prmCBC.OnAction);
    Debug.Print
    DoEvents
End Sub

A+

[marot_r]

Il y avait encore des trucs cachés, ici une version améliorée :

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
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub AficherItemMenu(prmNiveau As Long, prmCBC As CommandBarControl)
    On Error Resume Next
 
    Select Case prmCBC.TYPE
        Case msoControlPopup
            Debug.Print Space(prmNiveau * 4); prmCBC.Parent.Name; "|";
            Debug.Print "Étiquette : "; Trim(prmCBC.Caption); "|";
            Debug.Print "Desc. :"; Trim(prmCBC.DescriptionText); "|";
            Debug.Print "Tip. :"; Trim(prmCBC.TooltipText); "|";
            Debug.Print "Action :"; Trim(prmCBC.OnAction);
            Debug.Print
            DoEvents
 
        Case msoControlButton
            Dim cbcb As CommandBarButton
            Set cbcb = prmCBC
 
            Debug.Print Space(prmNiveau * 4); cbcb.Parent.Name; "|";
            Debug.Print "Étiquette : "; Trim(cbcb.Caption); "|";
            Debug.Print "Desc. :"; Trim(cbcb.DescriptionText); "|";
            Debug.Print "Tip. :"; Trim(cbcb.TooltipText); "|";
            Debug.Print "Action :"; Trim(cbcb.OnAction); "|";
            Debug.Print "TypeLien :"; Trim(cbcb.HyperlinkType); "|";
            Debug.Print "Param :"; Trim(cbcb.Parameter); "|";
            Debug.Print "Raccourci :"; Trim(cbcb.ShortcutText); "|";
            Debug.Print
            DoEvents
 
        Case Else
            Call Err.Raise(5, , Error$(5) & " - Type inconnu")
    End Select
 
End Sub

A+

[LeMin]

Bonjour Marot_r,

Par curiosité, je voudrais essayer tes menus.
j'ai crée un formulaire avec 1 bouton qui appelle menu_Click.

Et si je compile, j'ai l'erreur indiquée en PJ

Une piste ?
Merci.

[marot_r]

Bonjour.

J'ai oublié de le préciser mais il faut une mettre une référence aux objets Microsoft Office car les commandBar ne sont pas des objets Access d'origine.

A+

[LeMin]

Bonjour.

J'ai oublié de le préciser mais il faut une mettre une référence aux objets Microsoft Office car les commandBar ne sont pas des objets Access d'origine.

A+

Ok, ça compile maintenant.
j'ai un bouton dans un formulaire qui appelle "InventorierMenu"

je boucle dans InventorierMenu et j'ai toujours "cb.BuiltIn" à Faux

est ce normal ( je suis en access 2007) ?
du coup, rien ne s'affiche.

[Jean-Philippe André]

Salut,

as-tu des menus spécifiques dans ta base ?

[LeMin]

Salut,

as-tu des menus spécifiques dans ta base ?

Non, c'est une base vide avec juste un formulaire et un bouton qui appelle la procedure

[marot_r]

Bonjour.

Attention ce code n'est pas destiné à trouver les boutons dans les formulaire mais les entrées dans les barres de menus.

Même si les contrôles portent des noms similaires ce sont des choses bien différentes.

Ceci dit le code ne devrait pas entrer dans une boucle infinie mais comme je l'ai dit cela tiens plus du bricolage que de la programmation réfléchie et donc il y a peut-être des cas où cela peut arriver.

As-tu tracé l'exécution pas à pas ?

A+

[LeMin]

Bonjour, en fait, ton code ne boucle pas indéfiniment. L’exécution pas à pas montre qu'il boucle un certain temps et sort.
Il ne trouve rien (cb.BuiltIn" toujours à Faux).
Apparemment, c'est parce que je n'ai pas de menu dans ma base.

Comment en créer un ?

[marot_r]

Bonjour.

Comment en créer un ?

A priori en Access 2007 et suivante on ne peut pas. Il faut créer un ruban (et c'est un peu la m...).

Ici un article qui explique le procédé.

https://support.office.com/fr-fr/art...a-4e25bc9413de

Sinon on peut peut-être y arriver par code VBA puisque que les objets existent toujours.

Mon code est destiné aux applications crées avec les version antérieures de Access qui avait une possibilité de gérer des menus directement.

A+

[LeMin]

Ok, Merci Marot_r pour toutes ces explications.
J'ai commencé à créer un ruban personnalisé, mais ça bloque à

Code :

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

"http://schemas.microsoft.com/office/2006/01/customui"

Comme tu dis, c'est un peu ..

merci en tous cas.
Bonne journée.