Quitter Excel sous vba sans sauvegarder

[Renaud]

Bonjour tout le monde

Dans un formulaire, je permets à l'utilisateur de quitter mon
programme VBA,
A ce choix est associé la ligne :
Application.Quit

Cependant, si une modification a été apportée, Excel demande à l'utilisateur s'il veut enregistrer les modifcations.
J'aimerai que cela n apparraise pas et que le choix éffectué automatiquement soit quitter sans sauvegarder.

Bref qund l utilisateur choisit de quitter l application elle se ferme sans rien demander et sans enregistrer les modifications éventuelles.

 

[globinours]

Salut,
Essaye
application.displayalert=false
application.quit

 

[Tenormadness]

bonjour

ou ...

Sub QuitterSansSauvegarder()

' signal qu'il n'y a pas lieu de sauvegarder
ThisWorkbook.Saved = True

'puis quitter l'appli
Application.Quit
End Sub

 

[Renaud]

Globi ta méthode m'envoie une erreur.
Tenor, la tienne fonctionne bien.

Merci à vous d'eux d avoir pris de votre temps.

 

[globinours]

L'erreur vient du fait qu'il faut un s à la fin de displayalerts

 

[PascalXLD]

Euh

Excusez moi d'intervenir mais j'aurais mis

Sub QuitterSansSauvegarder()

' signal qu'il n'y a pas lieu de sauvegarder
ThisWorkbook.Saved = False ATTENTION je me suis planté sur ce coup voir plus bas

'puis quitter l'appli
Application.Quit
End Sub

ou peut-être tout simplement cela ne fermera que ton classeur si tu as d'autres fichier excel ouvert

Sub QuitterSansSauvegarder()
ActiveWorkbook.Close False
End Sub

Message édité par: Pascal76, à: 27/07/2005 12:06

 

[2passage]

Bonjour,

euh.. comment dire... non non c est bien true : Saved a la valeur True si le classeur n'a pas été modifié depuis son dernier enregistrement. En fixant à tre, on fait croire a Excel qu'il a deja ete sauvegardé et qu'il n'y en a plus besoin.

A+

 

[PascalXLD]

Oups sorry

J'ai confondu le saved avec le close false

Je te fais pas le coup de l'édition pour rectifier l'erreur LOL

Message édité par: Pascal76, à: 27/07/2005 12:08

 

[Mi_]

Je remonte un peu le sujet: comment faire pour qu'à la fermeture du fichier par le bouton X (en haut à droite), Excel ne demande plus la confirmation/infirmation de sauvegarde, même si le fichier a subi quelques changements ? Donc ne pas enregistrer, sans message d'alerte.

 

[Mi_]

Cherchez plus, j'ai trouvé:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ThisWorkbook.Saved = True
End Sub