MessageBox au lancement de feuille Excel

Résolu/Fermé
damiens1026 Messages postés 563 Date d'inscription jeudi 5 novembre 2009 Statut Membre Dernière intervention 10 avril 2013 - 24 févr. 2011 à 15:18
damiens1026 Messages postés 563 Date d'inscription jeudi 5 novembre 2009 Statut Membre Dernière intervention 10 avril 2013 - 25 févr. 2011 à 08:00
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 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
24 févr. 2011 à 18:39
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 563 Date d'inscription jeudi 5 novembre 2009 Statut Membre Dernière intervention 10 avril 2013 32
24 févr. 2011 à 19:55
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 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
25 févr. 2011 à 00:36
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 563 Date d'inscription jeudi 5 novembre 2009 Statut Membre Dernière intervention 10 avril 2013 32
25 févr. 2011 à 08:00
ok merci :)
0