Bonsoir,
Je reprends -pour aider- un job de développeur (ici VBA pour accesss 2007)
J'ai un Pb sans doute de débutant dans la nanip de l'éditeur VBA MS
Merci pour l'aide à venir

1) mon code vba (assez volumineux) est organisé par formulaires
- projet BD_Thermal (....BD courante)
Form_1
....
Form_n
Mod_BD

2) mon code XML du ruban perso fonctionne bien pour un appel (Run1) de Macro,
mais pas pour un callback de procédure (Visu2), que ce soit une Function ou Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <ribbon startFromScratch="false">
    <tabs>
      <tab id="tab_1" label="MENU 1" visible="true">
      	<group id="idg1_visu" label="Visualisations">
            	<button id="Run1" label="Repondants" onAction="M_Repondants"/>
  		<button id="visu2" label="Relations" onAction="ButtonOnAction"/>
3) le code appelé par onAction="ButtonOnAction" est basique (pour test) :
MAIQ IL EST DANS LE MODULE "Mod_BD"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Option Compare Database
Public Function ButtonOnAction(control As IRibbonControl)
    Select Case control.id
        Case "visu2"
            MsgBox "appel de visu2"
        ...
        Case Else
            MsgBox "Else avec : " & control.id & "   click"
    End Select
End Function
Quelle est l'origine du défaut ? (nota : Menu_1 se charge comme prévu dans la barre Menu)
Serait-ce que le code de 'Function ButtonOnAction' ne serait pas accessible là où il est ?
Ou bien un type d'objet non défini ? (mais 'MS Office 12.0 Object Library' est activé via Outils/Ref)
Ou toute autre chose ?

Merci pour le déblocage, bien cordialement