Discussion :

[lulu Co]

Bonjour,

Je suis formatrice en bureautique dans une école et j'ai installée une application Access sur des postes du réseau. Je dois pouvoir créer automatiquement une barre d'outils comprenant deux boutons qui seront associées à deux petites macros.

Je ne fais pas de développement mais je suis obligée d'utiliser le VBA pour cette action. Voici la syntaxe mise en œuvre. Pourriez-vous y jeter un coup d'œil et m'aider à rectifier cette syntaxe. J'obtiens la barre d'outils mais je n'arrive pas a avoir le texte des boutons, je n'ai que les info-bulles.

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
Set cmb = Application.CommandBars.Add("FILTRE4", , False)
'Syntaxe suivante ne passe pas lors de l'exécution du code, bloque sur msoControlButton :
Set btn = cmb.Controls.Add(msoControlButton)
 
With btn
    .begingroup = True
    .Caption = "Modifier le filtre"
    .Style = msoButtonCaption
End With
 
Set btn = cmb.Controls.Add(msoControlButton)
With btn
    .begingroup = True
    .Caption = "Appliquer le filtre"
    .Style = msoButtonCaption
 
End With
cmb.Visible = True
Application.CommandBars("FILTRE4").Controls(1).onaction = "MODIFIER FILTRE"
Application.CommandBars("FILTRE4").Controls(2).onaction = "APPLIQUER FILTRE"

Merci par avance pour votre aide, car je désespère un peu et n'arrive pas à terminer cette application pour cela !

Cordialement

[Invité]

Bonjour et bienvenue sur le forum Office de DVP

Je trouve bizarre que tu n'ais pas le texte, car tu utilises le bon style (msoButtonCaption) pour tes boutons de barre d'outils.

A première vu ton code me semble correct.

Que se passe-t-il si tu utilises le style : msoButtonIconAndCaption ?

Edit : Je viens de tester ton code sur Access 2002, il fonctionne parfaitement, et il n'y a pas de raison que cela ne fonctionne pas sous Access 2003.

Comment as-tu déclaré cmb et btn ?
Est-ce comme cela ?

Code :

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

1
2
3
 
Dim cmb As Office.CommandBar
Dim btn As Office.CommandBarButton

Philippe

[lulu Co]

Bonjour Philippe,

Merci pour ta réponse. Voici la syntaxe complète. En fait, comme je veux attacher ce code à un bouton, je l'ai mis dans les procédures évènementielles et je me retrouve en Private sub. J'ai désactivée les deux syntaxes de déclaration car je n'arrivais pas à avancer. Ne te moques pas, je sais que pour toi cela va te faire hurler de rire !

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
Private Sub Commande1_Click()
'Syntaxe désactivée :
'cmb As office.commandbar
'btn As office.CommandBarbutton
 
On Error GoTo Erreur
'Afficher la barre d'outils
Application.CommandBars("FILTRES").Visible = True
Exit Sub
 
'Création de la barre d'outils
Erreur:
 
Set cmb = Application.CommandBars.Add("FILTRE4", , False)
Set btn = cmb.Controls.Add()
With btn
    .begingroup = True
    .Caption = "Modifier le filtre"
    .Style = msoButtonIconAndCaption
End With
 
Set btn = cmb.Controls.Add()
With btn
    .begingroup = True
    .Caption = "Appliquer le filtre"
    .Style = msoButtonIconAndCaption
 
End With
cmb.Visible = True
Application.CommandBars("FILTRE4").Controls(1).onaction = "MODIFIER FILTRE"
Application.CommandBars("FILTRE4").Controls(2).onaction = "APPLIQUER FILTRE"
 
End Sub

[Invité]

Re

Ne te moques pas, je sais que pour toi cela va te faire hurler de rire !

Je ne me moque jamais, quand les membres suivent les conseils et cherchent vraiment à apprendre.

Bon, colle tout ton code dans une routine d'un module standard, mets la déclaration des deux variables objets comme le l'ai mis.

Ensuite, sur le click de ton bouton, lance la procédure (avec Call).

Philippe

[lulu Co]

Merci pour ta réponse!
Je pars en cours car je vais finir par être en retard
Je continue ce soir
bonne journée

[lulu Co]

bonjour Philippe,

Je me remets à mon appli. J'ai tranféré le code sur un module et mis en procédure évènementielle avec un Call + le nom défini pour le code.

Quand cela se lance, ça bloque sur les déclarations et met le message

Code :

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

Erreur de compilation : Type défini par l'utilisateur non défini

Je te mets en pièce jointe une mini base Access comprenant uniquement le module et le formulaire de test. J'ai donc encore besoin de ta science.

Merci par avance
Lulu

[Invité]

Bonjour

Dans l'éditeur VB, dans le menu Outil/référence, il faut cocher la référence Microsoft Office XX.0 Object Library

Avec le XX la version d'Access, la 11 pour Access 2003, et cela fonctionne, je viens de le tester sur Access 2007, l'autre jour sur Access 2002 aussi, donc Access 2003 pas de soucis.

Philippe

[lulu Co]

Ca marche Philippe,

Merci beaucoup d'avoir passé du temps à m'aider et je te souhaite un excellent week-end. Félicitations pour ta compétence doublée d'une disponibilité extra!

Bises pour tout cà
Lulu