fermez le fichier si non utilisé de 2 minutes

  • Initiateur de la discussion Initiateur de la discussion news
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

news

XLDnaute Impliqué
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
1 K
Retour