executer une action dans un ruban personnalise

**lecaire** · 26/03/2010, 13h40

Bonjour
Très interressé par le tutoriel de WARIN sur les RUBANS PERSONNALISES
J’arrive de mettre en place un ruban perso
Par contre lorsque je tente de lancer une action grace a un clique sur un bouton se trouvant sur le ruban, j’ai un message d’erreur « MICROSOFT ACCESS NE PEUT PAS EXECUTER LA MACRO OU LA FONCTION CALLBACK « btnEssai_action »
ASSUREZ-VOUS QU’ELLE EXISTE ET QUE SES PARAMETRES SONT VALIDES
Ci-dessous mon code xml

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 
   <ribbon startFromScratch="true">
      <tabs>
         <tab id="tabEvenement" label="TEST RUBAN" visible="true">
         <group id="grpEnregistrement" label="Enregsitrements">
             <button id="btnEssai" label="ESSAI" size="normal" onAction="btnEssai_action"/>
 
		 </group>
         </tab>
      </tabs>
   </ribbon>
</customUI>

Ci contre mon code vba

Code :

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

1
2
3
Public Sub btnEssai_action(ByVal control As IRibbonControl)
    MsgBox "yes"
End Sub

J’aimerais bien savoir ce qu’il manque a mon code vba ou xml pour declencher l’action sur un clique sur le bouton .
Bien merci

Invité · 27/03/2010, 07h16

Bonjour
AS tu bien coché la référence "Microsoft Office 12 Object Library".

**lecaire** · 27/03/2010, 12h30

Oui la référence "Microsoft Office 12 Object Library" a été coché
Dans le tuto de WARIN (VI A.1) , c'est mentionné << l'argument control de la procedure represente le controle à l'origine du traitement>>
y'a til encore une procedure ajouter pour declencher un évènement?

Bien merci pour votre aide

**FreeAccess** · 27/03/2010, 13h05

Bonjour,

En retour d'infos......ton code fonctionne correctement.

Méthode choisie:
Définition du ruban dans une table USysRibbons, contenant ces trois champs:
- lngID (NumAuto)
- RibbonName (Texte)....contenant le nom du ruban
- RibbonXML (Mémo) .....contenant le XML

Les fonctions CallBack copiées dans un module...

....puis dans Options Access > Base de données active > Options de la barre d'outils et du ruban > xxxxx (nom de ton ruban)

....tu relance ta base et à l'ouverture ton ruban devient actif.....

Invité · 27/03/2010, 13h13

j'ai testé ton code. Le voici appliqué

Il fonctionne.

**lecaire** · 04/04/2010, 21h32

Bien Merci pour vos reponses
En fait bien que la base fournit par GAYOT fonctionne, elle ne comporte pas le fichier xml permettant de creer un ruban personnalisé.
Aussi je me permets de vous faire parvenir un formulaire pour que vous puissiez constater le message d'erreur que je recois et très certainement m'aider à executer une action depuis un bouton sur mon ruban personnalisé

Bien Cordialement!

Invité · 04/04/2010, 22h26

Bonsoir
Le code Xml est dans la table USysRibbons.

**FreeAccess** · 04/04/2010, 23h32

Bonjour,

Comme précisé dans les posts précédents, la méthode utilisé dans les exemples pour charger le ruban se fait à partir d'un table nommée USysRibbons...

Pour ta part, tu as choisi un fichier XML exterieur (c'est aussi une possibilité.)....par contre le message d'erreur est limpide...

....et pour cause, tu n'as pas de Sub qui s'appelle btnEssai_action......mais à la place tu as une Sub btnDupliquer_action