Macro perso dans le menu Outils

[trouver]

Je souhaiterais tout "simplement" pouvoir insérer le nom d'une macro en fin de liste du menu Outils et, en cliquant dessus, pouvoir l'exécuter.

De plus, 2ème point, cette opération devrait pouvoir être lancée à partir d'une DLL.

J'ai déjà développé des macros plus ou moins complexes, mais jamais touché à l'interface Excel. De plus, sur le 2ème point, je n'ai absolument aucune idée de la façon de faire.

Merci pour vos lumières.

 

[MJ13]

Re : Macro perso dans le menu Outils

Bonjour

Fait une rceherche sur ce forum ou sur le net avec "Excel menu VBA" ou quelque chose se rapprochant sinon, va voir en dessous de ce post, il peut y avoir des réponses.

 

[BERRACHED said]

Re : Macro perso dans le menu Outils

Salut,Trouver,Mj13

voici la procédure comment créer une bouton dans la barre et lui affécter une macro

Sub CreeBO() 'à appeler dans le Workbook_Open (.xls ou .xla)
Dim MaBar As CommandBar, Btn1, Btn2
  
  On Error Resume Next
  Set MaBar = Application.CommandBars.Add("MaBarre")
  MaBar.Protection = msoBarNoChangeVisible
  With MaBar
    Set Btn1 = .Controls.Add(msoControlButton)
    With Btn1
      .Caption = "Premier bouton"
      .FaceId = 39
      .OnAction = "Macro1"
    End With
    Set Btn2 = .Controls.Add(msoControlButton)
    With Btn2
      .Caption = "Second bouton"
      .FaceId = 40
      .OnAction = "Macro2"
    End With
    .Visible = True
  End With
End Sub

Sub Macro1()
  MsgBox "Bouton 1"
End Sub

Sub Macro2()
  MsgBox "Bouton 2"
End Sub

Sub delBO()
  On Error Resume Next
  Application.CommandBars("MaBarre").Delete
End Sub

Cordialement

 

[trouver]

Re : Macro perso dans le menu Outils

Merci, mais ce n'est pas dans la barre de menu que je veux créer le lien à la macro, mais dans la liste Options du menu, à la fin, et il ne s'agit pas d'un boution mais d'une ligne texte, comme "orthographe", "Protection" ou "macro", par exemple : "mamacro"

 

[Raja]

Re : Macro perso dans le menu Outils

Bonjour,

Effectue la procédure suivante :

- Menu Outils/Personnaliser
- Onglet Commandes/Partie gauche Catégories/sélectionne Macros
- Partie droite Commandes/Clique gauche enfoncé sur Bouton personnalisé et ramène vers le menu Outils laisse insérer le smileys où tu veux.
- Tout en gardant la boîte de dialogue "Personnalisation", clique droit sur le smiley et dans la ligne Nom: donnne un nom que tu veux et aussi affecte une macro par le choix "Affecter une macro".

 

[trouver]

Re : Macro perso dans le menu Outils

Merci MJ12, j'ai bien pu créer la macro à l'emplacement voulu
et cela donne en VB

Application.CommandBars("Tools").Controls.Add Type:=msoControlButton, ID:= _
2950, Before:=22

mais j'ai 2 soucis :

1- Par la macro, je n'arrive pas à enregistrer le nom du bouton (=texte) de la macro
2- comment faire quand le bouton est déjà dans la liste Outils ? car avec .Add, il va en créer un nouveau de même nom

ensuite, il me faudra résoudre le pb que l'utilisateur n'est pas forcément connecté à Excel (c'est la DLL dont je parlais au début qui ferait tout)