Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro à l'ouverture dans Word

  • Initiateur de la discussion Initiateur de la discussion Fab117
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Fab117

XLDnaute Impliqué
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
Réponses
16
Affichages
3 K
A
Z
Réponses
12
Affichages
5 K
zorglubxp
Z
M
Réponses
0
Affichages
678
marlene65
M
A
Réponses
9
Affichages
1 K
A
N
Réponses
0
Affichages
585
Nico2no
N
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…