Comment fermer un classeur automatiquement sans enregistrer?

skoobi

XLDnaute Barbatruc

• 9 Septembre 2007

• #2

Re : Comment fermer un classeur automatiquement sans enregistrer?

Bonjour Paritec,
voici la commande:

Code:

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

 

Vote positif 0 Vote négatif

criscris11

XLDnaute Accro

• 9 Septembre 2007

• #3

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.

 

Dernière édition: 9 Septembre 2007

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 9 Septembre 2007

• #4

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

 

Vote positif 0 Vote négatif

criscris11

XLDnaute Accro

• 9 Septembre 2007

• #5

Re : Comment fermer un classeur automatiquement sans enregistrer?

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

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 9 Septembre 2007

• #6

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

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 9 Septembre 2007

• #7

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

 

Vote positif 0 Vote négatif

criscris11

XLDnaute Accro

• 9 Septembre 2007

• #8

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.

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 9 Septembre 2007

• #9

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 :

Code:

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

Dans un MODULE mets :

Code:

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

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 9 Septembre 2007

• #10

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

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 9 Septembre 2007

• #11

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

 

Vote positif 0 Vote négatif

Humansoft

XLDnaute Occasionnel

• 9 Septembre 2007

• #12

Re : Comment fermer un classeur automatiquement sans enregistrer?

Dan à dit:

Bonjour,

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

Dans THISWORBOOK mets :

Code:

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

Dans un MODULE mets :

Code:

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif