Bonjour a tous,
j'ai posé la même discussion dans le forum Word , mais malheuresement j'ai pas eu de réponses , peut ici je trouverais mon bonheur .
je veux créer un menu personalié dan un document Word, et je veux l'apliquer seulement sur le document que j'utilise , je veux pas qu'il apairesse a l'ouverture d'autre document Word, j'ai essayé d'adapté une macro qui se trouvée sous Excel , mais le souci , c'est que la macro ne ferme pas mon menu a le ferméture du document :
la macro :
Merci de m'aider a résoudre ce oproblème , si vous avais d'autre macro, qui permet la création du Menu pérsonalisé pour un document donné .merci de me les communiques.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45 Sub Auto_open() 'Application.EnableEvents = True Call CreationMenu End Sub Sub CreationMenu() Set MonControl = CommandBars("Formatting").Controls _ .Add(Type:=msoControlPopup) With MonControl .Caption = "Menu Courrier Mensuel" Set MonMenu = MonControl.Controls.Add(msoControlButton) With MonMenu .Caption = "Ajouter la Signature" .OnAction = "AjoutSignature" End With Set MonMenu = Nothing Set MonMenu = MonControl.Controls.Add(msoControlButton) With MonMenu .Caption = "Créer les Courriers" .OnAction = "CréerCourrriers" End With Set MonMenu = Nothing Set MonMenu = MonControl.Controls.Add(msoControlButton) With MonMenu .Caption = "Charger La Base de données" .OnAction = "ChargerLaBase" End With Set MonMenu = Nothing Set MonMenu = MonControl.Controls.Add(msoControlButton) With MonMenu .Caption = "" .OnAction = "" End With Set MonMenu = Nothing End With Set MonControl = Nothing End Sub Sub Auto_Close() Call SupprimerMenu End Sub Sub SupprimerMenu() 'Application.CommandBars("Standard").Controls(Application.CommandBars("Standard").Controls.Count).Delete Application.CommandBars("Formatting").Delete End Sub
Partager