Sujet Précédent Sujet Suivant

Petit bout de code pour fermeture excel svp

Résolu/Fermé
d1102 Messages postés 6 Date d'inscription lundi 3 juillet 2006 Statut Membre Dernière intervention 4 juillet 2006 - 3 juil. 2006 à 15:04
d1102 Messages postés 6 Date d'inscription lundi 3 juillet 2006 Statut Membre Dernière intervention 4 juillet 2006 - 4 juil. 2006 à 13:15
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
A voir également:

9 réponses

Réponse 1 / 9
Armojax Messages postés 1858 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 22 mars 2024 1 528
4 juil. 2006 à 09:25
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
Réponse 2 / 9
sebsauvage Messages postés 32893 Date d'inscription mercredi 29 août 2001 Statut Modérateur Dernière intervention 21 octobre 2019 15 655
3 juil. 2006 à 16:01
Quelquechose du genre:
workbook.Close(SaveChanges=False)

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

et ca marche pas ; excel me demande toujours si je veux sauvegarder
merci
0
Kobaya Messages postés 282 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 10 janvier 2008 214
3 juil. 2006 à 16:53
salut,

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

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

ActiveWorkbook.SaveChanges = False
Application.Quit

a+
2

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 9
Kobaya Messages postés 282 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 10 janvier 2008 214
3 juil. 2006 à 17:27
Oooooppppsssss! désolé.....

j'm'ai trompé : 
ActiveWorkbook.SaveChanges = False
' pour fermer Excel
Application.Quit
' ou pour fermer le fichier seulement
' ActiveWorkbook.Close
0
Réponse 6 / 9
d1102 Messages postés 6 Date d'inscription lundi 3 juillet 2006 Statut Membre Dernière intervention 4 juillet 2006 4
3 juil. 2006 à 17:57
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+
0
Réponse 7 / 9
Kobaya Messages postés 282 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 10 janvier 2008 214
3 juil. 2006 à 18:02
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!
0
Réponse 8 / 9
Kobaya Messages postés 282 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 10 janvier 2008 214
4 juil. 2006 à 12:33
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...

0
d1102 Messages postés 6 Date d'inscription lundi 3 juillet 2006 Statut Membre Dernière intervention 4 juillet 2006 4
4 juil. 2006 à 13:15
merci beaucoup
ca marche
0
Réponse 9 / 9
Kobaya Messages postés 282 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 10 janvier 2008 214
3 juil. 2006 à 17:45
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...

-1

Discussions similaires

comment écrire des petits chiffres ?
Elisa-x3 -
Luka_65 -

9 réponses