XL 2016 Erreur 1004 sur un fichier copié par VBA

JPrev

XLDnaute Junior
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

VB:
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
 

Pièces jointes

  • Erreur1.JPG
    Erreur1.JPG
    82.2 KB · Affichages: 38

Discussions similaires

Statistiques des forums

Discussions
311 741
Messages
2 082 058
Membres
101 883
dernier inscrit
Don esteban