fermer une page sans enregistrer

[David]

Bonjour le forum

je voudrais fermer une page sans engistrement
et sans le message ('voulez vous enregistrer....ect')

je connait la formule pour engistrer
Windows('David.xls').Activate
ActiveWorkbook.Save
ActiveWindow.Close

mais je n'arrive pas 'no save' :silly:

merci d'avance
david @+

 

[Blunet]

Salut David,
2 méthodes :
- utiliser un code propre

Sub FermerSansEnregistrer()
Workbooks('Classeur2.xls').Close SaveChanges:=False
End Sub

- utiliser la procédure événementielle avant fermeture

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks('Classeur2.xls').Close SaveChanges:=False
End Sub

Ciao

 

[Climaudo]

Bonjour David, le forum

Dans l'événement _Beforeclose du workbook,

activeworkbook.saved = true
activeworkbook.close

Il considérera que ton classeur a déjà été enregistré.

Bonne journée

Oups, j'avais pas rafraichi
bonjour Blunet

Message édité par: climaudo, à: 26/03/2006 14:38

Message édité par: climaudo, à: 26/03/2006 14:38