Menu personnalisé se multiplie à l'ouverture

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Cantalou

XLDnaute Nouveau
Bonjour,

Avec votre aide, j'ai créé une macro complémentaire qui crée un menu personalisé.
Code:
Sub AjoutMenu()
Dim LeMenu As CommandBarPopup
    With Application.CommandBars(1)
        Set LeMenu = .Controls.Add _
            (Type:=msoControlPopup)
    End With
    LeMenu.Caption = "Les macros perso"
    With LeMenu.Controls.Add(msoControlButton)
        .Caption = "Graph avec points nommés"
        .OnAction = "Points_Nommés"
    End With
    With LeMenu.Controls.Add(msoControlButton)
        .Caption = "Quitter les macros perso"
        .OnAction = "DelMenu"
    End With
    End Sub

Sub DelMenu()

    Application.CommandBars("Worksheet Menu Bar").Controls(11).Delete
End Sub

J'ai créé un appel à ces macros depuis "ThisWorkbook":
Code:
Private Sub Workbook_Open()
On Error Resume Next
Set Mybar = Application.CommandBars("Les macros perso")
 If Mybar Is Nothing Then
    AjoutMenu
 
End If


End Sub
  
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    DelMenu
End Sub

Le problème, c'est que si je ne décoche pas la macro complémentaire, à chaque nouvelle ouverture d'Excel, j'ai une duplication du menu personalisé.

Visiblement, mon test pour vérifier si barre perso existe ne fonctionne pas 😡

merci d'avance du coup de main !
 
Re : Menu personnalisé se multiplie à l'ouverture

Bonjour Cantalou,

lorsque tu fais ton Add, tu peux préciser un Temporary := True qui signifie que le menu ne "survit" pas à la sortie d'Excel.
Ca évite de supprimer la barre à chaque sortie.
Tu te retrouveras avec plusieurs Menus seulement si tu décoches ta macro complémentaire et si tu la recoches...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
1 K
Retour