Récupérer les OnAction des options d'une CommandBar

Bonjour,

Ma principale application a été migrée depuis Access 2003, pour laquelle j'avais développé un menu personnalisé.

Ce menu se retrouve bien en "Compléments" sous Access 2007, et je voudrais le faire évoluer (après étude, je ne passe pas pour l'instant à la création d'un ruban selon le tuto de Developpez.com, car je ne maîtrise pas encore assez les finesses ergonomiques induites par l'outil).

J'ai donc réussi à déterminer que mon menu personnalisé était adressable en VBA par Application.Commandbars(25), je liste bien les options du menu par Application.Commandbars(25).Controls(n), mais au sein de chacun de ces menus déroulants, je voudrais retrouver les options que j'avais établies, et surtout les actions correspondantes.

En d'autres termes, à quelle collection ces dernières options appartiennent-elles et auxquelles appliquer la propriété .OnAction pour les obtenir ?

Merci d'avance de vos lumières.

Vincent.

Bonjour

As-tu lu ce tuto Personnaliser vos barres de commandes dans Access et celui-là Remplacement du ruban par des menus dans Access 2007 tu devrais y trouver des informations utiles (surtout le premier pour comprendre le code des barres.

Philippe

Merci de ta réponse.

Oui, je me suis servi de barrecommande.pdf pour comprendre le fonctionnement des barres, mais je n'ai pas trouvé de réponse à ma question, que je peux aussi formuler de cette façon en reprenant le contexte du tuto : quand on défini des options de menus avec set btn = cmd.Controls.Add(msoControlButton), par quelle collection accède-t-on à la liste des "boutons" ainsi ajoutés ?

Quant au 2ème tuto, il n'a d'intérêt que lorsqu'on veux travailler sur une base .mdb depuis Access 2007, or j'ai bien converti la mienne en .accdb

Vincent

J'ai trouvé : il suffisait de redécliner les contrôles (ce qui n'est pas indiqué dans les choix de l'explorateur d'objets !), donc du genre :
? application.CommandBars(25).controls(n).controls(n).OnAction