XL 2016 Erreur 1004 sur un fichier copié par VBA

[JPrev]

Bonjour à tous,

Je m'excuse par avance si mon post n'est pas clair, je vais faire un effort .

J'ai un fichier base, qui permet aux utilisateurs de compléter un formulaire et une macro permet à la validation de créer une copie de ce formulaire avec des codes variables etc. qui file dans une base de données.

J'ai inséré dans ce fichier un code permettant la fermeture automatique du fichier en cas d'inactivité (voir code en PJ).

Problème : Lorsque j'ouvre en même temps le fichier base + une des fameuses copies, j'ai le message d'erreur en PJ et lors du débogage, j'ai la partie en jaune qui ressort.

Sauriez-vous me dire pourquoi et comment éviter ce souci?

Merci d'avance pour votre aide!!

JPrev

Option Explicit
Dim DownTime As Date
Sub SetTimer()
    DownTime = Now + TimeValue("00:15:00")
    Application.OnTime EarliestTime:=DownTime, _
      Procedure:="ShutDown", Schedule:=True
End Sub
Sub StopTimer()
    On Error Resume Next
    Application.OnTime EarliestTime:=DownTime, _
      Procedure:="ShutDown", Schedule:=False
    On Error GoTo 0
 End Sub
Sub ShutDown()
    Application.DisplayAlerts = False
    Workbooks("FICHIER").Save
    With ThisWorkbook
        .Saved = True
        .Close
    End With
End Sub