Discussion :

[Yoyo@]

Salut,

Je voudrais savoir s'il était possible sous VBA d'avoir un contrôlre fin des menus.

Je sais que l'on peut masquer un menu tout entier en faisant par exemple:

DoCmd.ShowToolbar "Menu Bar", acToolbarNo

Mais ici, je chercherais à masquer l'élément "Export..." du menu "File" de la barre de menu principale. Et ceci, à la volée!

Est ce possible?

Le but pour moi est d'empêcher l'utilisateur d'exporter sous Excel les données depuis certains états (reports)

Merci.

[Tofalu]

Bonjour

Code :

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

Application.CommandBars("File").Controls("Exporter...").Enabled = false

Attention toutefois aux versions françaises/Anglaise. Il suffit alors de remplacer Exporter... par le terme qui figure dans la version US

[Yoyo@]

Ca marche, merci!

Mais alors là, il y a un truc que je ne comprends pas...

Quand je demande à Access d'itérer sur toutes mes commandes bars, et de m'afficher leur nom, avec un code du genre:

Code :

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

1
2
3
4
5
6
7
Dim i As Integer
Dim cnt As Integer
cnt = CommandBars.Count
 
For i = 1 To cnt
      msgbox CommandBars.Item(i).Name  End If
Next i

Il n'y a aucune CommandBard du nom de "File", mais just une CommandBar du nom de "Menu Bar", qui est en fait la barre de menu principale d'Access!

Mais alors, comment ça se fait que référencer CommandBars.Item("File") fonctionne parfaitement, alors que "File" ne semble pas faire partie de la collection des CommandBars??

[Yoyo@]

Ca marche, merci!

Mais alors là, il y a un truc que je ne comprends pas...

Quand je demande à Access d'itérer sur toutes mes commandes bars, et de m'afficher leur nom, avec un code du genre:

Code :

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

1
2
3
4
5
6
7
Dim i As Integer
Dim cnt As Integer
cnt = CommandBars.Count
 
For i = 1 To cnt
      msgbox CommandBars.Item(i).Name 
Next i

Il n'y a aucune CommandBard du nom de "File", mais just une CommandBar du nom de "Menu Bar", qui est en fait la barre de menu principale d'Access!

Mais alors, comment ça se fait que référencer CommandBars.Item("File") fonctionne parfaitement, alors que "File" ne semble pas faire partie de la collection des CommandBars??

[ypicot]

C'est toute la poésie des CommandBar, CommandBarButton et autre finesses.

Si ca peut t'aider à comprendre, voici le source d'un prg qui _ajoute_ dynamiquement un menu.

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
36
37
38
39
40
41
42
43
44
45
Private Sub InitMenu()
    Dim cbCourant As CommandBar
    Dim cbpReporting As CommandBarPopup
    Dim cbReporting As CommandBar
    Dim Dummy As String
 
    ' s'il n'y a pas de menus installés, on quitte l'application.
    If CommandBars.Count = 0 Then
        MsgBox "pas de menu installés"
        Application.Quit
    End If
    Set cbCourant = CommandBars.ActiveMenuBar
 
    ' on vérifie que le menu n'existe pas déjà
    On Error Resume Next
    Dummy = cbCourant.Controls("Reporting").Caption
    If Err.Number = 0 Then
        ' le menu existe déjà : on sort
        Exit Sub
    End If
    On Error GoTo 0
 
    Set cbpReporting = cbCourant.Controls.Add( _
      Type:=msoControlPopup, Temporary:=True)
    cbpReporting.Caption = "&Reporting"
    Set cbReporting = cbpReporting.CommandBar
 
    AddMenuItem Cb:=cbReporting, Legende:="&Charger", Appel:="AppelCharger", BeginGroupFlag:=False
    AddMenuItem Cb:=cbReporting, Legende:="&Vérifier", Appel:="AppelVerifier", BeginGroupFlag:=False
    AddMenuItem Cb:=cbReporting, Legende:="C&onsolider", Appel:="AppelConsolider", BeginGroupFlag:=True
    AddMenuItem Cb:=cbReporting, Legende:="C&lôturer", Appel:="AppelCloturer", BeginGroupFlag:=False
End Sub
 
Private Sub AddMenuItem(Cb As CommandBar, Legende As String, _
  Appel As String, BeginGroupFlag As Boolean)
    Dim cbbNew As CommandBarButton
 
    Set cbbNew = Cb.Controls.Add(Type:=msoControlButton, Temporary:=True)
    With cbbNew
        .Caption = Legende
        .OnAction = Appel
        .BeginGroup = BeginGroupFlag
    End With
 
End Sub

Accessment,

Yvan