fermez le fichier si non utilisé de 2 minutes

[news]

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

 

[ledzepfred]

Re : fermez le fichier si non utilisé de 2 minutes

bonsoir news,

c'est le else Exit Sub dans la procédure Workbook_Open qui empêche la fermeture du fichier.
Si tu supprimes cette ligne cela fonctionnera

A+