Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Word Menu dans Word

Menu dans Word

2 réponses
Avatar
Patrice
Bonjour,

Ou puis je trouver les syntaxes pour cr=E9er/supprimer des=20
menus sous Word (pour une appli sp=E9cifique). Sur la Faq,=20
j'ai regard=E9, il y a bien un truc mais c'est d=E9j=E0 hyper=20
trafiqu=E9 : je m'y perds.=20

j'ai un menu =E0 cr=E9er, il appellera 4 macros dispo dans le=20
mod=E8le du document et quand je ferme le document, le menu=20
se supprime.

Merci de votre aide.

Patrice.
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Voici une manière de procéder qui créé une option "Mes Options" dans la
barre de menu de Word à l'ouverture du document et la supprime à la
fermeture.
Il faudra également insérer un module standar et placer tes 4 macros.
A adpater :

Private Sub Document_Close()
For Each ctr In Application.CommandBars("Menu Bar").Controls
If Not ctr.BuiltIn And ctr.Caption = "Mes options" Then ctr.Delete
Next ctr
End Sub
Private Sub Document_Open()
Dim MaBo As CommandBarControl
Dim MaBoOpt1 As CommandBarControl
Dim MaBoOpt2 As CommandBarControl
Dim MaBoOpt3 As CommandBarControl
Dim MaBoOpt4 As CommandBarControl
Set MaBo = Application.CommandBars("Menu Bar").Controls.Add(msoControlPopup,
, , , True)
With MaBo
.Caption = "Mes options"
End With
Set MaBoOpt1 = MaBo.Controls.Add(msoControlButton)
With MaBoOpt1
.Caption = "Mon option 1"
.OnAction = "Macro1"
End With
Set MaBoOpt2 = MaBo.Controls.Add(msoControlButton)
With MaBoOpt2
.Caption = "Mon option 2"
.OnAction = "Macro2"
End With
Set MaBoOpt3 = MaBo.Controls.Add(msoControlButton)
With MaBoOpt3
.Caption = "Mon option 3"
.OnAction = "Macro3"
End With
Set MaBoOpt4 = MaBo.Controls.Add(msoControlButton)
With MaBoOpt4
.Caption = "Mon option 4"
.OnAction = "Macro4"
End With
End Sub

Cordialement
Pascal
"Patrice" a écrit dans le message de
news:811c01c495a6$db6055d0$
Bonjour,

Ou puis je trouver les syntaxes pour créer/supprimer des
menus sous Word (pour une appli spécifique). Sur la Faq,
j'ai regardé, il y a bien un truc mais c'est déjà hyper
trafiqué : je m'y perds.

j'ai un menu à créer, il appellera 4 macros dispo dans le
modèle du document et quand je ferme le document, le menu
se supprime.

Merci de votre aide.

Patrice.
Avatar
patrice
Merci
-----Message d'origine-----
Bonjour
Voici une manière de procéder qui créé une option "Mes
Options" dans la

barre de menu de Word à l'ouverture du document et la
supprime à la

fermeture.
Il faudra également insérer un module standar et placer
tes 4 macros.

A adpater :

Private Sub Document_Close()
For Each ctr In Application.CommandBars("Menu
Bar").Controls

If Not ctr.BuiltIn And ctr.Caption = "Mes options" Then
ctr.Delete

Next ctr
End Sub
Private Sub Document_Open()
Dim MaBo As CommandBarControl
Dim MaBoOpt1 As CommandBarControl
Dim MaBoOpt2 As CommandBarControl
Dim MaBoOpt3 As CommandBarControl
Dim MaBoOpt4 As CommandBarControl
Set MaBo = Application.CommandBars("Menu
Bar").Controls.Add(msoControlPopup,

, , , True)
With MaBo
..Caption = "Mes options"
End With
Set MaBoOpt1 = MaBo.Controls.Add(msoControlButton)
With MaBoOpt1
..Caption = "Mon option 1"
..OnAction = "Macro1"
End With
Set MaBoOpt2 = MaBo.Controls.Add(msoControlButton)
With MaBoOpt2
..Caption = "Mon option 2"
..OnAction = "Macro2"
End With
Set MaBoOpt3 = MaBo.Controls.Add(msoControlButton)
With MaBoOpt3
..Caption = "Mon option 3"
..OnAction = "Macro3"
End With
Set MaBoOpt4 = MaBo.Controls.Add(msoControlButton)
With MaBoOpt4
..Caption = "Mon option 4"
..OnAction = "Macro4"
End With
End Sub

Cordialement
Pascal
"Patrice" a écrit
dans le message de

news:811c01c495a6$db6055d0$
Bonjour,

Ou puis je trouver les syntaxes pour créer/supprimer des
menus sous Word (pour une appli spécifique). Sur la Faq,
j'ai regardé, il y a bien un truc mais c'est déjà hyper
trafiqué : je m'y perds.

j'ai un menu à créer, il appellera 4 macros dispo dans le
modèle du document et quand je ferme le document, le menu
se supprime.

Merci de votre aide.

Patrice.


.