Discussion :

[nicolas2603]

Bonjour, je suis en train de suivre le tuto qui permet de créer son ruban personnalisé pour une application Access 2007 : http://warin.developpez.com/access/ruban/. Je rencontre une difficulté que je n'arrive pas à résoudre, apparemment la procédure OnAction ne fonctionne pas sur mon bouton personnalisé "btnOuvrirFilmographie".

J'ai donc un fichier XML comme ceci :

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
16
17
18
19
20
21
22
<?xml version="1.0" encoding="utf-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 
	<ribbon startFromScratch="true">
			<tab id="tabFilmographie" label="Filmographie" visible="true">
				<group id="grpAfficherFilmographie" label="Base">
					<button id="btnOuvrirFilmographie" label="Ouvrir la base de donnees" imageMso="FileOpenDatabase" size="large" onAction="ouvrirFilmographie_action"/>
				</group>
        		<group id="grpGestionFilmographie" label="Gestion">
					<button idMso="GoToNewRecord" label="Ajouter un film" size="large"/>
					<separator id="separateurFilmographie1"/>
					<button idMso="RecordsSaveRecord" label="Enregistrer film" size="large"/>
					<separator id="separateurFilmographie2"/>
					<button idMso="RecordsDeleteRecord" label="Supprimer le film" size="large"/>
				</group>
				<group id="grpRechercheFilmographie" label="Recherche">
					<editBox id="txtNomFilmographie" label="Nom :"/>
					<button id="btnRechercherFilmographie" label="Rechercher" imageMso="FindDialog" size="large"/>
				</group>
        	</tab>
      </tabs>
   </ribbon>
</customUI>

Et mon code VBA placé sur le formulaire principal qui appelle le ruban :

Code :

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

1
2
3
4
5
Option Compare Database
 
Public Sub ouvrirFilmographie_action(ByVal control As IRibbonControl)
    MsgBox "Vous avez cliqué sur le bouton " & control.Id
End Sub

Lorsque je clique sur le bouton, j'ai le message suivant :
"L'application ne peut pas exécuter la macro ou la fonction callbak "ouvrirFilmographie_action"".

J'ai bien en références "Microsoft Scripting Runtime" et "Microsoft Access 12 Object Library". Alors, une idée ? Merci d'avance.

[curt]

Bonjour Nicolas,

je n'ai pas access 2007 sous la main, mais il manque

Code :

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

<tabs>

(bizarre, tu as pourtant bien mis </tabs>

ci-joint l'en-tête à placer :

Code :

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

1
2
3
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 
   <ribbon startFromScratch="true">
      <tabs>

Pour ce qui est du VBA, ça devrait tourner... au cas où, j'essaie ce soir et tu auras la réponse demain matin.

Curt

[nicolas2603]

Salut, effectivement il manque <tabs> dans le code que j'indique, mais c'est une erreur de frappe car il y est bien dans mon XML !! Pour le VBA oui je ne comprends pas pourquoi il n'interprète pas le code, j'ai suivi à la lettre le tuto ...

[=JBO=]

Bonjour,

Le problème vient peut être du fait qu'avec Access en général les procédures appelées via l'interface utilisateur (IHM), les macros, etc. doivent être des Function et non pas des Sub.
Mais je ne connais pas Access 2007 et les choses ont très bien pu évoluer depuis Access 1.0 .

Remplace Sub par Function et dis nous ce qu'il en est.

[EDIT]
Oups, je crois que j'ai compris le problème:

Et mon code VBA placé sur le formulaire principal qui appelle le ruban :

Il faut déclarer la procédure dans un module de code (indépendant de tout formulaire).
[/EDIT]
_

[nicolas2603]

Alors j'ai essayé les possibilités mais j'ai toujours le même message d'erreur. Voilà ce que j'ai fait.

1- J'ai remplacé dans mon VBA sur le formulaire qui appelle le ruban la procédure Sub par Function -> marche pas

2- Je l'ai enlevé de là, je l'ai placé dans un module de code comme ça :

Code :

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

1
2
3
Public Function ouvrirFilmographie_action(ByVal control As IRibbonControl)
    MsgBox "Vous avez cliqué sur le bouton " & control.Id
End Function

-> marche pas

3- Dans le module de code j'ai remplacé la Function par Sub -> marche pas non plus ...

Le message d'erreur est toujours le même dans tous les cas :
L'application ne peut pas exécuter la macro ou la fonction callbak "ouvrirFilmographie_action / Assurez-vous que celle-ci existe et que ses paramètres sont valides"

[=JBO=]

J'ai lu "en diagonale" le tutoriel sur les rubans.

Effectivement, il faut bien déclarer une procédure Sub conforme à la syntaxe:

Code :

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

Sub onAction(ByVal control As IRibbonControl)

Je n'ai pas lu de précision sur l'emplacement de la procédure, mais dans un module de code indépendant, ça me semble très pertinent.

Aussi, je ne sais pas comment t'aider, mais ce que tu as fait (point 3 de ton précédent post) semble conforme aux règles à respecter.

As-tu bien pensé à compiler ton code pour voir d'éventuelles erreurs !?
Sans oublier l'indispensable Option Explicit en début de tous les modules de code...
_

[nicolas2603]

Oui j'ai bien l'Option Explicit au début du code. Je n'avais pas pensé à compiler, et j'ai effectivement une erreur sur la ligne suivante :

Code :

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

Public Sub ouvrirFilmographie_action(ByVal control As IRibbonControl)

où le message est "type défini par l'utilisateur non défini". Apparemment ça viendrait donc du type de variable qui n'est soit pas défini et donc pas reconnu, soit la variable est correcte mais la bibliothèque correspondante n'est pas déclarée !! Je sèche ...

[=JBO=]

J'ai bien en références "Microsoft Scripting Runtime" et "Microsoft Access 12 Object Library". Alors, une idée ? Merci d'avance.

D'accord, je pense qu'il s'agit d'ajouter la référence à la bibliothèque:
"Microsoft Office 12 Object Library"

Tu as bien lu: Office.
Access c'est obligé, il faut ajouter Office en plus.
_

[nicolas2603]

et la voilà la solution qui va bien !!!
Effectivement je n'avais pas ajouté cette référence-là, maintenant ça fonctionne ! Merci pour ta patience.

[systemosss]

J'ai eu le même problème aujourd'hui, j'ai buggé 1 heure... Merci pour la réponse.