Discussion :

[ddanie]

Bonjour à tous,

Je souhaiterais fermer le classeur avec la croix en haut à droite sans que la boite de dialogue "Voulez-vous enrégistrer les modifications..." apparaisse,
(je ne veux pas enregistrer)

La procédure ci-dessous fonctionne mais en mettant un bouton sur la Feuil1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Bouton11_Click()
Application.Quit
ThisWorkbook.Close SaveChanges:=False
End Sub

[rvtoulon]

Bjr, ddanie
et dans "thisworkbook" avec l'évènement beforeclose :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Quit
ThisWorkbook.Close SaveChanges:=False
End Sub

A+

[ddanie]

Merci rvtoulon

Cà fonctionne en partie... le classeur se ferme bien sans enregistrer, mais on ne quitte pas Excel (je souhaiterais quitter Excel également). J'ai essayé en mettant Application.Quit en fin de procédure mais çà ne change rien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Close SaveChanges:=False
Application.Quit
End Sub

[laetitia]

bonjour ddanie ,rvtoulon le forum peut etre comme cela a tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
   ThisWorkbook.Saved = True
End Sub

ps: oublie pas les balises sur ton code autrement
tu selectionnes ton code avec la souris puis tu appuie sur la touche diése

[ddanie]

Merci Leititia et rvtoulon trop bien!!!, ce sera tout pour aujourd'hui