• Initiateur de la discussion Initiateur de la discussion Armarm
  • 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 !

Armarm

XLDnaute Nouveau
Bonjour ,

J'ai installée un code VBA sur un fichier partagée afin que le fichier se referme automatiquement après 10 minutes d'inactivité. Mais le fichier beug, il s'ouvre et se referme à chaque fois, je pense que c'est un probléme au niveau du réglage sur le temps de ces 2 lignes :

Reste = Reste - TimeValue("00:10:00")
temps = Now + TimeValue("00:10:00")

CODE: TOUT SÉLECTIONNER
Public HeureArrt
Public DŽlai
Public Reste
Public temps
Sub ProchainArret()
HeureArrt = Now + DŽlai
Reste = DŽlai
End Sub
Sub Fin()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:=False
Application.OnTime HeureArrtt, Procedure:="Fin", Schedule:=False 'annule ŽvŽnnemennt
ThisWorkbook.Close True
End Sub

Sub majHeure()
On Error Resume Next
Sheets(1).[A1] = Reste
Reste = Reste - TimeValue("00:10:00")
temps = Now + TimeValue("00:10:00")
Application.OnTime temps, "majHeure"
End Sub



CODE: TOUT SÉLECTIONNER
Private Sub Workbook_Open()
DŽlai = TimeValue("00:10:00")
Reste = DŽlai
ProchainArret
majHeure
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As range)
On Error Resume Next
Application.OnTime HeureArrt, Procedure:="Fin", Schedule:=False
ProchainArret
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
On Error Resume Next
Application.OnTime HeureArrt, Procedure:="Fin", Schedule:=False ' annule ŽvŽnnement
Application.OnTime temps, Procedure:="majHeure", Schedule:=False
End Sub
 
- 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
9
Affichages
141
  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
162
  • Question Question
Microsoft 365 Erreur UBound
Réponses
4
Affichages
144
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
169
Retour