Discussion :

[lmc71]

Bonjour le Forum

J'essaye d'apprendre à construire le ruban personnalisé dans un fichier access 2007. Pour ce faire, je m'appuie sur le tutoriel " Création de rubans personnalisés sous Microsoft Access 2007 " de Christophe Warin.
Actuellement je suis arrivé à créer les onglets, avec des boutons de control.
Pour pouvoir avancer j'aurais une question et une demande :
Question : Est-ce-qu'il est possible que la macro Autexec qui exécute le LoadRibbon() soit exécutée depuis le lancement du fichier et non à partir d'un formulaire ?
Demande : Lorsque j'utilise La procédure événementielle onAction sur un control qu'elle est le code à utiliser dans le VBA.
J'ai essayé ceci

Code :

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

1
2
3
Public Sub btnDepense_action(ByVal control As IRibbonControl)
     DoCmd.OpenForm "Depense" & control.Id
End Sub

mais Microsoft Access ne peut exécuter la macro ou la fonction callback.
Je pense que cette ligne de code ( DoCmd.OpenForm "Depense" & control.Id) n'est pas valable, car lorsque que j'utilise cette ligne (MsgBox "Vous avez cliqué sur le bouton " & control.Id) le bouton control fonctionne et ouvre le message.
Où pourrais-je trouver le code pour ouvrir un Formulaire, un Etat ou une Requête avec un bouton control du ruban personnalisé sans passer par idMso

Je joins le fichier RubanPersoCours qui vous montre où j'en suis. C'est en ouvrant le formulaire TblEvenement que le ruban personnalisé se met en place. C'est dans l'onglet Formulaire que j'ai placé le control Depense qui me pose problème.
En vous remerciant d'avance.
Cordialement

[marot_r]

Bonjour.

mais Microsoft Access ne peut exécuter la macro ou la fonction callback.

Est-ce que

1. tu as un message d'erreur ?
2. pas d'exécution du tout ?
3. autre chose ?

As-tu mis un point d'arrêt dans ta fonction pour voir si le code était bien appelé ?

A+

[lmc71]

Re
Apparemment tu n'as pas essayé d'ouvrir le formulaire TblEvenement.
1 = Oui : Mircosoft Office Access ne peut pas exécuter la macro ou la fonction CallBack "" BtnDepense_Action "" Assurez vous que celle-ci existe ou que ses paramètres soient valides
2 = Non
3 = non

Merci pour ta réponse rapide

Lors de mon premier message j'ai posé une question concernant l'exécution de la macro Autoexec au démarrage du fichier. J'ai trouvé la solution. Il suffit de mettre le nom du ruban personnalisé dans : Options Access / Base de donnée active / Options de la barre d'outil et de ruban et Nom ruban.

Bonjour.



Est-ce que

1. tu as un message d'erreur ?
2. pas d'exécution du tout ?
3. autre chose ?

As-tu mis un point d'arrêt dans ta fonction pour voir si le code était bien appelé ?

A+

[marot_r]

Je crois que le Call est case sensitive. En tout cas le XML l'est.

Change le nom btnDepense_action pour BtnDepense_Action.

Parce que j'ai fait le tutorial au complet sans problème.

A+

[lmc71]

Je crois que le Call est case sensitive. En tout cas le XML l'est.

Change le nom btnDepense_action pour BtnDepense_Action.

Parce que j'ai fait le tutorial au complet sans problème.

A+

Re
Merci de ta réponse, j'essayerai ta solution. Dans le tutorial de Christophe Warin , je cite " btnDupliquer_action " Il n' y a pas de majuscule. C'est la raison pour laquelle j'ai écris de la sorte.
Je vais t'avouer que je ne connais rien en VBA et XML, mais en bidouillant je suis arrivé à ouvrir un formulaire ou autre avec le code VBA suivant :
Sub btnEntree(ByVal control As IRibbonControl) ' Ouverture formulaire Entrée
DoCmd.OpenForm "8 Sélection Entrée"
End Sub
Ne me demande pas pourquoi je ne saurais l'expliquer, mais cela fonctionne très bien.
Merci encore de t'être pencher sur mon souci. Je reviendrai peut-être vers toi si j'ai un soucis dans ma progression.
Cordialement