Discussion :

[Kuky18]

Bonjour,

Je suis débutant en Access VBA et je fait face à une erreur de CallBack avec mon ruban personnalisé.

Pour réaliser mon ruban, j'ai suivi le tuto de Warin et je n'arrive pas à lier un évènement sur un bouton.

Voici mon fichier 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>
      <tabs>
         <tab id="tabUtilisateur" label="Utilisateurs" visible="true">
         <group id="grpAjout" label="Ajout">
             <button id="btnAjout" label="Ajouter un utilisateur"
                        onAction="Ajouter" size="large"/>
         </group>
         </tab>
      </tabs>
   </ribbon>
</customUI>

Et donc en VBA j'ai fait un test tout simple :

Code :

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

1
2
3
4
 
Sub Ajouter(control As IRibbonControl)
    MsgBox ("Salut")
End Sub

Mais j'obtiens un message d'erreur...

Microsoft Office Access ne peut pas exécuter la macro ou la fonction CallBack "Ajouter".

Si vous avez des conseils, je vous en serais reconnaissant.

Merci par avance !

[Dixies]

Bonsoir.

Et donc en VBA j'ai fait un test tout simple :

Code :

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

1
2
3
4
 
Sub Ajouter(control As IRibbonControl)
    MsgBox ("Salut")
End Sub

Essaie ceci :

Code :

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

1
2
3
Sub Ajouter(control As IRibbonControl)
    MsgBox "Salut"
End Sub

Mettre des parenthèses dans un MsgBox sous-entend une condition à venir.
Là ce n'est pas le cas.

Cdlt

[Kuky18]

Merci pour ton aide mais malheureusement ca ne marche toujours pas...

Je commence à désespérer...

J'ai toujours cette erreur.

[Dixies]

Bonjour.

Essaie ceci (ton bouton s'appelle btnAjout) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 
   <ribbon startFromScratch="true">
      <tabs>
         <tab id="tabUtilisateur" label="Utilisateurs" visible="true">
         <group id="grpAjout" label="Ajout">
             <button id="btnAjout" label="Ajouter un utilisateur" onAction="Ribbon_OnAction" size="large"/>
          </group>
         </tab>
      </tabs>
   </ribbon>
</customUI>

Bonne journnée.

[Kuky18]

Toujours la même...

"Microsoft Office Access ne peut pas exécuter la macro ou la fonction callback "Ribbon_OnAction"."

"Assurez vous que celle ci existe et que ses paramètres sont valides."

[Arkham46]

bjr,

dans l'éditeur : outil => références
il faut cocher Microsoft Office 12.0 Object Library (pour que IRibbonControl soit reconnu)

pensez à compiler (Débogage => Compiler) pour vérifier qu'il n'y a pas d'erreur dans le code VBA

[Kuky18]

Merci Arkham46 de te pencher sur mon problème, j'ai cru comprendre que tu maitrisais le sujet

Pour la librairie c'est bon, elle était indiquée sur les tutos.

Après avoir suivi ton conseil, j'ai vérifié le code VBA et apparemment il y as une erreur de type mais je ne voit pas ce que je doit définir sur cette procédure.

Code :

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

1
2
3
4
 
Sub Ribbon_OnAction(Control As IRibbonControl)
    MsgBox ("Salut")
End Sub

[Arkham46]

Pour la librairie c'est bon, elle était indiquée sur les tutos.

Après avoir suivi ton conseil, j'ai vérifié le code VBA et apparemment il y as une erreur de type mais je ne voit pas ce que je doit définir sur cette procédure.

bizarre si le type n'est pas défini (c'est sûrement le IRibbonControl) c'est qu'il manque la référence
tu peux éventuellement essayer de la décocher, de valider, puis de réouvir les références et de la recocher

[Kuky18]

Vous allez me prendre pour un boulet, mais il m'est impossible de la décocher puis de la recocher...

Même avec une base Access vide...

[Dixies]

Bon, moi j'ai testé et ça marche !!!!

Code :

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

1
2
3
4
5
6
7
Sub Ribbon_OnAction(control As IRibbonControl)
Select Case control.ID
Case "btnAjout"
    MsgBox "Salut"
 
End Select
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <ribbon startFromScratch="true">
         <tabs>
              <tab id="tabUtilisateur" label="Utilisateurs">
                   <group id="grpAjout" label="Ajout">
                        <button id="btnAjout" label="Ajouter un utilisateur" onAction="Ribbon_OnAction"/>
                   </group>
              </tab>
         </tabs>
    </ribbon>
</customUI>

Tchaoo !

[Arkham46]

Vous allez me prendre pour un boulet, mais il m'est impossible de la décocher puis de la recocher...

Même avec une base Access vide...

attention c'est Microsoft Office 12.0 Object Library et non pas Microsoft Access 12.0 Object Library

[Kuky18]

Bon ca devait venir de la librairie, elle s'est désactivée puis en la réactivant cela a marché...

Bizarre...

En tout cas merci à tous ! Je vais pouvoir enfin jouer avec le ruban