Bonjour
Tu vas dans le menu "Outils", "Macro", "Visual Basic Editor"
Sur la gauche tu as une fenetre "Projet-Project"
Tu dois avoir un menu "Project(Document)" où "Document" est le nom de ton document Word sur lequel tu veux la popup.
Tu ouvres l'arborescence jusqu'a "ThisDocument" et tu double clique dessus.
Sur la droite apparait une fenetre.
Dans la pioche en haut à gauche "(Général)" tu pioches "Document"
Dans la pioche en haut à droite tu pioches "(Open)"
Il doit te mettre dans la page blanche une macro :
Citation :
Private Sub Document_Open()
End Sub
|
Il te suffit de taper le code pour afficher la popup, regarde le code suivant :
Citation :
Private Sub Document_Open()
Dim Titre, MonTexte
'Saisir le titre de la boite de dialogue
Titre = "Mise en garde importante"
'Saisir le texte à afficher. Les retour a la ligne se font avec chr(13) _
pour concatener le texte utilisez le caractere "&"
MonTexte = "CE FICHIER DOIT ETRE MODIFIER SUR LE C:\" & Chr(13) & "NE JAMAIS MODIFIER LE FICHIER QUI SE TROUVE SUR LE RESEAU"
'Affiche la boite de dialogue
MsgBox MonTexte, vbOKOnly, Titre
End Sub
|
Cordialement
Message édité par SuppotDeSaTante le 21-03-2008 à 11:40:40
---------------
Soyez malin, louez entre voisins !
