macro VB pour créer pop up à l'ouverture

macro VB pour créer pop up à l'ouverture - Logiciels - Windows & Software

Marsh Posté le 20-03-2008 à 15:12:04    

Bonjour
 
On me demande de créer une macro qui ouvrirait un message sous forme de pop up à l'ouverture d'un fichier sous word.
 
cette macro est faite sous Visual Basic mais je n'y connait rien.
 
Pouvez vous m'aider SVP?  
 
Je vous joins l'exemple  
 
merci
 
http://www.hebergementimages.com/images/1206021796_Sans-titre.JPG

Reply

Marsh Posté le 20-03-2008 à 15:12:04   

Reply

Marsh Posté le 20-03-2008 à 16:06:00    

Cherche la dessus
http://www.excel-downloads.com/
 
Il doit suffire de chopper l'evenement d'ouverture de document, puis de coller dedans l'appel à une popup
 
Je peux chercher plus mais de chez moi

Reply

Marsh Posté le 21-03-2008 à 11:39:45    

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 !
Reply

Marsh Posté le 25-03-2008 à 13:56:26    

Merci beaucoup, ca fonctionne!!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed