lancer une macro toutes les heures

[ngexcel]

j'ouvre excel clic droit sur feuille1 puis visualiser code
ensuite je colle le programme que je trouve sur votre site

dans ThisWorkbook

Private Sub Workbook_Open()
lancesauvegarde
End Sub
puis dans un module

Dim Temps As Variant
Sub LanceSauvegarde()
Temps = Now + TimeValue("00:01:00")
Application.OnTime Temps, "LanceSauvegarde"
Sauvegarde 'nom de la macro à lancer
End Sub

Sub Sauvegarde()
Range("A1:A10").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Range("A1").Select
End Sub

Sub StopSauvegarde() 'à associer pour stopper la relance de la procédure
On Error Resume Next
Application.OnTime Temps, "LanceSauvegarde", , False
End Sub


pouvez vous me dire comment faire pour que je puisse lancer ma macro chaque heure encore merci

 

[youky(BJ)]

Re : lancer une macro toutes les heures

Bonjour ngexcel,
Cette macro doit fonctionner
par contre si tu veux Enregistrer c'est...
ActiveWorkbook.Save

remplace TimeValue("00:01:00")
par TimeValue("01:00:00")
1 heure au lieu 1 minute
Voila
A+