gestion en fonction du temps

[Casse tete]

Salut a tous,
j'aimerai pouvoir gerer mon classeur de la fonction suivante:
Toutes les demi heures copier automatiquement la feuille 1 sur la feuille2 puis tjr automatiquement imprimer la feuille 2.
Merci a tous ceux qui pourront m'aider.
@ +

 

[SparKouS]

Bonjour,

Voici ce que tu peux faire :

1 bouton pour Demarrer le timer ( qui boucle )
1 bouton pour le stop

le timer se définit dans un module ( Insertion / module )

voici le code :

----------------------------------------
- Pour le module
-------------------

Dim Lheure As Double
Dim Interval As Integer

Sub LancerTimer(NbM As Integer)
'L'application ExecutionTimer se lancera toutes les 0 heure, 0 minute et Interval seconde
Interval = NbM
Application.OnTime Now + TimeSerial(0, Interval, 0), "ExecutionTimer"
End Sub

Sub ArretTimer()
On Error Resume Next
Application.OnTime Lheure, "ExecutionTimer", , False
End Sub

Sub ExecutionTimer()
'code à exécuter à la fin de chaque Interval

Worksheets(1).PrintOut
Worksheets("Feuil1").Copy after:=Worksheets("Feuil1")

'code obligatoire
Lheure = Now + TimeSerial(0, Interval, 0)
Application.OnTime Lheure, "ExecutionTimer"
End Sub

- Pour la définition des clicks
-----------------------------------


Private Sub CommandButton1_Click()
' Ici on définit un interval de 30 minutes
LancerTimer (30)
End Sub

Private Sub CommandButton2_Click()
ArretTimer
End Sub

---------------------------------------------

Ca devrait t'aider ...

A+