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]

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

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

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