Macro événementielle - détecter activité Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
Avatar du membre
VDMICHEL
Membre fidèle
Membre fidèle
Messages : 483
Appréciations reçues : 3
Inscrit le : 13 novembre 2013
Version d'Excel : 2003

Message par VDMICHEL » 3 décembre 2015, 22:29

Bonjour

Cette macro événementielle ne semble pas fonctionner correctement.

J'ai l'impression que le compte à rebours se déclenche qu'il n'y ai ou pas d'activité dans le fichier. :?:

Le code serait-il incomplet?

Merci

Code dans le Workbook
Private Sub Workbook_Open()

Arrêt = False: Laps = Timer
'Le temps pendant lequel le fichier n'est pas activé
'Heures:Minutes:Secondes
' à ajuster ici c'est réglé sur 05 minutes !
Durée = TimeValue("00:05:00")
Départ

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'Remarque : cette macro événementielle détecte les clics dans une cellule du classeur.
'Vous pouvez bien entendu utiliser un autre événement pour décider qu'un classeur est inactif
'Pas de clic dans une cellule donnée, pas de saisie dans un userform, pas de changement de feuille...
Arrêt = True
Laps = Timer
End Sub
 
Code dans un module
Option Explicit

Public Durée As Date
Public Arrêt As Boolean
Public Laps As Double


Sub Départ()

Dim D As Date
D = Now + TimeValue(Durée)
Application.OnTime D, "FermerLeClasseur"
Durée = TimeValue("00:05:00")
End Sub


Sub FermerLeClasseur()

Dim M As Integer
Dim S As Integer
Dim R

If Arrêt = False Then
    'Ferme et enregistre le classeur.
 ThisWorkbook.Close True

Else
    Laps = Timer - Laps
    M = Int(Laps / 60)
    S = Int(Laps - M * 60)
    R = TimeValue("00:" & M & ":" & S)
    Durée = TimeValue(Durée) - R
    Arrêt = False
    Départ
End If

End Sub
 
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'690
Appréciations reçues : 5
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 3 décembre 2015, 22:45

Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message