EXEL84, le forum
Essaie ce fichier, il y a la possibilité avec ou sans sauvegarde, a voir. Si tu veux obligatoirement pas sauvegarder ton fichier il suffira de le code du commande boutons par celui-là.
Private Sub CommandButtonfermeture_Click() 'Fermeture de l'application
Application.DisplayAlerts = False 'Supprime la fonction de demande de sauvegarde de Windows
If MsgBox("Vous allez fermer votre fichier sans enregistrer les modifications ?", vbYesNo + vbCritical, "ALERTE") = vbYes Then
Application.Quit 'Fermeture sans sauvegarde
Else
Exit Sub
End If
End Sub
Il faut remettre ce code dans le ThisworkBook
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = True 'Remet la fonction de demande de sauvegarde de Windows
End Sub
Merci a Zon pour l'aide sur cette fonction
G'Claire