Discussion :

[Efpoint]

Bonjour,

J'ai un programme en VBA-Excel qui scrute une base de données toutes les 5 minutes.

L'appel de la routine qui scrute la BdD se fait grâce à un code du genre :

Code :

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

1
2
3
4
5
Public TimeScan As Variant
...
TimeScan = Now + TimeValue(strTempsScan)
Application.OnTime TimeScan, "ModuleGeneral.VerifMAJ"
...

Mon problème, c'est que si je ferme mon classeur avec la macro, sans fermer Excel, Excel réouvre le classeur au bout de quelques minutes pour aller éxécuter ce VerifMAJ

J'ai essayer de supprimer l'appel à la fermeture du classeur, en suivant l'exemple donné par l'aide en ligne :

Code :

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

1
2
3
4
5
6
7
 Private Sub Workbook_BeforeClose(Cancel As Boolean)
 ...
If ModuleGeneral.FlagScanAuto = True Then
    Application.OnTime ModuleGeneral.TimeScan, "ModuleGeneral.VerifMAJ", , False
    End If
...    
End Sub

Mais ça ne marche pas !

Quelqu'un sait-il comment je dois m'y prendre ?

[ouskel'n'or]

Comme je ne connaissais pas FlagScanAuto , j'ai toujours fait ça avec un boolean déclaré en public qui conditionne Application.OnTime, ainsi je peux le passer à false là où j'en ai besoin

Juste une idée, je file voir ce que j'ai à FlagScanAuto

A+

Edit
J'ai pas (vba97)

[Efpoint]

En fait, je fais comme toi, FlagAutoScan est un boolean que j'ai déclaré moi-même et qui me sert à savoir si la scrutation automatique toutes les 5 minutes est activée.