Discussion :

[graphikris]

Bonjour,

Dans un module et dans This Workbook, j'ai mis une macro qui en cas d'inactivité sur mon fichier Excel, ce dernier s'enregistre puis se ferme automatiquement.
Mon souci est que j'ai une macro qui lorsque je la déclenche dure plus longtemps, (entre 1 et 15 mn) selon certains choix, que le timer (5mn) que j'ai mis en cas d'inactivité.

Comment faire pour y remédier sans changer la durée du Timer

Voici mon code :

ThisWorkbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
Private Sub Workbook_Open()
    Call SetTimer
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call StopTimer
End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    Call StopTimer
    Call SetTimer
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
  ByVal Target As Excel.Range)
    Call StopTimer
    Call SetTimer
End Sub

Dans un module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
Dim DownTime As Date
Sub SetTimer()
    DownTime = Now + TimeValue("00:05:00")
    Application.OnTime EarliestTime:=DownTime, _
      Procedure:="ShutDown", Schedule:=True
End Sub
Sub StopTimer()
    On Error Resume Next
    Application.OnTime EarliestTime:=DownTime, _
      Procedure:="ShutDown", Schedule:=False
    On Error GoTo 0
 End Sub
Sub ShutDown()
    ThisWorkbook.Save
    Application.Quit
 
End Sub

Cordialement

[riaolle]

Bonjour !
Est-ce que lorsque tu appelles cette fonction qui dure éventuellement plus de 5 min, tu ne pourrais pas désactiver les évènements du classeur?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Application.EnableEvents = False
'puis ne pas oublier à la fin du code
Application.EnableEvents = True

[Jean-Philippe André]

Salut,

peut etre mettre une variable Boolean qui interdit le blocage. Tu la mettrais a True au debut des macros susceptibles d'etre lancees et a False a la fin.

Dans le code ShutDown, tu ajoutes la condition qu'aucune macro ne tourne =]

[graphikris]

Bjr RIAOLLE et merci pour ta reponse.
Ou faut il mettre ton code ?
Dans ThisWorkbook, dans mon module (Timer) ou dans le module de la macro qui peut durer plus longtemps que la duree du timer ?

Cordialement.

[graphikris]

Salut,

peut etre mettre une variable Boolean qui interdit le blocage. Tu la mettrais a True au debut des macros susceptibles d'etre lancees et a False a la fin.

Dans le code ShutDown, tu ajoutes la condition qu'aucune macro ne tourne =]

Bjr et merci a toi met je ne touche pas ma bille en VBA et ta reponse reste un mystere pour moi.
Peux tu m'expliquer plus en détail en me mettant des codes ?

Cordialement

[Jean-Philippe André]

Bien sur,

dans le dernier module dans ton exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Option Explicit
Dim DownTime As Date
Public bBlockShutDown As Boolean
'...
Sub ShutDown()
    If Not bBlockShutDown Then
        ThisWorkbook.Save
        Application.Quit
     End If
End Sub

Dans le ThisWorkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Workbook_Open()
    bBlockShutDown  =False
    Call SetTimer
End Sub

Dans les macros pouvant justifier un blocage de la fermeture

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub TaMacroBloquante()
bBlockShutDown  = True
'le contenu de ton code
bBlockShutDown  = False
End Sub

En esperant que tu comprends l'idee =]

Et pour la formation, les cours et tutoriels pour apprendre Excel : https://excel.developpez.com/cours/

[graphikris]

MErci Jean-Philippe,
maintenant c'est beaucoup lus claire. J'ai tout compris. Je teste tout çà et encore merci

[riaolle]

Bjr RIAOLLE et merci pour ta reponse.
Ou faut il mettre ton code ?
Dans ThisWorkbook, dans mon module (Timer) ou dans le module de la macro qui peut durer plus longtemps que la duree du timer ?

Cordialement.

Le code se place dans la macro qui peut durer plus longtemps que la durée du timer. Il faut mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.EnableEvents = False

au début du code est l'équivalent avec True à la fin du code. Cela empêchera les évènements de se déclencher.

[unparia]

Bonjour

Dans un module et dans This Workbook, j'ai mis une macro qui en cas d'inactivité sur mon fichier Excel, ce dernier s'enregistre puis se ferme automatiquement.

J'ai personnellement une question :
Comment détermines-tu exactement cette "inactivité" ?
Pour moi, par exemple, l'inactivité ne se résume pas à une non-intervention de l'utilisateur.
La réponse à cette question est importante.

[graphikris]

Bjr Unparia,

En fait mon fichier est sur un serveur, nous sommes 4 a l'utiliser mais pas en partage. Si l'un de nous ouvre le fichier puis s'absente pour aller en reunion par exemple, nous ne pouvons pas ouvrir le fichier car ie serveur nous dit : ce fichier est en cours d'utilisateur par XXXXX.

[unparia]

Ta réponse n'est en aucun cas une réponse à ma question, graphikris.
Je la réitère donc :

Comment détermines-tu exactement cette "inactivité" ?
Pour moi, par exemple, l'inactivité ne se résume pas à une non-intervention de l'utilisateur.

L'inactivité est-elle pour toi uniquement l'absence d'intervention (via souris, clavier, etc ...) du seul utilisateur ?
Cette définition de l'inactivité est celle de l'utilisateur et pas forcément celle du classeur.
Ne comprends-tu pas la différence ?
Montre nous donc (on y verra peut-être plus clair ainsi) le code par lequel tu décèles ce que tu appelles "inactivité" .

[graphikris]

Mon code est au post #1.
Sinon l'inactivité est celle du classeur (pas de clic, de passage de souris)

[joe.levrai]

la réponse qu'attend unparia est : je calcule l'inactivité au moyen de l'évènement calculate et selectionchange

[unparia]

Mon code est au post #1.
Sinon l'inactivité est celle du classeur (pas de clic, de passage de souris)

Je ne vois rien de tout cela dans le code montré dans ton message #1 et y vois encore moins ce qui y différencie l'activité de tel ou tel autre utilisateur.

[graphikris]

Y fallait le comprendre

[joe.levrai]

Rhoo c'était pas compliqué non plus.
Schématiquement, il souhaite savoir "comment" et tu lui répond "pourquoi" tu le fais

j'ai triché, je suis pas censé répondre car son intervention fait partie de ton cycle d'apprentissage, t'es pas tout nouveau sur le forum, on peut se permettre de te pousser un peu plus loin non ? C'est dans ton réel intérêt

[graphikris]

je n'ai pas dit le contraire. Mais je fais du VBA par obligation donc forcément ça ne m'intéresse pas plus que ça donc j'oublie vite

[unparia]

L'inactivité d'un programme (quel qu'il soit) se décèle à l'absence de messages qu'il échange avec le système.
Il se suffit pas que l'utilisateur ne se "promène" plus d'une cellule à l'autre (ton selection_change) pour décréter que le classeur n'est plus actif. Idem en ce qui concerne l'évènement Calculate
Cela implique l'utilisation de la fonction GetLastInputInfo de la librairie user32 de l'Api de Windows.

Maintenant : si tu te contentes de décréter que le seul fait de ne constater ni calculs, ni sélections est "déterminant" de l'inactivité de ton classeur, il te suffit de mettre en oeuvre ce qui t'a été indiqué, à savoir par exemple une variable booléenne publique mise à true à chacune de ces deux activités. Au Ontime : si false, tu quittes le classeur. Si true, tu ne quittes pas et relance le Ontime après avoir remis cette booléenne à False. Tu peux également utiliser une variable publique de type date actualisée lors de chacun de ces deux évènements et, au Ontime, ne quitter que si Now - cette variable > délai imparti.
Tu peux enfin (et cela t'a également été suggéré) utiliser une variable booléenne mise à true au lancement de ta macro et remise à false à sa fin. Et tu ne quittes que si false.

[graphikris]

Merci pour tous ces conseils.
Tout fonctionne comme je le voulais.

[graphikris]

Je rouvre la discussion non pas parce que ça ne fonctionne pas mais plutôt parce qu'une question me trottine dans la tète :
Dans mon module ci dessous, le TimeValue("00:05:00") est positionné à 5mn, comment faire si je veux indiquer ce délai non pas dans mon module mais dans la cellule B5 de la feuille 1 qui aura le format horaire ? :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Dim DownTime As Date
Sub SetTimer()
    DownTime = Now + TimeValue("00:05:00")
    Application.OnTime EarliestTime:=DownTime, _
      Procedure:="ShutDown", Schedule:=True
End Sub
Sub StopTimer()
    On Error Resume Next
    Application.OnTime EarliestTime:=DownTime, _
      Procedure:="ShutDown", Schedule:=False
    On Error GoTo 0
 End Sub