Mettre en place un enregistrement Automatique toutes les X minutes

Bonjour,

j'aimerai mettre en place un enregistrement Automatique toute les X minutes (dépendant du fichier), j'ai déjà un code que j'ai réussi à avoir d'un autre forum mais celui-ci me réouvre constamment le fichier alors que je l'ai déjà fermé. J'ai regardé le code et j'ai remarqué qu'a la fermeture du fichier il exécute une macro qui relance constamment le Timer d'enregistrement. Je pense que c'est ce qui réouvre le fichier. Cependant je ne sais pas comment le modifier pour ne plus qu'il relance le timer quand je le ferme.

Je vous met le fichier qui s'enregistre toutes les minutes en copie en espérant que vous arriverez à trouver une solution. Les codes de sauvegarde se trouve Dans ThisWorkbook et dans le module 2

Je vous remercie pour l'aide que vous pourrez m'apporter.

bonsoir,

Sub SetTimer()
     StopTimer   '<<<-------- pour sécurité
     DownTime = Now + TimeValue("00:01:00")
     Application.OnTime EarliestTime:=DownTime, Procedure:="ShutDown", Schedule:=True
End Sub

Merci mais même avec ton code le fichier continu de se rouvrir tout le temps.