Message avant fermeture fichier excel

[urbanito1]

Bonsoir le forum

je me suis inspire de ce fil pour créer un msg avant fermeture

https://www.excel-downloads.com/thr...orkbook_beforeclose-cancel-as-boolean.196802/

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("Hello my friend...avez-vous vérifié vos calculs avant de transmettre les infos ?", vbYesNo) = vbNo Then
Cancel = True
Exit Sub
Else
' ........................
'poursuite de la procédure avant fermeture
' ........................
' ........................
' ........................
' ........................
' ........................
End If

End Sub

ça marche

ce que je n'arrive pas à faire

ajouter un second message après la réponse oui

fichier en annexe

qui peut m'instruire?

merci bien

urbanito1

 

[tototiti2008]

Re : Message avant fermeture fichier excel

Bonsoir urbanito,

tu ne peux pas mettre plusieurs procédure évènementielles du même nom au même endroit, il faut regrouper les codes

du genre

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If MsgBox("Hello my friend...avez-vous vérifié vos calculs avant de transmettre les infos ?", vbYesNo) = vbNo Then
        Cancel = True
        Exit Sub
    ElseIf MsgBox("Vraiment certain ?", vbYesNo) = vbNo Then
        Cancel = True
        Exit Sub
    Else
        ' ........................
        'poursuite de la procédure avant fermeture
        ' ........................
        ' ........................
        ' ........................
        ' ........................
        ' ........................
    End If
End Sub

 

[urbanito1]

Re : Message avant fermeture fichier excel

bonjour à tous et toutes

bien vu tototiti2008

j'ai compris

merci bien

urbanito1