OVH Cloud OVH Cloud

Fermer sans enregistrer les modifications

2 réponses
Avatar
Franck
Bonjour,

J'ouvre un fichier par macro, et la plupart du temps je le=20
sauvegarde sous un nom XY, mais il peut arriver que je=20
n'ai pas =E0 sauvegarder ce fichier. Dans ce second cas, je=20
veux le fermer sans enregistrer les modifications.

J'utilise le code

Windows("aaa.xls").Activate
ActiveWorkBook.Close

Quel code rajouter pour que la r=E9ponse =E0 la bo=EEte de=20
dialogue("voulez vous enregistrer les modifications dans=20
aaa.xls ?") soit automatiquement NON ?

Merci

2 réponses

Avatar
Claude Trouet
Bonjour,
Il suffit de forcer à VRAI la propriété Sauvé du classeur.
Exemple : le callseur 3 a subi des modifs et il n'y a pas besoin de
l'enregistrer

Sub Fermer_Sans_Sauver()
Windows("classeur3").Activate
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
End Sub

Est-ce OK ?
CT

"Franck" a écrit dans le message de news:
3fa001c4ab88$f83f5aa0$
Bonjour,

J'ouvre un fichier par macro, et la plupart du temps je le
sauvegarde sous un nom XY, mais il peut arriver que je
n'ai pas à sauvegarder ce fichier. Dans ce second cas, je
veux le fermer sans enregistrer les modifications.

J'utilise le code

Windows("aaa.xls").Activate
ActiveWorkBook.Close

Quel code rajouter pour que la réponse à la boîte de
dialogue("voulez vous enregistrer les modifications dans
aaa.xls ?") soit automatiquement NON ?

Merci
Avatar
Franck
Merci beaucoup.

-----Message d'origine-----
Bonjour,
Il suffit de forcer à VRAI la propriété Sauvé du classeur.
Exemple : le callseur 3 a subi des modifs et il n'y a pas
besoin de

l'enregistrer

Sub Fermer_Sans_Sauver()
Windows("classeur3").Activate
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
End Sub

Est-ce OK ?
CT

"Franck" a écrit dans le
message de news:

3fa001c4ab88$f83f5aa0$
Bonjour,

J'ouvre un fichier par macro, et la plupart du temps je le
sauvegarde sous un nom XY, mais il peut arriver que je
n'ai pas à sauvegarder ce fichier. Dans ce second cas, je
veux le fermer sans enregistrer les modifications.

J'utilise le code

Windows("aaa.xls").Activate
ActiveWorkBook.Close

Quel code rajouter pour que la réponse à la boîte de
dialogue("voulez vous enregistrer les modifications dans
aaa.xls ?") soit automatiquement NON ?

Merci


.