Suppression d'un message d'enregistrement

Bonjour la communauté,

Dans le cadre de la traçabilité des modifications et de la conservation d'historiques faites sur un tableau Excel, j'ai créé cette macro qui est dans ThisWorbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs ("\\XXXX\Archives du " & Format(Now(), "DD-MMM-YYYY hh_mm_ss") & "_" & Environ("username") & ".xlsm")
End Sub

Le problème c'est qu'à la fermeture un message apparait avec la mention de l'enregistrement et le chemin et j'aimerai masquer cette fenêtre.

Pourriez vous m'aider ?

Respectueusement.

PM

Bonjour Pascal13011,

Simple

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.ScreenUpdating = False
  ActiveWorkbook.SaveAs ("\\XXXX\Archives du " & Format(Now(), "DD-MMM-YYYY hh_mm_ss") & "_" & Environ("username") & ".xlsm")
  Application.ScreenUpdating = True
End Sub

A+

n'est-ce pas plutôt "Application.displayalerts=TRUE/False"

BONJOUR pour commencer quand on est poli

BsAlv a écrit :

n'est-ce pas plutôt "Application.displayalerts=TRUE/False"

Il est indiqué que c'est juste la mention de l'enregistrement, j'ose espérer que le demandeur nous aurait parlé d'une boite de dialogue sinon

bonjour JExceL2fr

Bonjour et merci pour vos réponses,

En réalité j'ai un message de ce type :

et j'aimerai que ce dernier n'apparaisse pas lorsqu'on ferme le fichier.

J'ai essayé de modifier la macro de la manière suivante mais j'ai toujours le message :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
ActiveWorkbook.SaveAs ("\\XXXX\Archives du " & Format(Now(), "DD-MMM-YYYY hh_mm_ss") & "_" & Environ("username") & ".xlsm")
Application.ScreenUpdating = True

et j'ai également ce message :

J'espère avoir été plus clair.

Merci encore

Re,

Merci de mettre les codes entre balises SVP

Le bouton est ICI

Vous coller votre code dans la fenêtre qui s'ouvre, tout simplement !

Sinon, il faut peut-être ajouter l'instruction que BsAlv à donné

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  ActiveWorkbook.SaveAs ("\\XXXX\Archives du " & Format(Now(), "DD-MMM-YYYY hh_mm_ss") & "_" & Environ("username") & ".xlsm")
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
End Sub

En ce qui concerne le message "Division par zéro" je ne sais pas, mais ça n'a rien à voir normalement.

A+