Comment fermer un classeur automatiquement sans enregistrer?

[Paritec]

Bonjour le Forum,

pouvez vous me dire comment faire pour fermer un classeur sans avoir le fenêtre voulez vous enregistrer oui non annuler SVP. (sans enregistrer)
Je sais que c'est possible car je l'ai déjà vu sur un fil, mais je ne le retrouve pas.
merci d'avance
Papou

 

[skoobi]

Re : Comment fermer un classeur automatiquement sans enregistrer?

Bonjour Paritec,
voici la commande:

Workbooks("ton fichier.xls").Close SaveChanges:=False

 

[criscris11]

Re : Comment fermer un classeur automatiquement sans enregistrer?

Bonjour ,
Tu peux essayer ceci :
ActiveWorkbook.Close SaveChanges:=False

Un plus en cas de fermeture par la croix :

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

A mettre dans le module du classeur ThisWorkbook

Tiens-nous au courant.

Edit : salut Skoobi, pas rafraîchi.

 

[Paritec]

Re : Comment fermer un classeur automatiquement sans enregistrer?

Bonjour Cris cris , Skoobi et le forum
J'ai éssayé, ok pour fermer le classeur mais il ne ferme pas excel pourquoi?
merci d'avance
Papou

 

[criscris11]

Re : Comment fermer un classeur automatiquement sans enregistrer?

Re,
Rajoutes ceci à la fin du code (avant le End Sub) :
Application.Quit
Bonne journée.

 

[Paritec]

Re : Comment fermer un classeur automatiquement sans enregistrer?

Re Criscris11,
avec application en plus c'est tout bon
merci à tous de vos réponses
amicalement
Papou

 

[Paritec]

Re : Comment fermer un classeur automatiquement sans enregistrer?

Re Criscris11 et le Forum,
cela marche bien avec mon bouton mais avec la croix non je ne ferme que le classeur!!!
à vous lire
a+
Papou

 

[criscris11]

Re : Comment fermer un classeur automatiquement sans enregistrer?

Re,
As tu bien mis comme ceci :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Saved = True
Application.Quit
End Sub

A mettre dans le module du classeur ThisWorkbook
Bon test.

 

[Dan]

Re : Comment fermer un classeur automatiquement sans enregistrer?

Bonjour,

Si tu veux fermer par un bouton ou par la croix essaye ceci :

Dans THISWORBOOK mets :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Ferme
End Sub

Dans un MODULE mets :

Sub Ferme()
Application.DisplayAlerts = False
 ActiveWorkbook.Saved = False
 Application.Quit
End Sub

Associe ton bouton à la macro FERME.

Toutefois, je n'aime pas beaucoup de forcer à femer excel sans question préalable comme tu veux le faire car il faut bien savoir que si tu exécutes ce code cela fermera aussi tous les autres fichiers ouverts. Si tu ne les as pas sauvegardés cela serait assez embêtant de recommencer le travail.

Amicalement

Dan

 

[Paritec]

Re : Comment fermer un classeur automatiquement sans enregistrer?

Re Criscris11, et le Forum,
j'avais fait une bêtise j'avais fait

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Close SaveChanges:=False
ActiveWorkbook.Saved = True
Application.Quit
End Sub

et là cela ne marchait pas, j'ai retiré ""ActiveWorkbook.Close SaveChanges:=False""

et maintenant c'est tout bon
Merci beaucoup Criscris11
amicalement
Papou

 

[Paritec]

Re : Comment fermer un classeur automatiquement sans enregistrer?

Bonjour Dan et le Forum,
Oui tu as certainement raison pour 99% des cas, mais là, dans ce cas particulier, c'est mieux de ne pas avoir le choix cela évite des conneries de sélection.
Enfin dans mon application.
Je note ta méthode pour une prochaine utilisation
merci et bon dimanche
a+
Papou

 

[Humansoft]

Re : Comment fermer un classeur automatiquement sans enregistrer?

Bonjour,

Si tu veux fermer par un bouton ou par la croix essaye ceci :

Dans THISWORBOOK mets :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Ferme
End Sub

Dans un MODULE mets :

Sub Ferme()
Application.DisplayAlerts = False
 ActiveWorkbook.Saved = False
 Application.Quit
End Sub

Associe ton bouton à la macro FERME.

Toutefois, je n'aime pas beaucoup de forcer à femer excel sans question préalable comme tu veux le faire car il faut bien savoir que si tu exécutes ce code cela fermera aussi tous les autres fichiers ouverts. Si tu ne les as pas sauvegardés cela serait assez embêtant de recommencer le travail.

Amicalement

Dan

Tu peux rajouter une vérification du nombre de classeurs ouverts:
Exemple:
if Windows.Count > 1 then
'Je ne ferme pas
Application.DisplayAlerts = False
ActiveWorkbook.Saved = False
Else
'Je ferme
Application.DisplayAlerts = False
ActiveWorkbook.Saved = False
Application.Quit
End if

Bon Dimanche.