Discussion :

[eric8787]

Bonjour,

je viens de tester le code de cette discussion, il fonctionne très bien sauf que, même le classeur fermé, il veut enregistrer quand même si excel est ouvert.

Ma question donc, comment arreter ontime à la fermeture du classeur ?

voici mon code :

dans le workbook :

Code :

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

1
2
3
Private Sub Workbook_Open()
sauveauto
end sub

dans un module nommé " Sauvegarde10"

Code :

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

1
2
3
4
Sub sauveauto()
  ThisWorkbook.Save
  Application.OnTime Now + TimeSerial(0, 10, 0), "Sauveauto"
End Sub

merci de votre aide

eric

[Le Pierre]

bonjour

j'ai eu le même problème récemment que j'ai résolu ainsi

procédure appelante :

Code :

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

Application.OnTime Now + TimeSerial(0, 0, Interval), "Timer1_Timer"

procédure du timer :

Code :

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

1
2
3
4
5
6
7
Private Sub Timer1_Timer()
    'procédure à temporiser
    '...
 
    Lheure = Now + TimeSerial(0, 0, Interval)
    Application.OnTime Lheure, "Timer1_Timer"
End Sub

fin du OnTime :

Code :

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

1
2
3
4
5
6
 
Public Lheure As Double
Sub ArretTimer()
    On Error Resume Next
    Application.OnTime Lheure, "Timer1_Timer", , False
End Sub

à plus

[eric8787]

Bonjour Le Pierre,

ça marche impeccable !

merci beaucoup

eric