Code pour exécuter un maco à une date et heure voulue

[ascal44]

Bonjour à tous ,
je recherche un code VBA pour exécuter une macro3() une seule fois lorsque la date et l'heure (du 11/05/2011 15H30 par exemple) est dépassée.

Merci pour votre aide

 

[tototiti2008]

Re : Code pour exécuter un maco à une date et heure voulue

Bonjour ascal44,


Pour exécuter une macro, le classeur doit être ouvert
C'est lors de l'ouverture du classeur que la macro doit s'exécuter ou doit-il tester si on a dépassé la date et l'heure régulièrement ?

 

[Pierrot93]

Re : Code pour exécuter un maco à une date et heure voulue

Bonjour Ascal, Toto

regarde ceci, date et heure à adapter :

If Now > "19/04/2011 11:30:00" Then macro3

bonne journée
@+

 

[ascal44]

Re : Code pour exécuter un maco à une date et heure voulue

La macro devrait s'exécuter si la date et l'heure est dépassée et non pas à l'ouverture du classeur

 

[tototiti2008]

Re : Code pour exécuter un maco à une date et heure voulue

Bonjour Pierrot 🙂
Re,

Et ce même si on agit pas sur le classeur ?
Ce classeur est-il ouvert tous les jours ?
Se peut-il qu'il soit fermé avant l'heure fatidique ?

Il va nous falloir quelques détails sur l'utilisation du classeur, je crois

 

[ascal44]

Re : Code pour exécuter un maco à une date et heure voulue

Ce classeur est ouvert tous les jours , et ne sera pas fermé à l'heure de déclanchement de la macro.

Je n'ai pas eu le temps de tester le code de Pierrot93 , mais je pense qu'il manque quelque chose : la macro3() doit s'exécuter une seule fois après l'horaire choisie.

 

[ascal44]

Re : Code pour exécuter un maco à une date et heure voulue

Bonsoir , j'ai testé le code de Pierrot93.

C'est presque cela , mais il faudrait que si le classeur a été ouvert avant l'heure de déclanchement , que la macro s'exécute l'heure atteinte: Il faudrait controler en permanence l'heure actuelle pour déclancher à l'instant T.

J'espère ne pas être trop confu

 

[Pierrot93]

Re : Code pour exécuter un maco à une date et heure voulue

Bonjour,

regarde ceci, dans un module standard :

Option Explicit
Public madate As Date
Sub test()
madate = #4/23/2011 9:42:00 AM#
If Now > madate Then
    macro3
Else
    Application.OnTime madate, "macro3"
End If
End Sub
Sub macro3()
MsgBox "ok"
End Sub

dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime madate, "macro3", Schedule:=False
End Sub

bonne journée
@+

 

[ascal44]

Re : Code pour exécuter un maco à une date et heure voulue

Bonjour Pierrot ,
j'ai testé mais j'ai l'erreur exéction '1004' La Méthode 'On Time' de l'objet'_Application' a échoué

Serait il possible de surveiller en permanence l'heure afin de lancer la macro ? Pas seulement avant la fermeture du classeur ?

 

[Pierrot93]

Re : Code pour exécuter un maco à une date et heure voulue

Re,

pas de problème chez moi avec la totalité dece code.... et placé où je l'ai précisé...

Serait il possible de surveiller en permanence l'heure afin de lancer la macro ?

c'est ce que fait la méthode "ontime"...

 

[ascal44]

Re : Code pour exécuter un maco à une date et heure voulue

Fautil activer quelque part La Méthode 'On Time' ? Quel pourrait être la raison de cet échec ?

 

[Compte Supprimé 979]

Re : Code pour exécuter un maco à une date et heure voulue

Salut Ascal44,

Dans ton OnTime, "macro3" doit être le nom de ta procédure, sinon il faut le changer

La meilleure solution serait de nous mettre ton fichier, pour voir ce que tu as fait !?

A+

 

[ascal44]

Re : Code pour exécuter un maco à une date et heure voulue

Je joint le classeur

 

[Compte Supprimé 979]

Re : Code pour exécuter un maco à une date et heure voulue

Re,

Pas de problème particulier chez moi avec ton fichier 🙄
Néanmoins, je l'ai modifié pour qu'à l'ouverture le timer se lance

Les paramètres doivent être rentrés dans Feuil1 dans les cellules en jaune

A+

 

[ascal44]

Re : Code pour exécuter un maco à une date et heure voulue

Merci Bruno c'est ce que je voulais