Execution d'une macro toutes les heures

[chuinul]

Bonjour,

Je souhaiterai faire une macro qui s'exécute toutes les heures.

(on considère que le fichier est ouvert)

Comment je pourrais m'y prendre

Merci d'avance

 

[myDearFriend!]

Re : Execution d'une macro toutes les heures

Bonsoir chuinul,

En faisant une recherche, tu trouveras quantité de réponses à ce sujet...

Tu peux essayer comme ça par exemple :

[COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]

[COLOR=NAVY]Option Explicit
Dim[/COLOR] Tps [COLOR=NAVY]As Date[/COLOR]
 
[COLOR=NAVY]Sub[/COLOR] Tempo()
    [COLOR=GREEN]'Programmation de l'évènement toutes les heures[/COLOR]
    Tps = Now + TimeValue("01:00:00")
    Application.OnTime Tps, "Tempo"
    [COLOR=GREEN]'Traitement[/COLOR]
    [COLOR=GREEN]'Les instructions de TA MACRO ICI...[/COLOR]
    [COLOR=GREEN]'...[/COLOR]
    [COLOR=GREEN]'...[/COLOR]
[COLOR=NAVY]End Sub[/COLOR]
 
[COLOR=NAVY]Sub[/COLOR] StopTempo()
    [COLOR=NAVY]On Error Resume Next[/COLOR]
    [COLOR=GREEN]'Stopper la gestion de l'évènement OnTime en cours[/COLOR]
    Application.OnTime Tps, "Tempo", , [COLOR=NAVY]False
End Sub[/COLOR]

Et sans oublier, dans le module de code de l'objet ThisWorkbook :

[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE L'OBJET THISWORKBOOK[/I][/B][/COLOR]

[COLOR=NAVY]Option Explicit[/COLOR]
 
[COLOR=NAVY]Private Sub[/COLOR] Workbook_BeforeClose(Cancel [COLOR=NAVY]As Boolean[/COLOR])
    StopTempo
[COLOR=NAVY]End Sub[/COLOR]

Quelques explications supplémentaires sur le sujet : La méthode OnTime

Cordialement,