[AC-2010] Code VBA pour ruban perso

Code VBA pour ruban perso

Bonjour,

Je découvre la cration de ruban personnalisé sous access 2010.
J'ai utilisé l'assistant ruban mis en ligne par (arkham46.developpez.com/) et je peux voir les onglets créés dans mon applicatif.

Voici le code XML :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="tab1" label="TAB"> <group id="group1" label="GROUPE"> <button id="button1" label="Mon bouton" imageMso="ChartTypeOtherInsertGallery"/> <button id="button2" label="Mon bouton" imageMso="ChartTypeOtherInsertGallery"/> <menu id="menu1" label="Mon menu"> <button id="button3" onAction="button3_OnAction" label="Sélection catalogue"/> </menu> </group> </tab> </tabs> </ribbon> </customUI>
En revanche, je n'arrive pas à associer un évènement sur un bouton.
J'ai bien créé un module 'ruban_perso' dans lequel j'ai mis une action :
Code:

1 2 3 4 5 Private Sub button3_OnAction(control As IRibbonControl) DoCmd.OpenForm "F_Synthèse Catalogue", acNormal, "", "", , acNormal End Sub
Lorsque je clique sur mon bouton 'Sélection catalogue', j'ai le message suivant :

Microsoft acces ne peut pas executer la macro ou fonction callback "Ribbon_onAction"
Assurez vous que celle-ci existe et que ces parametres sont valides.

J'ai bien activé Microsoft Office 14.0 Object Library, mais pas moyen d'ouvrir mon formulaire.

Merci de votre aide précieuse.
Cordialement

Bonsoir,

Essaies simplement :
Code:

1 2 3 Private Sub button3_OnAction(control As IRibbonControl) DoCmd.OpenForm "F_Synthèse Catalogue" End Sub
C'est ta dernière variable qui n'est pas bonne.

Cordialement

Christophe

Bonjour,

Il y a une incohérence dans les noms de module. Depuis l'apply d'Arkham il y a un bouton VBA, que se passe t-il lors du clic sur ce bouton ?

Dolphy ;)

Bonjour Marsouin,
Citation:
Envoyé par marsouin_89
Bonsoir,

Essaies simplement :
Code:

1 2 3 Private Sub button3_OnAction(control As IRibbonControl) DoCmd.OpenForm "F_Synthèse Catalogue" End Sub
C'est ta dernière variable qui n'est pas bonne.

Cordialement

Christophe
J'ai supprimé la dernière variable mais toujours le même message.
En revanche, en bidouillant un peu, j'ai supprimé le 'Private' de la fonction et j'ai enfin pu ouvrir mon formulaire : comme quoi ....

Bonjour Dolphy,

Citation:

Envoyé par Dolphy35

Bonjour,

Il y a une incohérence dans les noms de module. Depuis l'apply d'Arkham il y a un bouton VBA, que se passe t-il lors du clic sur ce bouton ?

Dolphy ;)

J'ai regardé attentivement l'apply d'Arkham mais je n'ai pas vu de bouton VBA.
Il se trouve où ?
J'ai la version 2.0.5. du 01/12/2011.
Y en a t'il une nouvelle ?

Merci à tous les 2.
Cdt

Bonjour,

C'est bien la dernière version ;)

Lorsque tu es dans les propriétés de ton bouton et que tu sélectionne OnAction sur la droite tu as un bouton VBA, celui-ci permet de basculer vers le module VBA de ton bouton. Si tu clic sur ce bouton l'application se positionne t'elle sur la bonne procédure ?

Sinon enlève le Private de la procédure.

Dolphy ;)

1 pièce(s) jointe(s)

Bonjour Dolphy,

Citation:

Envoyé par Dolphy35

Bonjour,

C'est bien la dernière version ;)

Lorsque tu es dans les propriétés de ton bouton et que tu sélectionne OnAction sur la droite tu as un bouton VBA, celui-ci permet de basculer vers le module VBA de ton bouton. Si tu clic sur ce bouton l'application se positionne t'elle sur la bonne procédure ?

Sinon enlève le Private de la procédure.

Dolphy ;)

Désolé, je dois être bigleux mais je n'ai aucun bouton VBA à droite de OnAction.
J'ai la valeur proposée : Ribbon_OnAction et la signature : Sub Ribbon_OnAction(control As IRibbonControl)

Je te joins une capture pour te montrer ma vue.
Merci de ton aide.

Cordialement