Macro exécutable selon date et heure

[Hulk]

Hello,

Comme le titre l'indique, je souhaite que la macro se déclenche qu'à partir d'une date et heure voulue.

J'ai fouillé un peu mais pas trouvé avec date et heure.

Je joins un petit fichier et vous remercie par avance de votre aide.

Cdt, Hulk.

 

[Catrice]

Re : Macro exécutable selon date et heure

Bonjour,

Avec :
Sub Test
Application.OnTime DateSerial(2009, 4, 1) + TimeSerial(12, 0, 0), "MaProcedure"
End Sub

Sub MaProcedure()
Msgbox "Poisson d'avril !"
End Sub

Regarde OnTime dans l'aide et/ou sur le Forum

 

[kjin]

Re : Macro exécutable selon date et heure

Bonjour le géant vert,
Comme tu sais, cela suppose que ton fichier est ouvert et macros activées, sinon tu pourrais utiliser le gestionnaire de tâches planifiées de Windows, à condition que le niveau sécu des macros soit réglé sur bas, ce qui n'est pas très prudent.
Dans le module ThisWorkBook

Private Sub Workbook_Open()
If Date = Sheets(1).Range("A1") Then
    Temps = Sheets(1).Range("A2")
    Application.OnTime Temps, "Coucou"
End If
End Sub

Dans un module standard

Public Temps As Variant
Sub coucou()
MsgBox "Coucou !"
End Sub

A+
kjin

 

[job75]

Re : Macro exécutable selon date et heure

Bonjour Hulk, salut Catrice, kjin

Je n'ai sans doute pas compris la question, mais au vu de la macro qui se trouve dans le fichier, j'aurais écrit simplement :

If Date >= [A1] And Time > [A2] Then

A+

 

[job75]

Re : Macro exécutable selon date et heure

Re,

Ou alors Hulk, tu veux dire :

If Now > [A1] + [A2] Then ??

A+

 

[Hulk]

Re : Macro exécutable selon date et heure

Hello les amis,

Ok merci pour vos réponses, je vais voir ce qui est le mieux. et vous tiens au courant ce soir.

Job, ce que je souhaite c'est que le CommandButton fonctionne qu'à partir de demain 10h00 😀

Merci à vous tous

A suivre.

Cdt, Hulk.

 

[kjin]

Re : Macro exécutable selon date et heure

Re, bonjour Catrice, job, 🙂
Tu auras compris qu'avec la version de Catrice et la mienne, ton bouton et le code associé ne servent plus à rien
A+
kjin

 

[job75]

Re : Macro exécutable selon date et heure

Re,

ce que je souhaite c'est que le CommandButton fonctionne qu'à partir de demain 10h00 😀

C'est donc bien If Now > [A1] + [A2] Then qu'il faut écrire.

A+

 

[Hulk]

Re : Macro exécutable selon date et heure

Hello tout le monde,

Bon alors j'ai testé vos différentes propositions, et je me demande pourquoi je ne peux pas appliquer la macro à Catrice au bouton ?
Effectivement Kjin, elle ne joue pas.

La tienne je comprends à peu près pourquoi, mais pas celle de Catrice ??

Bref cela dit, la version à Job me parle plus et fonctionne impec, de plus j'ai besoin de l'affecter à un bouton, m'en veuillez pas.. 🙄

Dans tous les cas, merci à vous tous.

Cdt, Hulk.

 

[kjin]

Re : Macro exécutable selon date et heure

Bonsoir,

Effectivement Kjin, elle ne joue pas.
La tienne je comprends à peu près pourquoi, mais pas celle de Catrice ??

Mon décodeur me dit que ça m'est sans doute adressé, mais il ne me dit pas pourquoi ça ne fonctionne pas chez toi et que chez moi c'est le contraire, et surtout il ne me dit pas ce que Hulk sait à propos du pourquoi ça ne fonctionne pas chez lui !😱
A+
kjin

 

[Catrice]

Re : Macro exécutable selon date et heure

Bonsoir,

Ma macro execute MaProcedure à une date et heure choisies.
Si tu l'associes à ton bouton, le bouton va lancer le compte à rebours.

Toi ce que tu veux c'est que le bouton soit opérationnel si on a dépassé une certaine heure => la solution de Job75 est OK.

 

[kjin]

Re : Macro exécutable selon date et heure

Re,
Bin kjin ne sait pas lire; il a relue la question et il a compris que c'est Job qui a tout bon
Et merci à Catrice, parce que sans lui, il n'aurait sans doute pas relue
A+
kjin

 

[Hulk]

Re : Macro exécutable selon date et heure

Re,

Kjin moi je te décode pas là, euh je sais pas pourquoi il joue pas 😱 😀

Bref la soluce à Job est ok.

Clos.

Merci à vous tous les pros 😀

Cordialement, Hulk.

 

[kjin]

Re : Macro exécutable selon date et heure

Re,
A la relecture de ta question initiale que je me suis rendu compte que ça ne collait pas avec ta demande, je n'avais pas bien lu 🙄
voilà tout
A+
kjin

 

[Hulk]

Re : Macro exécutable selon date et heure

--------------------- 😀