Sub Save2()
' Macro de sauvegarde après modification d'une demande déjà existante.
Dim OKModif As Integer
SaveAsUI = False ' <-- Empêche l'ouverture (inutile) de la boîte de dialogue "Enregistré sous . . ."
ActiveWorkbook.Save
OKModif = MsgBox("Nous sommes le " & Date & " il est " & Time & " " + Chr$(13) + Chr$(13) + Chr$(13) _
& "La demande a été modifiée correctement. " + Chr$(13) + Chr$(13) + Chr$(13), _
vbOKOnly + vbExlamation + vbDefaultButton1, " - LA DEMANDE EST CORRIGÉE - ")
' <-- Mise en forme de la boîte de dialogue d'enregistrement.
If OKModif = vbOK Then
Application.Quit ' <-- On quitte Excel
End If
End Sub