insérer un Menu EXCEL pour un seul fichier

Question

Bonjour,

Je souhaite créer un menu avc des sous menus dans excel seulement je veus mettre ce menu ds la barre principale. J’arrive à le faire en faisant personnaliser, nouveau menu etc.. mais je n’obtiens pas ce que je souhaite : en effet je voudrais que ce menu s’affiche seulement avc ce fichier  et qu’on puisse le voir d’un autre ordinateur. Et là, il se trouve que quand j’ajoute ce menu : il s’affiche à chaque fois que j’ouvre excel et je ne le vois pas d’un autre ordinateur !! J’ai un code vb  qui permet d’afficher le menu seulement quand j’ouvre le fichier :
Option Explicit

Public Sub ajoutBarre()
    Dim cb As CommandBar
    Dim cbb30 As CommandBarButton
    Dim cbb40 As CommandBarButton
    'Si la barre existe, on la supprime
    On Error Resume Next
    Application.CommandBars("Choix").Delete
    On Error GoTo 0

'********************************
'Création de la barre de contrôle
'********************************
    Set cb = CommandBars.Add
    With cb
        .Name = "Choix"
        .Position = msoBarTop
        .Visible = True
    End With

    '*********************************
    'Création du bouton 'Déplacer'
    '*********************************
    Set cbb30 = cb.Controls.Add(msoControlButton)
    With cbb30
        .OnAction = "lancer"
        .Caption = "Ajouter activité"
        .Style = msoButtonCaption
    End With

    '*********************************
    'Création du bouton 'Dissocier'
    '*********************************
    Set cbb40 = cb.Controls.Add(msoControlButton)
    With cbb40
        .OnAction = "ajoutsupp"
        .Caption = "Maintenance du devis"
        .Style = msoButtonCaption
        .BeginGroup = True
    End With

End Sub
Sub lancer()
    UserForm1.Show
End Sub

Sub ajoutsupp()
    MsgBox "EN COURS DE DEVELOPPEMENT ...", vbExclamation, "Message Tour de Contôle"
End Sub



LE PROBLEME c’est que ce menu ne s’ajoute pas ou je veus : il s’ajoute en dessous du menu principal et moi je le veus vraiment ds la barre principale….Quelqu’un peut m’aider ?
Merci…

alice · Answer

dégage n00b

Polux31 · Answer

Bonjour toi ;o)

Pour supprimer les barres de menu Excel il faut les fermer

Dim cb As CommandBar
With Application
   For Each cb In .CommandBars
      If cb.Name <> "Choix" Then
         cb.Enabled = False
      End IF
   Next cb

' Pour la barre de formule : 
.DisplayFormulaBar = True
End With

Il faut remettre la config en quittant le classeur et faire l'inverse dans ThisWorkbook -> Workbook_BeforeClose()

;o)

Insérer un Menu EXCEL pour un seul fichier

2 réponses

Discussions similaires

Newsletters