Menu personalisé sous Word

[k-eisti]

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 :

Code :

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

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.

[Heureux-oli]

A l'ouverture d'un document, tu dois utiliser AutoOpen()
et AutoClose() lors de la fermeture du document.

Je ne comprends pas pourquoi tu utilises call, mets ton code directement dans la procédure.

[k-eisti]

je croi que AutoOpen() et AutoClose() ne fonctionne pas sous Word , dans Excel mes macro tourne bien , Mais sous Word ne fonctinnes pas ,

tu est sur qu'on peut Utiliser AutoOpen() et AutoClose dans VBA Word ?

merci de me dire ou les placer

[ouskel'n'or]

Alors utilise Document_Open que tu places dans ThisDocument et pour lancer la macro qui se trouve dans un module, places-y simplement le nom

Code :

1
2
3
Sub Document_Open()
LaMacro
End sub

[Heureux-oli]

Document_open() c'est pour l'ouverture d'un document.

AutoOpen() à l'ouverture du document.