Bonsoir à tous du forum,
je veux utilsier une formule qui ferme le fichier, si le fichier n'est pas utilisé,
tant qu'on y écrit sur le fichier, y met du texte ou des montants,
qu'on l'utilise, le fichier ne se ferme pas,
dès 2 minutes non utilisé, le fichier se ferme.
J'ai mis les formules suivants dans le module :
Public HeureArrêt
' file is closing in __ minutes, if not using the file
Sub Closefile_in_2_minutes()
HeureArrêt = Now + TimeValue("00:02:00")
Application.OnTime HeureArrêt, "Fin"
Sheets(1).[A1] = HeureArrêt
End Sub
Sub Fin()
On Error Resume Next
Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False 'annule événnement
Worksheets("data").Activate
Range("G4") = 5
ThisWorkbook.Close True
End Sub
in This Workbook j'ai mis la formule suivante :
Private Sub Workbook_Open()
' --------------------------------
' close a file if there has been no user activity on that workbook for a specified period of time.
' -------------------
On Error Resume Next
Closefile_in_2_minutes
On Error GoTo 0
End Sub
Comment résoudre ?,
news
je veux utilsier une formule qui ferme le fichier, si le fichier n'est pas utilisé,
tant qu'on y écrit sur le fichier, y met du texte ou des montants,
qu'on l'utilise, le fichier ne se ferme pas,
dès 2 minutes non utilisé, le fichier se ferme.
J'ai mis les formules suivants dans le module :
Public HeureArrêt
' file is closing in __ minutes, if not using the file
Sub Closefile_in_2_minutes()
HeureArrêt = Now + TimeValue("00:02:00")
Application.OnTime HeureArrêt, "Fin"
Sheets(1).[A1] = HeureArrêt
End Sub
Sub Fin()
On Error Resume Next
Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False 'annule événnement
Worksheets("data").Activate
Range("G4") = 5
ThisWorkbook.Close True
End Sub
in This Workbook j'ai mis la formule suivante :
Private Sub Workbook_Open()
' --------------------------------
' close a file if there has been no user activity on that workbook for a specified period of time.
' -------------------
On Error Resume Next
Closefile_in_2_minutes
On Error GoTo 0
End Sub
Comment résoudre ?,
news