MessageBox au lancement de feuille Excel

Résolu
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?



--
Meilleures salutations
damiens1026

3 réponses

  • Votes
  • Date
  • Date décroissante
  1. Contributeur
    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+
    1. 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?
      1. Bonsoir,

        Oui, mais tu seras plus vulnérable aux virus. cf. menu Outils>Options>Sécurité et bouton Sécurité des macros
        1. ok merci :)