Problème avec mon Menu en VBA
Bonjour,
J'ai créer une Barre d'outils en VBA :
Code:
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
|
Dim cmb As Office.CommandBar
Dim btn As Office.CommandBarButton
Dim subCmb As Office.CommandBarPopup
Dim subCmb1 As Office.CommandBarPopup
' ===== suppression de la barre existante BAR =====
On Error Resume Next
If sProfilUtilisateur = "NON" Then
MsgBox "Vous n'êtes pas autorisé à accèder à l'application !", vbCritical, "Autorisation d'accès"
Application.Quit
End If
Application.CommandBars("BAR").Delete
' ===== création de la barre BAR =====
Set cmb = Application.CommandBars.Add("BAR", msoBarTop, True, True)
' ===== création Menu Fichier =====
Set subCmb = cmb.Controls.Add(msoControlPopup)
subCmb.Caption = "&Fichier"
' ===== on ajoute 1 bouton au Menu Fichier =====
Set btn = subCmb.Controls.Add(msoControlButton)
With btn
.BeginGroup = True
.Caption = "&Quitter"
.Style = msoButtonCaption
.OnAction = "=Menu_Action(1)"
End With
' ===== création Menu Suivi des données =====
Set subCmb = cmb.Controls.Add(msoControlPopup)
subCmb.Caption = "&Suivi des données"
' ===== on ajoute 1 bouton au Menu Suivi des données =====
Set btn = subCmb.Controls.Add(msoControlButton)
With btn
.Caption = "&Gestion des données"
.Style = msoButtonCaption
.OnAction = "=Menu_Action(2)"
End With
etc... |
Hors sous AC-2007, ma barre apparait en barre Complément, hors je voudrais quel sois en Barre de Menu et que toutes les autres soient désactiver.
Auriez-vous une idée ?
Merci par avance
Nefertari
