Création Menu en VBA Résolu

Question

Bonjour,

J'aimerais créer une macro qui permette d'insérer dans la barre de menu de word (Juste avant fichier) un petit menu personnalisé.
Exemple : MonMenu 
          .....Imprimer
          .....Quitter

Merci de votre aide.

Christophe

comeochris · Accepted Answer

Merci jpleroisse,

Le probl&#232;me, c'est que je souhaite utiliser cette macro sous word.
Mais je dois avouer que le code est vraiment clair et bien comment&#233;.
Pour celui qui veut l'utiliser sous excel, BRAVO.

Si tu as une solution pour word,.......

Christophe

jpleroisse · Answer

Bonjour,
Voici une version destin&#233;e &#224; Excel, essaie la pour Word.

Sub AjouterNouveauMenu()
Dim HelpIndex As Integer
Dim NewMenu As CommandBarPopup
Dim MenuItem As CommandBarControl
'Supprimer le menu s'il existe d&#233;j&#224;
Call DeleteMenu
'Obtenir l'index du menu Fichier
HelpIndex = CommandBars(1).Controls("Fichier").Index


'Cr&#233;er le menu
Set NewMenu = CommandBars(1).Controls.Add _
(Type:=msoControlPopup, _
Before:=HelpIndex, Temporary:=True)


'Ajouter une l&#233;gende
NewMenu.Caption = "Mon menu"


'Premier &#233;l&#233;ment de menu
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
    .Caption = "&Imprimer"
    .FaceId = 162
    .OnAction = "Macro1"
End With

'Deuxi&#232;me &#233;l&#233;ment de menu
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
    .Caption = "&Quitter"
    .FaceId = 590
    .OnAction = "Macro1"
End With
End Sub

Sub DeleteMenu()
On Error Resume Next
CommandBars(1).Controls("Mon menu").Delete
End Sub

jpleroisse

Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e

jpleroisse · Answer

Re bonjour,
Je viens de v&#233;rifier avec Word, mais la macro ne fonctionne pas. Par contre si &#231;a peut te servir pour Excel, l&#224; c'est impect.

jpleroisse

guilleto · Answer

Bonjour &#224; tous !

D&#233;j&#224; pour ins&#233;rer un Menu sous Word fait le manuellement !
Une fois que c'est fait Efface le !
Va dans 'Affichage', 'Barre d'outils' et s&#233;lectionne 'Visual Basic'
Clique sur 'Nouvelle Macro' donne lui un nom et refait les manipulations que tu as faites au d&#233;but pour cr&#233;er ton Nouveau Menu avec les commandes que tu veux !
Une fois termin&#233; cliques sur Arr&#234;ter la Macro et va dans l'&#233;diteur Visual Basic et tu auras la d&#233;marche en VB pour ajouter un Menu sous Word !

N'oublie pas de cr&#233;er une macro pour effacer ton Menu !

A+ et Bonne Prog

Olivier

P.S. : Si ce n'est pas clair envoie moi un courriel !

Youpala21 · Answer

Bonjour,
Parfait, La macro fonctionne lorsque je la crée dans un classeur vierge.

Je dois pour mon travail insérer cette macro parmis d'autres dans un classeur existant. A l'ouverture de ce classeur j'ai le message suivant =" Dim NewMenu As CommandBarPopup" est un type non défini??

Je suis amateur une réponse vulgarisée est la bienvenue!!!

Youpala21 · Answer

Je souhaite aussi savoir comment ajouter un sous-menu...

Merci d'avance

Création Menu en VBA

6 réponses

Discussions similaires