insertion menu perso et macro

[Simons]

Bonjour le forum,

J'ai une jolie macro de recherche que je souhaite insérer dans un menu via OUTILS / PERSONNALISER.
Mais j'ai un soucis : Le menu reste visible si je change de classeur. Comme le classeur est diffusé c'est pas terrible..

Est-il possible de restreindre le menu au classeur avec un

activate

ou

desactivate

. Je suis passé par l'enregistreur mais ce vilain pas beau ne m'affecte pas ma macro au bouton..

Merci pour votre aide.

 

[Pierrot93]

Re : insertion menu perso et macro

Bonjour Simon

peut être 2 procédures événementielles, à l'ouverture et à la fermeture du classeur, place le code ci dessous dans le module de "ThisWorkbook" :

Private Sub Workbook_Open()
Application.CommandBars("Personnalisé 1").Visible = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Personnalisé 1").Visible = False
End Sub

bon après midi
@+

 

[Simons]

Re : insertion menu perso et macro

Merci Pierrot je n'y avait pas pensé ! Je vais essayer.

 

[Simons]

Re : insertion menu perso et macro

Bonjour,
Je reviens avec un autre problème..
Mon premier soucis n'existe plus. (CF la routine Workbook_Deactivate)
Maintenant ce qui se passe c'est que le titre du menu n'apparait pas..
Voici le code que j'utilise à l'ouverture :

Dim Nouv As Object
Private Sub Workbook_Activate()
Set Nouv = Application.CommandBars("Worksheet Menu Bar").Controls.Add
With Nouv
.Caption = "&Recherche"
.OnAction = "Ma macro de recherche"
End With
End Sub

Et le code quand je change de classeur :

Private Sub Workbook_Deactivate()
Application.CommandBars("Worksheet Menu Bar").Reset
End Sub

J'arrive à afficher une image ou encore une image et du texte mais pas du texte seul.
Savez-vous quelle est la solution pour le faire apparaitre ?
Merci d'avance pour votre aide.

 

[Simons]

Re : insertion menu perso et macro

Re,
Je remonte mon post avec un fichier..
Ce sera plus parlant.. La macro fonctionne, seul le nom du menu n'apparait pas. (a coté du signe "?").

Merci d'avance.

 

[tirex28]

Re : insertion menu perso et macro

Bonjour,

Dim Nouv As CommandBarButton

Private Sub Workbook_Activate()
    Set Nouv = Application.CommandBars("Worksheet Menu Bar").Controls.Add
    With Nouv
        .Style = msoButtonCaption
        .Caption = "&Recherche"
        .OnAction = "vachercher"
    End With
End Sub

Private Sub Workbook_Deactivate()
    Application.CommandBars("Worksheet Menu Bar").Reset
End Sub

Cordialement,

Tirex28/

 

[Simons]

Re : insertion menu perso et macro

Super Tirex merci. Je me battais à coups de .faceID ou .ID (....) 😱
Ca marche impec.