MessageBox au lancement de feuille Excel

Résolu
damiens1026 Messages postés 695 Statut Membre -  
damiens1026 Messages postés 695 Statut Membre -
Bonjour,

Je suis en train de réaliser une feuille Excel et je voudrais qu'à son lancement, une fenêtre (MessageBox avec OK ou Quitter) soit affichée, y a-t-il moyen de faire cela?


A voir également:

3 réponses

pilas31 Messages postés 1878 Statut Contributeur 646
 
Bonjour,

Oui c'est possible, il faut mettre la macro suivante dans le dossier "ThisWorkbook" avec l'éditeur VBA (accessible par <Alt><F11>) :

Private Sub Workbook_Open()
Dim OuiNon As Integer
OuiNon = MsgBox("Voulez vous continuer ?", vbYesNo)
If OuiNon <> vbYes Then
    ActiveWorkbook.Close
End If
End Sub



A+
0
damiens1026 Messages postés 695 Statut Membre 32
 
Merci ca fonctionne et y at-il un moyen pour empecher "VOulez-activez les macros de ce document" d'apparaitre a chaque fpis? Par exemple, configurer pour qu'elles soient acceptée automatiquement?
0
Zoul67 Messages postés 2001 Statut Membre 149
 
Bonsoir,

Oui, mais tu seras plus vulnérable aux virus. cf. menu Outils>Options>Sécurité et bouton Sécurité des macros
0
damiens1026 Messages postés 695 Statut Membre 32
 
ok merci :)
0