Discussion :

[gilou41]

Bonjour à tous
je n'arrive pas à faire fonctionner la macro suivante:

Code :

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

1
2
3
Sub Lancer_Heure()
Application.OnTime TimeValue("18:00:00"), "test30"
End Sub

il y a quelque chose que je n'ai pas du comprendre. Qu'est-ce qui "cloche"?

Nota: mon fichier excel reste ouvert en permanence et je veux lancer la macro "test30" tous les jour à heure fixe

Merci d'avance pour le coup de main

[BlueMonkey]

Bonsoir,

Si le but est de lancer une macro à heure fixe, autant enregistrer le lancement de la macro à l'ouverture du fichier.

Pour cela ajoute le code suivant dans la partie Workbook.

Code :

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

1
2
3
Private Sub Workbook_Open()
    Application.OnTime TimeValue("18:00:00"), "test30"
End Sub

Ensuite insert un nouveau module.

Dans ce module ajoute le code de la routine publique à appeler. Exemple :

Code :

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

1
2
3
Public Sub test30()
    MsgBox ("Coucou")
End Sub

Bien entendu, il faut que les macros soient activées dans ce classeur. (voir les options de sécurité pour le lancement des macros).

[fring]

Si le but est de lancer une macro à heure fixe, autant enregistrer le lancement de la macro à l'ouverture du fichier.

Pour cela ajoute le code suivant dans la partie Workbook.

Bonjour,
Le petit problème est que la procédure s'exécutera une fois et une seule fois, il faut également penser à la relancer

Code à placer dans le module de l'objet ThisWorkbook :

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

1
2
3
Private Sub Workbook_Open()
    Lancer_Heure
End Sub

Code à placer dans un module standard :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Lancer_Heure()
    Application.OnTime TimeValue("18:00:00"), "test30"
End Sub
 
Sub test30()
    MsgBox "il est l'heure !"
    'ta procédure qui doit s'exécuter à 18h
    '...
    '...
    '...
    Lancer_Heure
End Sub

[gilou41]

Merci à tous les 2.