Où sont mes menus contextuels issus d'AC-2007 ?

**Apolinaire** · 17/01/2017, 14h59

Bonjour,

J'ai créé il y a de nombreuses années, sous AC-97, une base de données généalogique.

Elle a évolué via AC-2003, puis AC-2007 et enfin AC-2010 et continue de gérer les quelques 11900 personnes avec leurs photos et documents. Que du plaisir !

Mais aujourd'hui, sous AC-2010, si mes menus contextuels fonctionnent très bien interactivement, je suis incapable de retrouver leur trace dans le code ou dans des fonctions d'Access. Conclusion : je ne peux ni les modifier ni même les supprimer si l'envie m'en prenait.

Nom : Menu_contextuel.jpg
Affichages : 1008
Taille : 108,8 Ko

Nom : Menu_contextuel.jpg
Affichages : 1008
Taille : 108,8 Ko

J'ai retrouvé ça dans mon code :
===============
'Validation des 2 menus contextuels
CommandBars("Gestion").Enabled = True
CommandBars("Consultation").Enabled = True
===============

J'insiste : je ne cherche pas à créer un menu contextuel, je cherche juste à accéder à ceux existants !
Si vous avez une solution, ça m'intéresse beaucoup.

Merci.
Apolinaire

**Jean-Philippe André** · 18/01/2017, 11h44

Salut,

tu devrais pouvoir parcourir leur contenu directement a partir de leur nom

Regarde les tutos
http://fring.developpez.com/vba/excel/barremenu/
http://starec.developpez.com/tuto/ms...barrecommande/

En bouclant sur les commandbars, tu dois pouvoir y lire les proprietes qui t'interessent

**Apolinaire** · 18/01/2017, 22h25

Bonsoir Jean-Philippe,

Merci de te pencher sur mon problème.
Mais ce que tu proposes, je l'avais déjà fait sans succès avant de crier au secours sur le forum de developpez.net. Des propriétés j'en ai, mais aucune ne me permet d'éditer ces sacrés menus contextuels qui continuent malgré vents et marées de fonctionner !

J'avais créé ces menus sous AC-2003 en interactif (donc sans code VBA) en utilisant "Affichage / Barre d'outils / Personnaliser".

Cet après-midi je me suis payé le culot de réinstaller AC-2003 sur mon PC.
- 1ère chose : ma base de données ne démarre plus. Ça ne m'étonne pas.
- 2ème chose : sans la lancer (touche SHIFT), j'accède au code. Et là, surprise, je ne retrouve pas mon menu nommé "Gestion" dans "Affichage / Barre d'outils / Personnaliser" !
Je pense qu'en passant par AC-2007 puis AC-2010, ma base a été modifiée par Access. Mes menus contextuels ont été encodés dans un coin sombre du fichier mdb et s'ils fonctionnent encore ils sont inaccessibles en édition.

Je vais donc prendre mon courage à deux mains et réencoder en VBA ces menus contextuels. Je vais modifier la propriété "Barre de menu contextuel" actuellement réglée sur "Gestion" par un pointage sur mes nouveaux menus.
Seule question (sans grande importance) que je me pose : pourrai-je remettre les petites icones présentes dans mes anciens menus ?

Encore merci de ton intérêt.
Apolinaire

**Apolinaire** · 20/01/2017, 10h31

Bonjour,

Comme promis j'ai demandé à mes deux mains de prendre plein de courage. Et il en a fallu parce que la création de menus contextuels avec sous-menus dans Access n'est pas vraiment documentée.
- Dans l'aide Access il n'est question que de simples menus contextuels.
- Chez Microsoft MSDN on ne parle pas non plus de sous-menus.
- Pas plus chez Microsoft Support. La procédure par macro fonctionne bien mais impossible de créer des sous-menus (ou alors je n'ai pas trouvé) ni d'affecter des FaceID (ou alors je n'ai pas trouvé non plus).
- Au passage une solution en xml chez Microsoft MSDN où je n'ai rien compris.
- Et bien sûr visites dans un grand nombre de forums, blogs, sites perso, etc.

J'ai quand même extrait de tout cela la substantifique moelle et je suis enfin arrivé à créer mon menu contextuel avec sous-menus en VBA AC-2010.
Avec l'aide d'un super site, Developpez.com (vous connaissez ?) qui m'a fourni tous les FaceID !

Je vous propose mon code ci-dessous.
Mon menu contextuel est tel que je le souhaitais. Je vous rappelle qu'il s'agit d'une base généalogique. Vous pouvez créer ce menu dans une base Access et l'affecter à un CmdButton par exemple (Propriétés / Autres / Barre de menu contextuel). Il ne vous servira bien sûr à rien puisque vous n'avez pas les routines derrière mais je pense que c'est un bon support pour créer VOTRE propre menu ! A ce sujet, les appels .OnAction doivent se faire vers des Public Function.

Bons menus à tous.

ATTENTION: si ce code vous est utile, il n'est pas gratuit. Il coûte un "merci" à écrire à la suite dans ce fil de discussion. Je compte sur votre honnêteté.

Apolinaire

==================================================================================================================

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
Private Sub CREATE_MENUCONTEXTUEL_GESTION()
'=========================================================================
'N'exécuter qu'une seule fois cette procédure en mode VBA administrateur !
'La CommandBar est alors intégrée dans la base de données.
'Le code n'est ensuite utile que pour la modifier.
'=========================================================================
Dim mCmdBar As CommandBar
Dim mBtn As CommandBarButton
Dim mBtnPop As CommandBarPopup
Dim mBtnPopPop As CommandBarPopup
 
    'Toujours supprimer la barre existante avant de la recréer
    On Error Resume Next
        CommandBars("Gestion_new").Delete
    On Error GoTo 0
 
    'Création du menu contextuel
    Set mCmdBar = CommandBars.Add("Gestion_new", msoBarPopup)
 
    'Ajout des boutons au menu contextuel
    '=========
    'CONSULTER
    '=========
    Set mBtn = mCmdBar.Controls.Add(msoControlButton)
    With mBtn
        .Style = msoButtonIconAndCaption
        .FaceId = 1849
        .Caption = "Consulter"
        .OnAction = "ConsulterFiche"
    End With
 
    '========
    'MODIFIER
    '========
    Set mBtn = mCmdBar.Controls.Add(msoControlButton)
    With mBtn
        .Style = msoButtonIconAndCaption
        .FaceId = 548
        .Caption = "Modifier"
        .OnAction = "ModifierFiche"
    End With
 
    '=========
    'SUPPRIMER
    '=========
    Set mBtnPop = mCmdBar.Controls.Add(msoControlPopup)
    With mBtnPop
        .Caption = "Supprimer"
    End With
 
        'Une seule personne
        '==================
        Set mBtn = mBtnPop.Controls.Add(msoControlButton)
        With mBtn
            .Style = msoButtonIconAndCaption
            .FaceId = 1786
            .Caption = "Une seule personne..."
            .OnAction = "SupprimerIndi"
        End With
 
        'Personnes reliées
        '=================
        Set mBtn = mBtnPop.Controls.Add(msoControlButton)
        With mBtn
            .Style = msoButtonIconAndCaption
            .FaceId = 173
            .Caption = "Personnes reliées..."
            .OnAction = "SuppPersonnesReliées"
        End With
 
    '=================
    'GERER PHOTOS-DOCS
    '=================
    Set mBtn = mCmdBar.Controls.Add(msoControlButton)
    With mBtn
        .Style = msoButtonIconAndCaption
        .FaceId = 218
        .BeginGroup = True
        .Caption = "Gérer Photos-Docs..."
        .OnAction = "GérerPhotosDocs"
    End With
 
    '=======
    'AJOUTER
    '=======
    Set mBtnPop = mCmdBar.Controls.Add(msoControlPopup)
    With mBtnPop
        'Séparation horizontale
        .BeginGroup = True
        .Caption = "Ajouter"
    End With
 
        'Le père
        '=======
        Set mBtn = mBtnPop.Controls.Add(msoControlButton)
        With mBtn
            .Style = msoButtonIconAndCaption
            .FaceId = 95
            .Caption = "Le père"
            .OnAction = "CréerPère"
        End With
 
        'La mère
        '=======
        Set mBtn = mBtnPop.Controls.Add(msoControlButton)
        With mBtn
            .Style = msoButtonIconAndCaption
            .FaceId = 92
            .Caption = "La mère"
            .OnAction = "CréerMère"
        End With
 
        'Un enfant
        '=========
        Set mBtn = mBtnPop.Controls.Add(msoControlButton)
        With mBtn
            .Style = msoButtonIconAndCaption
            .FaceId = 84
            .Caption = "Un enfant"
            .OnAction = "CréerEnfant"
        End With
 
        'Un conjoint
        '===========
        Set mBtn = mBtnPop.Controls.Add(msoControlButton)
        With mBtn
            .Style = msoButtonIconAndCaption
            .FaceId = 82
            .Caption = "Un conjoint"
            .OnAction = "CréerConjoint"
        End With
 
    '====================
    'MODIFIER INFOS UNION
    '====================
    Set mBtn = mCmdBar.Controls.Add(msoControlButton)
    With mBtn
        .Style = msoButtonIconAndCaption
        .FaceId = 481
        .Caption = "Modifier infos union"
        .OnAction = "ModifierInfosUnion"
    End With
 
    '=============
    'LIEN FAMILIAL
    '=============
    Set mBtnPop = mCmdBar.Controls.Add(msoControlPopup)
    With mBtnPop
        .Caption = "Lien familial"
    End With
 
        'Créer
        '=====
        Set mBtnPopPop = mBtnPop.Controls.Add(msoControlPopup)
        With mBtnPopPop
            .Caption = "Créer"
        End With
 
            'est le père de
            '==============
            Set mBtn = mBtnPopPop.Controls.Add(msoControlButton)
            With mBtn
                .Style = msoButtonIconAndCaption
                .FaceId = 2308
                .Caption = "est le père de..."
                .OnAction = "CréerLienPère"
            End With
 
            'est la mère de
            '==============
            Set mBtn = mBtnPopPop.Controls.Add(msoControlButton)
            With mBtn
                .Style = msoButtonIconAndCaption
                .FaceId = 2308
                .Caption = "est la mère de..."
                .OnAction = "CréerLienMère"
            End With
 
            'est l'enfant de
            '===============
            Set mBtn = mBtnPopPop.Controls.Add(msoControlButton)
            With mBtn
                .Style = msoButtonIconAndCaption
                .FaceId = 2308
                .Caption = "est l'enfant de..."
                .OnAction = "CréerLienEnfant"
            End With
 
            'est le conjoint de
            '==================
            Set mBtn = mBtnPopPop.Controls.Add(msoControlButton)
            With mBtn
                .Style = msoButtonIconAndCaption
                .FaceId = 2308
                .Caption = "est le conjoint de..."
                .OnAction = "CréerLienConjoint"
            End With
 
        'Supprimer
        '=========
        Set mBtnPopPop = mBtnPop.Controls.Add(msoControlPopup)
        With mBtnPopPop
            .Caption = "Supprimer"
        End With
 
            'n'est plus le père de
            '=====================
            Set mBtn = mBtnPopPop.Controls.Add(msoControlButton)
            With mBtn
                .Style = msoButtonIconAndCaption
                .FaceId = 2309
                .Caption = "n'est plus le père de..."
                .OnAction = "SupprimerLienPère"
            End With
 
            'n'est plus la mère de
            '=====================
            Set mBtn = mBtnPopPop.Controls.Add(msoControlButton)
            With mBtn
                .Style = msoButtonIconAndCaption
                .FaceId = 2309
                .Caption = "n'est plus la mère de..."
                .OnAction = "SupprimerLienMère"
            End With
 
            'n'est plus l'enfant de
            '======================
            Set mBtn = mBtnPopPop.Controls.Add(msoControlButton)
            With mBtn
                .Style = msoButtonIconAndCaption
                .FaceId = 2309
                .Caption = "n'est plus l'enfant de..."
                .OnAction = "SupprimerLienEnfant"
            End With
 
            'n'est plus le conjoint de
            '=========================
            Set mBtn = mBtnPopPop.Controls.Add(msoControlButton)
            With mBtn
                .Style = msoButtonIconAndCaption
                .FaceId = 2309
                .Caption = "n'est plus le conjoint de..."
                .OnAction = "SupprimerLienConjoint"
            End With
 
    '===========
    'LIEN DIVERS
    '===========
    Set mBtnPop = mCmdBar.Controls.Add(msoControlPopup)
    With mBtnPop
        .Caption = "Lien divers"
    End With
 
        'Créer
        '=====
        Set mBtn = mBtnPop.Controls.Add(msoControlButton)
        With mBtn
            .Style = msoButtonIconAndCaption
            .FaceId = 2308
            .Caption = "Créer..."
            .OnAction = "CréerAutreLien"
        End With
 
        'Supprimer
        '=========
        Set mBtn = mBtnPop.Controls.Add(msoControlButton)
        With mBtn
            .Style = msoButtonIconAndCaption
            .FaceId = 2309
            .Caption = "Supprimer..."
            .OnAction = "SupprimerAutreLien"
        End With
 
    '======================
    'ENVIRONNEMENT FAMILIAL
    '======================
    Set mBtn = mCmdBar.Controls.Add(msoControlButton)
    With mBtn
        .Style = msoButtonIconAndCaption
        .FaceId = 43
        .Caption = "Environnement familial"
        .OnAction = "EnvFamilial"
    End With
 
    '=======
    'MEMOIRE
    '=======
    Set mBtnPop = mCmdBar.Controls.Add(msoControlPopup)
    With mBtnPop
        .BeginGroup = True
        .Caption = "Mémoire"
    End With
 
        'M+
        '==
        Set mBtn = mBtnPop.Controls.Add(msoControlButton)
        With mBtn
            .Style = msoButtonIconAndCaption
            .FaceId = 137
            .Caption = "MEM+"
            .OnAction = "MémPlus"
        End With
 
        'M-
        '==
        Set mBtn = mBtnPop.Controls.Add(msoControlButton)
        With mBtn
            .Style = msoButtonIconAndCaption
            .FaceId = 138
            .Caption = "MEM-"
            .OnAction = "MémMoins"
        End With
 
        'Lister la mémoire
        '=================
        Set mBtn = mBtnPop.Controls.Add(msoControlButton)
        With mBtn
            .Style = msoButtonIconAndCaption
            .FaceId = 172
            .Caption = "Lister la mémoire"
            .OnAction = "ListerLaMémoire"
        End With
 
        'Effacer la mémoire
        '==================
        Set mBtn = mBtnPop.Controls.Add(msoControlButton)
        With mBtn
            .Style = msoButtonIconAndCaption
            .FaceId = 47
            .Caption = "Effacer la mémoire"
            .OnAction = "MémClear"
        End With
 
    '======
    'DIVERS
    '======
    Set mBtnPop = mCmdBar.Controls.Add(msoControlPopup)
    With mBtnPop
        .BeginGroup = True
        .Caption = "Divers"
    End With
 
        'Mettre à Sosa 1
        '===============
        Set mBtn = mBtnPop.Controls.Add(msoControlButton)
        With mBtn
            .Style = msoButtonIconAndCaption
            .FaceId = 71
            .Caption = "Mettre à Sosa 1"
            .OnAction = "MettreASosa1"
        End With
 
        'Voir ligne agnatique
        '====================
        Set mBtn = mBtnPop.Controls.Add(msoControlButton)
        With mBtn
            .Style = msoButtonIconAndCaption
            .FaceId = 53
            .Caption = "Voir ligne agnatique"
            .OnAction = "VoirLigneAgnatique"
        End With
 
        'Changement de sexe
        '==================
        Set mBtn = mBtnPop.Controls.Add(msoControlButton)
        With mBtn
            .Style = msoButtonIconAndCaption
            .BeginGroup = True
            .FaceId = 1977
            .Caption = "Changement de sexe"
            .OnAction = "ChangementDeSexe"
        End With
 
        'Aperçu avant impr.
        '==================
        Set mBtn = mBtnPop.Controls.Add(msoControlButton)
        With mBtn
            .Style = msoButtonIconAndCaption
            .BeginGroup = True
            .FaceId = 109
            .Caption = "Aperçu avant impr."
            .OnAction = "ApercuAvantImprFiche"
        End With
 
        'Imprimer
        '========
        Set mBtn = mBtnPop.Controls.Add(msoControlButton)
        With mBtn
            .Style = msoButtonIconAndCaption
            .FaceId = 4
            .Caption = "Imprimer"
            .OnAction = "ImprimerFiche"
        End With
 
        'Numéro individu
        '===============
        Set mBtn = mBtnPop.Controls.Add(msoControlButton)
        With mBtn
            .Style = msoButtonIconAndCaption
            .BeginGroup = True
            .Caption = "Numéro individu"
            .OnAction = "NumIdentitéBase"
        End With
 
        'Numéro famille (FAMS)
        '=====================
        Set mBtn = mBtnPop.Controls.Add(msoControlButton)
        With mBtn
            .Style = msoButtonIconAndCaption
            .Caption = "Numéro famille (FAMS)"
            .OnAction = "NumFAMS"
        End With
 
End Sub

==================================================================================================================

**Jean-Philippe André** · 20/01/2017, 10h51

Salut,

pour les menus, on a pourtant de la litterature :
http://warin.developpez.com/access/tutorielcontext1/
http://www.developpez.net/forums/d12...-personnalise/

**Apolinaire** · 20/01/2017, 14h34

Bonjour Jean-Philippe,

Euuuuhhh, tu veux rire ?

1) Comme je l'ai dit plus haut j'ai parcouru bon nombre de forums et j'avais lu ces articles.

Mais j'y reviens 1 par 1.

2) Le lien http://warin.developpez.com/access/tutorielcontext1/ date de 2005 ! Dès le début, j'ai mis [AC-2010] dans le titre de cette discussion ! Y'avais AC-2010 en 2005 ? Ben non. Et effectivement dès le début, point 3.1, on lit "Pour créer une barre de menu personnalisée, il suffit de réaliser un clic droit dans la barre de menu Access et sélectionner Personnaliser". Essaie de le faire sous Access 2010 ! Avec son ruban.

3) Le lien http://www.developpez.net/forums/d12...-personnalise/ donne la solution par macros dont j'ai également parlé ci-dessus. Si tu arrives avec cette méthode à créer des sous-menus avec des FaceID, je suis preneur.

Le principal est que je me rends compte que mon effort à communiquer un bout de code introuvable sur internet t'a enthousiasmé. Alors si tu t'en sers, n'oublie pas de dire merci...

Apolinaire

**Jean-Philippe André** · 20/01/2017, 15h48

Hum,
dans l'onglet autre des proprietes tu trouveras un item Shortcut Menu Bar (barre de menu contextuel)
En cliquant sur l'aide

tu trouves un exemple.

Je ne pretends pas savoir le faire en 2/2 mais ca reste la piste la plus aboutie que je peux te proposer.

**Apolinaire** · 20/01/2017, 16h27

Je connais bien cette propriété dont je parle ici :

Envoyé par Apolinaire

Je vais donc prendre mon courage à deux mains et réencoder en VBA ces menus contextuels. Je vais modifier la propriété "Barre de menu contextuel" actuellement réglée sur "Gestion" par un pointage sur mes nouveaux menus.
Apolinaire

et ici :

Envoyé par Apolinaire

Vous pouvez créer ce menu dans une base Access et l'affecter à un CmdButton par exemple (Propriétés / Autres / Barre de menu contextuel).

Ne t'inquiète pas Jean-Philippe, j'ai trouvé une solution qui fonctionne et je ne cherche aujourd'hui qu'à en faire profiter d'autres en proposant mon code. Pendant mes 2 jours de surf intensif j'ai trouvé plein de gens qui s'arrachaient les cheveux avec cette histoire de menus contextuels créés sous AC-2003 et inéditables sous AC-2010. Et jamais de solution claire apportée.
Alors j'espère que ma modeste contribution à ce forum fera des heureux.

That's all folks.

**Apolinaire** · 20/01/2017, 22h30

Merci Marot d'avoir reformaté mon code dans une fenêtre adéquate. Je n'avais pas trouvé comment faire lors de la rédaction. C'est la balise "Code" (#) non ?

**ptitga** · 19/10/2018, 18h04

Bonsoir,

Un grand MERCI à Appolinaire pour ce petit bout de code qui m'a permis de réaliser mon menu contextuel . Nous sommes en 2018 et j'utilise Office 2016.
Bravo pour le travail et la collaboration.
Ciordialement

**Apolinaire** · 20/10/2018, 11h02

Bonjour ptitga,
Très heureux de t'avoir aidé plus d'un an et demi après ! Il faut dire que ce genre de bout de code n'a pas d'âge et pourra encore servir longtemps, je l'espère.
Bonne journée et bon codage.