Eviter boite de dialogue fermer enregistrer

[Daniel33]

Bonsoir, voici deux petites macros que j'ai faite en mode enregistrement.
La première ferme le documents actif après avoir enregistrer les modifs

Sub ferme_et_enregistre()
'
' ferme_et_enregistre Macro
'

'
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

la seconde ferme le documents actif sans enregistrer les modifs.Cependant, elle m'affiche la boite de dialogue m'invitant à choisir si je veux enregistrer ou pas, ces modifs.


Sub fermer_sans_enregistrer()
'
' fermer_sans_enregistrer Macro
'

'
ActiveWorkbook.Close
End Sub
Ma question: Existe-y-t-il un moyen d'éviter cette boite de dialoge, et de fermer le document d'office, sans l'enregistrer.
Merci pour votre aide.
D.O

 

[Lone-wolf]

Re : Eviter boite de dialogue fermer enregistrer

Bonsoir Daniel,

il faut mettre: Application.DisplayAlerts = False au dessus de ActiveWorkbook.Close ou .Save.


A+

 

[JCGL]

Re : Eviter boite de dialogue fermer enregistrer

Bonjour à tous,

Peux-tu essayer avec

ActiveWorkbook.Close False

Cet exemple ferme le classeur actif en ignorant toutes les modifications qui y ont été apportées.

A+ à tous

 

[Daniel33]

Re : Eviter boite de dialogue fermer enregistrer

Bonsoir Daniel,

il faut mettre: Application.DisplayAlerts = False au dessus de ActiveWorkbook.Close ou .Save.


A+

OK Merci je vais tester ça tout de suite

 

[Daniel33]

Re : Eviter boite de dialogue fermer enregistrer

Voilà: je viens de faire la modif, ça donne ça:

Sub fermer_sans_enregistrer()
'
' fermer_sans_enregistrer Macro
'

' Application.DisplayAlerts = False
ActiveWorkbook.Close
End Sub

Je ne sais pas si j'ai fait une erreur, mais ça ne change rien, j'ai toujours la boite de dialogue "enregistrer oui/non"

Merci pour votre aide.

 

[JCGL]

Re : Eviter boite de dialogue fermer enregistrer

Bonjour à tous,

Merci de tester ma proposition en #3

A+ à tous

 

[Daniel33]

Re : Eviter boite de dialogue fermer enregistrer

A c'est bon, j'ai trouver l'erreur: j'ai laisser l'apostrophe en début de la ligne que j'ai rajouter.
Maintenant ça marche OK

 

[Daniel33]

Re : Eviter boite de dialogue fermer enregistrer

Bonjours, je viens de voir votre proposition tardivement, je viens de la tester et ça marche bien également, et elle a l'avantage d'économiser une ligne de commande.
Merci à vous tous pour vos bons conseils.