fenêtre de sauvegarde à la fermeture

Salut,

Ajoute simplement SaveChanges:=False apres ton .Close

WorkBooks("tonFichier").Close SaveChanges:=False

Bonjour,

pour répondre à votre question, je suggère cette ligne qui je pense est la bonne, à insérer au bon endroit.

ActiveWorkbook.Close SaveChanges:=False

Bonjour Schtrounqkipouf,

Il faut si reprendre à trois fois pour ne pas faire de faute à ton surnom.

Pour ton problème, tu vas dans dans l'explorateur de projets de VBA;
Puis dans VBAPROJECT("NOM_CLASSEUR")
Puis Microsotf Excel Objets
Puis dans thisworkbook

Tu affiches chacune des fenêtres des classeurs ("thisworkbook")
et tu écris ce code :

Option Explicit

Private Sub workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
ActiveWorkbook.Saved = false
End Sub

Bernard
Salut

Bonjour à toutes et à tous

Bernard , dans ta solution utilisant ActiveWorkbook.Saved , est ce qu'il ne faut pas plutot écrire
ActiveWorkbook.Saved = True
si je ne dis pas de bétise c'est la valeur True qui ferme le classeur sans proposer de message

Sub FermerSansSauver()
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
End Sub


bon début de week end
michel