Macro à l'ouverture dans Word

[Fab117]

Salut,
Je sais bien que je suisdans un forum pour Excel, mais ma question est si basique que je pense qu'elle peut figurer ici.
Voila, je veux tout simplement qu'à l'ouverture d'un fichier Word donné, il y ai une message Box.
Ca me semblait facile à réaliser, mais quand je fais comme surl'imageci-dessous, la message Box n'apparait pas à l'ouverture du fichier.
http://imageshack.us
Quelqu'un pourrait-il svp me dire ce qui est faux.
Si en plus vous pouviez me donner quelques lignes pour personnaliser un peu ma Message Box (couleur, titre, ...), ce serait sympa.

Fab

 

[lacorse33]

Re : Macro à l'ouverture dans Word

Bonjour Fab,

Peux-tu essayer de mettre le code ci-dessous dans ThisDocument ?

Private Sub Document_Open()

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Souhaitez-vous continuer?" ' Définit le message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Définit les boutons.
Title = "Démonstration de MsgBox " ' Définit le titre.

' Affiche le message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' L'utilisateur a choisi Oui.
MyString = "Oui" ' Effectue une action.
Else ' L'utilisateur a choisi Non.
MyString = "Non" ' Effectue une action.
End If​

End Sub


@+
Béa

 

[Fab117]

Re : Macro à l'ouverture dans Word

Super,
Ca marche. Toutefois, il s'agit juste d'un message pour attirer l'attention de l'utilisateur sur un point.
Il n'y a donc qu'un bouton OK.
J'ai donc raccourci à :

Private Sub Document_Open()
MsgBox "Attention à ne pas oublier de remplir les champs appropriés"
End Sub

Mais j'aimerai bien mettre un titre à la message Box, ce que tu as défini comme
Title = "Démonstration de MsgBox "

As-tu une proposition pour le faire ?
Merci.

Fab

 

[lacorse33]

Re : Macro à l'ouverture dans Word

Re,

MsgBox "Attention à ne pas oublier de remplir les champs appropriés", vbOKOnly, "Ceci est le titre..."


@+
Béa

 

[Fab117]

Re : Macro à l'ouverture dans Word

Super,
Merci à nouveau.

Bonne soirée.

Fab