Petit bout de code pour fermeture excel svp [Résolu/Fermé]

Signaler
Messages postés
6
Date d'inscription
lundi 3 juillet 2006
Statut
Membre
Dernière intervention
4 juillet 2006
-
Messages postés
6
Date d'inscription
lundi 3 juillet 2006
Statut
Membre
Dernière intervention
4 juillet 2006
-
Bonjour , j'ai besoin d'un petit bout de code VBA pour fermer deux fenêtres EXCEL ouvertes sans les modifier (c'est à dire sans qu on me demande :"Voulez-vous enregistrer les modifications à SSS.xls ? ma réponse étant "non" à répondre deux fois(car il y a deux fenêtres ouvertes))
Je ferai un bouton dans la page et j'y affecterai cette macro .
Merci beaucoup

9 réponses

Messages postés
1844
Date d'inscription
mercredi 19 janvier 2005
Statut
Membre
Dernière intervention
18 mai 2021
1 459
Hello,

Saved est un indicateur positionné à True si on n'a effectué aucune modif, ou si une sauvegarde a été effectuée. Dès qu'on modifie le classeur, Excel le bascule à False. C'est ce qui lui permet de savoir si, à la fermeture, il doit ou non poser la question : Voulez-vous enregistrer etc.
Si les utilisateurs ont fait des modifs, Saved est déjà à False, et Excel pose la question.

On peut, au contraire, mettre l'indicateur à True. Dans ce cas, Excel ne pose pas la question, et ne fait pas d'enregistrement, puisqu'on lui dit que le classeur n'a pas été modifié, ou a déjà été sauvegardé.
ActiveWorkbook.Saved = True
ActiveWorkbook.Close

Sinon, on peut aussi écrire :
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
Le première solution est plus courte.
26
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
32840
Date d'inscription
mercredi 29 août 2001
Statut
Modérateur
Dernière intervention
21 octobre 2019
15 541
Quelquechose du genre:
workbook.Close(SaveChanges=False)

(Enfin, en Python en tous cas.)
Messages postés
6
Date d'inscription
lundi 3 juillet 2006
Statut
Membre
Dernière intervention
4 juillet 2006
4
Application.Quit
SaveChanges = False

et ca marche pas ; excel me demande toujours si je veux sauvegarder
merci
Messages postés
282
Date d'inscription
vendredi 28 mai 2004
Statut
Membre
Dernière intervention
10 janvier 2008
213
salut,

en fait c'est presque ça, mais dans l'autre sens :
Application.SaveChanges = False
Application.Quit 

Messages postés
6
Date d'inscription
lundi 3 juillet 2006
Statut
Membre
Dernière intervention
4 juillet 2006
4
Non ca marche pas encore ...
Je ne comprends pas , j'ai l'impression que application.savechanges n'existe pas
merci
a+
Messages postés
6
Date d'inscription
lundi 3 juillet 2006
Statut
Membre
Dernière intervention
4 juillet 2006
4
Décidément excel est têtu il ne veux pas de :

ActiveWorkbook.SaveChanges = False
Application.Quit

a+
Messages postés
282
Date d'inscription
vendredi 28 mai 2004
Statut
Membre
Dernière intervention
10 janvier 2008
213
Oooooppppsssss! désolé.....

j'm'ai trompé :
ActiveWorkbook.SaveChanges = False
' pour fermer Excel
Application.Quit
' ou pour fermer le fichier seulement
' ActiveWorkbook.Close
Messages postés
6
Date d'inscription
lundi 3 juillet 2006
Statut
Membre
Dernière intervention
4 juillet 2006
4
le pire c'est qu on va regagner mercredi ...
Ca ferme bien excel , mais j ai toujours cette satanée box : "voulez-vous enregistrer les modifications " et j'en veux plus car les gens avec qui je travaille sont foutu de répondre "oui" ....
A+
Messages postés
282
Date d'inscription
vendredi 28 mai 2004
Statut
Membre
Dernière intervention
10 janvier 2008
213
alors là, rien ne va plus : je suis hyper-super-méga-ultra fatigué :

c'est :
ActiveWorkbook.Saved = False


:-(

je vais me coucher de ce pas!
Messages postés
282
Date d'inscription
vendredi 28 mai 2004
Statut
Membre
Dernière intervention
10 janvier 2008
213
salut tout le monde,

je revenais pour quelques précisions après une bonne nuit de sommeil, et les idées un peu plus claires, mais Armojax est déjà passé par là alors...

Messages postés
6
Date d'inscription
lundi 3 juillet 2006
Statut
Membre
Dernière intervention
4 juillet 2006
4
merci beaucoup
ca marche
Messages postés
282
Date d'inscription
vendredi 28 mai 2004
Statut
Membre
Dernière intervention
10 janvier 2008
213
décidément, je suis mal réveillé :
ActiveWorkbook.Saved = False


mais c'est lundi, et samedi on a gagné alors je plaide les circonstances atténuantes...