Fermer excel sans enregistrer

[nanard25]

Bonjour à Tous,

Je galère depuis pas mal de temps et je n'y arrive pas....

Voici mon soucis:

J'ouvre une application Excel qui s'appelle Augmentation.xls
dans cette application j'ouvre un second classeur qui s'appelle Classeur1.xls
qui va me lire une base Access
Lorsque j'ai terminé mes vérifications, je voudrais fermer mes 2 classeurs et quitter Excel
voici ce que j'ai mis dans ma macro :

Sub Fermer()

' Application.DisplayAlerts = False
'--- Ferme les Classeurs sans enregistrement ------------------------
' Workbooks.Close me ferme bien mes classeurs mais ne ferme pas Excel
Application.DisplayAlerts = False
Application.Quit
Application.DisplayAlerts = True
End Sub

J'ai toujours le message "voulez-vous enregistrer...

Un message pour mon 2ème classeur
et le même message pour mon premier classeur

Merci de m'aider
Je souhaite à Tous une bonne fin de journée
Nanard25

 

[PascalXLD]

Re : Fermer excel sans enregistrer

Bonjour

déjà il vau tmieux eviter le application.quit car en effet cela ferme excel mais si tu as un troisième classeur ouvert où tu as bossé et pas enregistré alors 🙁

sinon il faut

Workbooks.Close False

 

[nanard25]

Re : Fermer excel sans enregistrer

Merci de me répondre aussi vite

En fait je n'ai que ces 2 classeurs d'ouvert pour faire des vérifs, qui me modifie
une feuille sur le 1er classeur et je ne veux surtout pas que la personne qui
utiliseras cette application puisse enregistrer par inadvertence

avec ceci :
Application.DisplayAlerts = False
Application.Quit
Application.DisplayAlerts = True
J'ai toujours le message me demandant si je veux enregistrer mes classeurs

Merci encore

 

[PascalXLD]

Re : Fermer excel sans enregistrer

re

tu as bien rajouté false derrière le close ?????

 

[nanard25]

Re : Fermer excel sans enregistrer

Merci Pascal XLD,

Ce morceau de code ne me ferme que le classeur1 et non pas
Classeur1 et Augmentation, de plus il ne me ferme pas Excel

Application.DisplayAlerts = False
ActiveWorkbook.Close False

Application.Quit
Application.DisplayAlerts = True

Merci pour le temps que vous passez à m'aider, et pour ce forum qui est super

Nanard25

 

[PascalXLD]

Re : Fermer excel sans enregistrer

re

je suppose que ton code est dans le fichier augmentation

tu peux ajouter après activeworkbook.close false
thisworkbook.close false

 

[nanard25]

Re : Fermer excel sans enregistrer

Merci Pascal XLD,

Effectivement mon code est dans le fichier augmentation

pour les instructions:

ActiveWorkbook.Close False
ThisWorkbook.Close False

Cela me ferme mon classeur en cours et mon classeur actif,
Ce que j'aimerais c'est maintenant fermer Excel

Merci d'avance

nanard25

 

[nanard25]

Re : Fermer excel sans enregistrer les classeurs

Bonsoir,

je reformule ma demande:
J'aimerais après avoir fermé 2 classeurs , pouvoir fermer Excel

j'ai mis ceci dans une procédure :
Application.DisplayAlerts = False
ActiveWorkbook.Close False
ThisWorkbook.Close False

Application.Quit

Application.DisplayAlerts = True

Mon Classeur secondaire qui s'appelle Classeur1 se ferme
Mon Classeur de démarrage où se trouvent les macros s'appelle Augmentations se ferme

mais pas Excel qui est toujours ouvert

Merci d'éclairer ma lanterne
Bonne soirée à Tous
Nanard25

 

[nanard25]

Re : Fermer excel sans enregistrer

Bonjour à Tous,

J'ai fais des modifications et j'arrive au résultat suivant :

Windows("Classeur1").Activate
ActiveWorkbook.Close False

Application.DisplayAlerts = False
Application.Quit

si mon classeur Augmentations subit des modifications je l'enregistre avant
comme ceci :

Application.DisplayAlerts = False
ThisWorkbook.Close SaveChanges:=True
Application.DisplayAlerts = False

ET çà marche

Merci à Tous et bonne journée
Nanard25