Bonjour à tous,

Je pensais ajouter vbApplicationModal à mon Msgbox (cf. code qui suit) afin que la feuille n'affiche rien d'autre que ce message et ce jusqu'à ce qu'il soit validé. Ça ne fonctionne pas et mes recherches ne m'ont guère éclairé...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Option Explicit
Private Sub Workbook_Open()
 
    If Workbooks.Count > 1 Then
        MsgBox "Il est préférable de fermer tous les classeurs Excel ouverts sur votre bureau avant d'ouvrir celui-ci !", vbExclamation + vbApplicationModal
        ThisWorkbook.Close True
    End If
En vous remerciant par avance pour votre aide,
Cordialement,
jp