Quitter sans sauvegarder

[Christophe]

Bonjour le Forum et ses fidèles,

J'utilise une macro qui ouvre un grand nombre de fichiers pour en compiler les données dans un fichier central. Tout fonctionne à merveille sauf que je ne sais pas automatiser le fait de quitter un fichier sans le sauvegarder ni conserver les données copiées, ce qui fait que je suis obligé de cliquer à chaque fois sur les boîtes de dialogue qui s'affichent. Ni pratique, ni efficace.

C'est sans doute très basique comme question, mais il me semble difficile d'inventer la réponse !

Merci donc par avance de votre coup de mains.

Bonne fin de journée.


Christophe

 

[Tenormadness]

Bonjour,
lorsque tu fais

workbooks(StrNomDuClasseurOuvert).close false

ferme le fichier ouvert en import sans sauvegarder
gain de temps

Tchaoowww

AVEHEUGOUDEDAI - Tenormadness

 

[fredl]

apres avoir activé le fichier :
ActiveWorkbook.Close savechanges:=False

cela te convient il?
Excellement
Frédéric

 

[2passage]

Bonjour,

a chaque fois, je suis obligé de rechercher la syntaxe exacte... setwarning ? non... showWarning.... non .... ah Voilà... l'avantage c'est que je n ai plus qu'un copier coller de l'aide à faire :silly:

DisplayAlerts, propriété - Exemples

Cet exemple montre comment fermer le classeur Book1.xls sans inviter l'utilisateur à enregistrer les modifications. Les modifications apportées à Book1.xls ne sont pas enregistrées.

Application.DisplayAlerts = False
Workbooks('BOOK1.XLS').Close
Application.DisplayAlerts = True

A+

 

[Christophe]

Merci à tous pour ces solutions proposées !

Je viens de tester celel proposée par 2passage : ça marche !!!

Merci encore.

Bonne journée.

🙂 🙂 🙂 🙂