Eviter boite de dialogue fermer enregistrer

  • Initiateur de la discussion Initiateur de la discussion Daniel33
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Daniel33

XLDnaute Nouveau
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
 
Re : Eviter boite de dialogue fermer enregistrer

Bonjour à tous,

Peux-tu essayer avec
VB:
ActiveWorkbook.Close False

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

A+ à tous
 
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.
 
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
548
Réponses
1
Affichages
682
Réponses
6
Affichages
1 K
Retour