Bonsoir,
Avec le code ci-dessous ça marche
Private Sub cmdAnnuler_Click()
Dim rep As Byte
rep = MsgBox("Etes-vous sûr de vouloir fermer l'application en cours ?", _
vbYesNo + vbQuestion, "Annuler l'application en cours ?")
If rep = vbNo Then
Exit Sub
End If
Me.Hide
End
End Sub
@ + denos