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