Discussion :

[jjr_bayonne]

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

[loufab]

Bonjour,
Je ne suis pas féru de ruban mais peut-être que dans ce tuto tu trouveras ton bonheur :

http://warin.developpez.com/access/ruban/

Cordialement,

[jjr_bayonne]

Bonjour et merci pour la réponse et le lien
(j'avais vu ce tuto et qcq autres : il y en a assez pour comprendre que l'usage des rubans n'est pas des plus aisé)

Mais mon PB est peut être dans le code VBA ou/et dans l'accès aux routines. Je m'explique :
le code XML de spécif du "ruban perso" est le suivant. Qd il appelle une Macro çà marche, mais pas pour appeler une routine

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="false">
    <tabs>
      <tab id="tab_1" label="MENU de GESTION" visible="true">
      	<group id="idg_visu" label="Visualisations">
			<button id="Run1" label="go_function" onAction="MCode_V1"/>
(...)
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

Le code appelé est simplissime, MAIS il est placé dans le module Mod_BD


D'où une piste. La routine pourrait ne pas être reconnue parce que mal placée : le ruban est appelé depuis la BD elle même (sa racine) et pas depuis un de ses composant (Form, ...)
Et ma question ! Comment nommer le Sub appelé (dans le code XML) avec son chemin dans le structure des objets (mon expression "chemin" n'est pas adéquate)
xxxx . Mod_BD . MCode_V1

Ceci pour le cas où tu aurais une idée
Bien cordialement

[loufab]

A première vu tu ne respectes pas le contrat d'utilisation des rubans.

La procédure doit avoir cette syntaxe :

Code :

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

Sub onAction(ByVal control As IRibbonControl)

[jjr_bayonne]

Re,

NON
comme je n'utilise pas le controle ? (à ce stade de mon test d'un ruban) y a pas de raison (sauf si l'OS génère ce param automatiquement depuis le xml)

OUI
mais si je vais pour le récupérer (avec la syntaxe standard que tu donnes) j'ai la même erreur que dans le cas précédent (appel de MCode_V1)
... mais, dans ce cas, la compil du module me donne une non déclaration du As IRibbonControl (alors que sa library est déclarée)

Ceci si çà pouvait d'aider pour ton secours de moi un peu perdu et que le sable de la plage appelle, ....
A +, crdlt

[jjr_bayonne]

Bonsoir Loubaf,
après reflexion je me suis dit que l'explication devait être ailleurs que là où je la cherchais
... il me manquait une librairie : MSO 12.0 Object Library
Comme quoi on cherche parfois là où ne faut pas

Merci pour ton écoute
Bien cordialement et bon dimanche

[loufab]

En effet si les références requises sont manquantes ça ne peut que pas fonctionner. Vérifie dans tes réglages VBE que la compilation sur demande ne soit pas cochée, sinon tant que tu ne compile pas explicitement il ne t'indique pas les erreurs de ce genre.

Cordialement,

[jjr_bayonne]

salut loubaf
effectivement, c'est en compilant que je m'en suis aperçu
... les bugs ne sont pas tjrs là où on les croit
Bien crdlt à toi, et encore merci pour l'accompagnement