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 HeureArrt
Public DŽlai
Public Reste
Public temps
Sub ProchainArret()
HeureArrt = Now + DŽlai
Reste = DŽlai
End Sub
Sub Fin()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:=False
Application.OnTime HeureArrtt, 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 HeureArrt, Procedure:="Fin", Schedule:=False
ProchainArret
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
On Error Resume Next
Application.OnTime HeureArrt, Procedure:="Fin", Schedule:=False ' annule ŽvŽnnement
Application.OnTime temps, Procedure:="majHeure", Schedule:=False
End Sub
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 HeureArrt
Public DŽlai
Public Reste
Public temps
Sub ProchainArret()
HeureArrt = Now + DŽlai
Reste = DŽlai
End Sub
Sub Fin()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:=False
Application.OnTime HeureArrtt, 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 HeureArrt, Procedure:="Fin", Schedule:=False
ProchainArret
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
On Error Resume Next
Application.OnTime HeureArrt, Procedure:="Fin", Schedule:=False ' annule ŽvŽnnement
Application.OnTime temps, Procedure:="majHeure", Schedule:=False
End Sub