Inactivité et macro en cours

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:

---

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:

---

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

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:

---

1 2 3 4

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

---

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 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.

Citation:

---

Envoyé par 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 =]

---

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

Bien sur,

dans le dernier module dans ton exemple :

Code:

---

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:

---

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:

---

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/

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

Citation:

---

Envoyé par 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.

---

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

Code:

---

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.

Bonjour

Citation:

---

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.

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.

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

Citation:

---

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é" .

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

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

:mrgreen:

Citation:

---

Envoyé par graphikris

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.

Y fallait le comprendre

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

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

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

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.

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

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:

---

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

---