Impossible de fermer le fichier xlsm

[mrjenkins]

Salut tout le monde,

Alors j'ai un léger souci avec un de mes classeurs. En fait j'ai une case dans laquelle j'ai "=Now()".
Pour permettre à cette case de se rafraichir j'ai récupéré cette macro sur le net :

Sub UpDateClock()
'   *** Change Sheet name and Range reference to suit ***
    Workbooks("FOR-1452 TestCase 01 - Configuration & Subscription.xlsm").Worksheets("Subscription 1").Range("E36").Calculate
    Workbooks("FOR-1452 TestCase 01 - Configuration & Subscription.xlsm").Worksheets("Subscription 2").Range("E36").Calculate
    Application.OnTime Now + TimeValue("00:00:01"), "UpdateClock"
End Sub

Le souci, c'est que dès que je ferme le fichier, celui-ci se réouvre directement... Vous auriez une idée pour permettre d'arrêter la macro à la fermeture du fichier et de la lancer à l'ouverture ?

Merci beaucoup !

 

[Dranreb]

Re : Impossible de fermer le fichier xlsm

Bonjour
Appelez OnTime avec paramètre Schedule à false dans une WorkBook_BeforeClose de ThisWorkbook.
Bon week-end.

 

[MJ13]

Re : Impossible de fermer le fichier xlsm

Bonjour Mrjenkins, Dranreb

Regarde cette discussion:

https://www.excel-downloads.com/threads/timer-pour-fermeture-du-fichier.155438/