Discussion :

[jarault]

Bonjour,

J'ai le code suivant dans un classeur excel:

Code :

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

1
2
3
Private Sub Workbook_Open()
If Application.UserName = "Jarault" Then Application.OnTime Now + TimeValue("01:00:00"), "sauvegarde_horaire"
End Sub

et :

Code :

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

1
2
3
4
Sub sauvegarde_horaire()
Kill "K:\Stock.xls"
ActiveWorkbook.SaveCopyAs Filename:="K:\Stock.xls"
End Sub

Lors que j'ouvre le fichier, au bout d'une heure la première sauvegarde s'effectue correctement mais après plus rien.
Sauriez-vous pourquoi la sauvegarde ne s'éffectue qu'une seule fois ?
J'utilise beaucoup de code, existe-t-il du code qui pourrait par exemple perturber cette macro (par exemple enableevents...)

Jarault

[Le Pierre]

bonjour

ajoute ton code :

Code :

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

 "Application.OnTime Now + TimeValue("01:00:00"), "sauvegarde_horaire"

à la fin de ta procédure "sauvegarde_horaire" et ça devrait fonctionner
Pour vérifier règle toi sur une minute.

à plus

[jarault]

J'essaye dès demain matin, je n'y avais même pas pensé tellement c'était simple, merci Le Pierre, toujours aussi efficace.
Super, çà marche impeccable, merci pour tout

Jarault