Discussion :

[CmzxNene]

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 :

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

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 :

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

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

[marsouin_89]

Bonsoir,

Essaies simplement :

Code :

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

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

[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

[CmzxNene]

Bonjour Marsouin,

Bonsoir,

Essaies simplement :

Code :

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

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,

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

[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

[CmzxNene]

Bonjour Dolphy,

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