Visual Basic sous Publisher

[nikobell]

Bonjour,

je voudrais réaliser une macro sous publisher de manière à afficher une barre d'outil personnalisée à chaque ouverture d'un fichier (quelque soit le pc utilisé). Je me suis renseigné autour de moi mais il semblerait que Publisher ne gère pas VBA de la même façon que Excell par exemple.
Merci

[SilkyRoad]

bonjour


Il y a un éditeur VBA dans plublisher 2007 (je ne connais pas les versions antérieures),
ainsi qu'un évènement Document_Open pour créer la barre d'outils lors de l'ouverture du fichier
et un évènement Document_BeforeClose pour supprimer la barre d'outils perso lors de la fermeture du fichier.


Dans cet exemple, la macro de création de la barre d'outils perso est identique à Excel.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Document_Open()
    Dim MaBar As CommandBar
    Dim oBtn As CommandBarButton
 
    On Error Resume Next
    Set MaBar = Application.CommandBars.Add("BarrePerso")
 
    With MaBar
        Set oBtn = .Controls.Add(msoControlButton)
        With oBtn
            .Caption = "Mon bouton"
            .Style = msoButtonIconAndCaption
            .FaceId = 983
            .OnAction = "NomMacro"
        End With
        .Visible = True
    End With
End Sub

Code :

1
2
3
4
Private Sub Document_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.CommandBars("BarrePerso").Delete
End Sub

bon week end
michel

[MJ_13]

Bonjour Sylkyroad,
Bonjour à tous

Merci beaucoup Michel (comme d'habitude). cela fonctionne aussi sous Publisher 2003.
Par contre comment je peux faire pour toujours avoir ces macros en ouvrant Publisher (faut-il faire une macro complémentaire et comment?).

Bon Week-end