Problème avec mon Menu en VBA

**nefertari** · 18/03/2010, 10h59

Bonjour,

J'ai créer une Barre d'outils en VBA :

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
 
 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