Bonjour à tous,
Voici plusieurs jours que je parcours le net à la recherche d'une solution au problème suivant:
Afin d'automatiser la création de commentaires dans mes programmes VBA Access, je souhaite avoir dans l'editeur VBA un bouton qui lance une sub bien précise se trouvant dans un module standard.

Pour cela j'ai créé:
- une Barre d'outils personnalisée nommée "CmdBar1"
- un bouton nommé "MonBouton" dans cette barre d'outils
- un Module standard nommé "Module1"

j'utilise la propriété OnAction pour définir la sub à appeler mais cela ne fonctionne pas sans pour autant me renvoyer d'erreur.

voici mon code :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Sub TestBouton()
 
    VBE.CommandBars("CmdBar1").Controls(1).Caption = "MonBouton" ' permet de verifier visuellement que j'accède au bon bouton
 
    VBE.CommandBars("CmdBar1").Controls(1).OnAction = "MySubTest"
    VBE.CommandBars("CmdBar1").Controls(1).Execute
 
    VBE.CommandBars("CmdBar1").Controls(1).OnAction = "MySubTest()"
    VBE.CommandBars("CmdBar1").Controls(1).Execute
 
    VBE.CommandBars("CmdBar1").Controls(1).OnAction = "=MySubTest"
    VBE.CommandBars("CmdBar1").Controls(1).Execute
 
    VBE.CommandBars("CmdBar1").Controls(1).OnAction = "=MySubTest()"
    VBE.CommandBars("CmdBar1").Controls(1).Execute
 
 
    VBE.CommandBars("CmdBar1").Controls(1).OnAction = "Module1.MySubTest"
    VBE.CommandBars("CmdBar1").Controls(1).Execute
 
    VBE.CommandBars("CmdBar1").Controls(1).OnAction = "Module1.MySubTest()"
    VBE.CommandBars("CmdBar1").Controls(1).Execute
 
    VBE.CommandBars("CmdBar1").Controls(1).OnAction = "=Module1.MySubTest"
    VBE.CommandBars("CmdBar1").Controls(1).Execute
 
    VBE.CommandBars("CmdBar1").Controls(1).OnAction = "=Module1.MySubTest()"
    VBE.CommandBars("CmdBar1").Controls(1).Execute
 
End Sub
 
Public Sub MySubTest()
    MsgBox "Oh ce bouton fonctionne!"
End Sub
Merci d'avance pour votre aide.