Fermeture d'un fichier et excel sans message de confirmation

Bonsoir,

j ai le code suivant, qui doit fermer le fichier, enregistrer les modifications et fermer l'application Excel
mais à l'exécution de la macro, le message de confirmation pour les modifications s'affiche quand même :(

pourriez vous m aider sur la question svp

merci d avance

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub Macro2() '   Sheets("Etat des Bons et Compteur").Select ActiveSheet.Unprotect ActiveWindow.Close Sheets("Etat des Bons et Compteur").Select Range("A2:J500").Select Selection.ClearContents Range("A2").Select Sheets("Menu").Select   MsgBox (" Transfert des données réussi, vous allez quitter le fichier ! "), vbOKOnly   Sheets("Etat des Bons et Compteur").Visible = xlVeryHidden Sheets("Menu").Select   Application.AlertBeforeOverwriting = False ThisWorkbook.Save Application.Quit     End Sub

---

Salut à toi,

As-tu essayé avec

Code:

---

Application.DisplayAlerts = False

---

ou simplement

Code:

---

ThisWorkbook.Close SaveChanges:=True

---

:)

Salut
j ai testé le 2eme code
simple, efficace !! :lol:

merci beaucoup
bonne soirée

ah par contre as tu une explication au non fonctionnement de mon code ?
pour comprendre ...:D

Je n'ai jamais utilisé cette propriété de l'application, mais d'après la page de MSDN, elle sert à ne pas prévenir dans le cas de déplacement de cellules qui écraseraient d'autres cellules... Ce n'est pas lié au fichier :)

Sinon, si je peux me permettre, ton code peut être largement amélioré (simplifié, en réalité)... Pour faire simple, tu n'as jamais besoin de sélectionner pour réaliser une action. Ainsi :
Range.Select → Selection.[Action] est lourd, inutile et fait bouger la sélection tout le temps, rendant Excel difficile à regarder sans avoir la nausée !

Il te suffit uniquement de faire Range.[Action]
Exemple sur ton code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Macro2() ' Sheets("Etat des Bons et Compteur").Unprotect ActiveWindow.Close 'en as-tu vraiment besoin ? Sheets("Etat des Bons et Compteur").Range("A2:J500").ClearContents MsgBox " Transfert des données réussi, vous allez quitter le fichier ! ", vbOKOnly Sheets("Etat des Bons et Compteur").Visible = xlVeryHidden Sheets("Menu").Select   ThisWorkbook.Close SaveChanges:=False   End Sub

---

Bon, je n'avais en réalité que 2 ou 3 corrections, mais j'imagine que tes codes sont souvent comme ça, tu dois t'inspirer de l'enregistreur de macros (comme beaucoup ici, dont moi à mes débuts). Mais fais comme ça et tes macros seront largement plus rapides !!

effectivement tu auras bien noté que je suis un débutant avec un grand D...:)
Et comment que tu peux te permettre de me donner des conseils, je les prends volontiers !!! :)

j'en prends bonne note et je te remercie pour ton éclairage

bonne soirée... En attendant surement de revenir solliciter le forum ( génial ! ) pour des aides.