Discussion :

[phil69400]

Bonjour,

Attention, je débute ☺

J'ai besoin pour ma boite, d’effacer régulière le contenue d'une cellule (pour limiter les erreurs de la prod.)

Sur une feuille du classeur Excel, depuis le scan d'un code barre, je souhaite générer un lien qui ouvrira les bons documents de production (ça c'est ok).
Avec la macro plus bas, si un autre fichier Excel est toujours ouvert, même si le fichier qui a exécuté la macro est fermée, il est à nouveau ouvert.

J'ai aussi une première macro qui exécute, dès l'ouverture la macro ci-dessous (ça aussi c'est ok ☺).

Ce que je voudrais, c'est qu'un fois ce classeur fermé, la macro soit stoppée...
Par avance merci

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub Macro1()
 
    Windows("Doc_prod.xlsm").Activate
    Worksheets("Code barre").Activate
    Sheets("Code barre").Select
    Range("C3").Select
    Selection.ClearContents
    Application.OnTime Now + TimeValue("00:00:10"), "Macro1"
End Sub

[patricktoulon]

bonjour

tu devrais taper la touche f1 qunad tu es dans l'editeur de code (VBE)

et dans le moteur de recherche tu tape "ontime"
miracle on te donne la solution
pour le moment que tu demande c'est a metre dans le beforeclose du thisworkbook

[phil69400]

Merci Patrick pour ta réponse, mais... (c'est sûrement de mon côté que cela cloche)

Plus bas, tu trouveras ce que je pense avoir compris & écris :
les lignes sous "Private Sub Workbook_Close()"n'ont pas stoppées la macro"Feuil1.Macro1", si j'ai un autre fichier Excel ouvert, ce qui sera toujours le cas, le fichier est ouvert à nouveau automatiquement !

Bon WE

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Workbook_Open()
 
   Application.OnTime Now + TimeValue("00:00:10"), "Feuil1.Macro1"
 
End Sub
 
Private Sub Workbook_Close()
 
    Application.OnTime EarliestTimes:=TimeValue("00:00:10"), _
    Procedure:="Feuil1.Macro1", Shedule:=False
 
End Sub

[patricktoulon]

re
on ne peut pas appeler une macro qui est dans un module feuille avec ontime tout simplement il faut que la macro soit dans un module standard
a maconnaissance tout du moins

[phil69400]

Même résultat avec ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_Open()
 
   Application.OnTime Now + TimeValue("00:00:10"), "Macro1"
 
End Sub
 
Private Sub Workbook_Close()
 
    Application.OnTime EarliestTimes:=TimeValue("00:00:10"), _
    Procedure:="Macro1", Shedule:=False
 
End Sub

[patricktoulon]

re
autant pour moi j'ai testé on peu bien l'appeller quand la macro est dans une feuille (j'aurais appris quelque chose aujourd'hui)

et ce n'est pas Shedule mais Schedule
dans le thisworkbook

Code :

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

1
2
3
4
5
6
Private Sub Workbook_Close()
    Application.OnTime now, "Feuil1.Macro1", Schedule:=False
End Sub
Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:05"), "Feuil1.Macro1"
End Sub

dans la feuille

Code :

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

1
2
3
4
5
Sub macro1()
 MsgBox "toto"
 'pour la reprogramer
 Application.OnTime Now + TimeValue("00:00:05"), "Feuil1.Macro1"
 End Sub

tu aura un coucou de toto toute les 5 secondes

si tu veux pas qu'elle se repete tu enleve la ligne dans la macro1 pour repeter

[phil69400]

Rien à faire, même ainsi ► copie des lignes que tu m'as proposés, mais sans la faute , ré-ouverture sans fin du fichier...

Je te joins le fichier si tu as un instant.
J'aime bien le toto en bonus

Bon WE

[patricktoulon]

ben c'est normal tu n'a pas bloqué la ligne du repeat comme je te l'ai indiqué
apres sincerement ca sert a quoi tonon time clear ta c3 a l'open tout simplement puisque tu veux le faire qu'une fois
je pige pas du tout la!! l'utilisté du ontime

[eriiic]

Bonjour,
Now() change tout le temps...
Tu dois calculer le temps d'activation dans une variable, et utiliser cette variable pour l'activation ET l'annulation.
Sinon tu cherches à annuler un truc qui n'a pas été programmé et celui programmé reste.
eric

[patricktoulon]

bonjour eriic
a quoi pourrais bien servir de figer le point de depart
comme le l'ai dis il a q'ua supprimer la ligne de relance dans macro1 c'est tout (testé)

[eriiic]

Qui te parle de figer ?
Si tu fais un OnTime pour le temps t1, seul un onTime Schedule:=False au avec le même instant t1 en paramètre peut l'annuler.
eric

[patricktoulon]

je suis pas sur eric je vais faire des recherches sur ce point
MAIS!!
si je raisonne logiquement sachant que ontime programme une tache (si on peut l'appeler ainsi) unique et non repetitive puisqu'il faut la relancer pour la repetion
dis moi un peu sachant cela pourquoi faudrait-il effacer cette "tache" programmée a un certain momment avec le meme temps ?????
sinon il y aurait un argument repeat parametrable dans la fonction on time c'est pas le cas

pour prouver cela
voila un petit test
on voit bien que si on relance pas la boucle s'arrete

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim x, y
Sub lance()
x = 0
Application.OnTime (Now + TimeValue("00:00:01")), "macro"
End Sub
Sub macro()
 If x <= 10 Then
Cells(1, 1) = x
Application.OnTime (Now + TimeValue("00:00:01")), "macro"
End If
x = x + 1
End Sub

a mon avis schedule est juste pour liberer la memoire OU!! pour la stopper avant qu'elle n'est une lieu
Application.OnTime Now ,"macro",schedule=false

je vais verifier mais je suis quasiment sur de moi

d'autant plus que si on programme une tache avec le result du now figer dans une variable
dis moi un peu ce que donnerait alors

Code :

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

Application.OnTime (AncienNow + TimeValue("00:00:01")), "macro",schedule:=false

t'a pas l'impression quelle ratterait le coche

je sais pas j'essaie de raisonner logiquement

d'ailleur tiens en meme temps que je reponds j'ai testé

j'ai essayé d'arrétter la macro programée avant quelle ai été effectuée ben walouhh

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub macro()
MsgBox "toto"
End Sub
Sub test()
maintenant = Now + TimeValue("00:00:05")
Application.OnTime (maintenant), "macro"'on la programe
Application.OnTime (maintenant ), "macro", schedule = False' ne l'arrete pas elle va bien s'effectuer dans 5 secondes donc ta théorie walouhh
Application.OnTime (maintenant + TimeValue("00:00:06")), "macro", schedule = False' ne l'empeche pas de s'effectuer 
'au mieux je pense que  la memoire est vidée 1 seconde apres que la tache se soit  executée et que l'on peut pas la vider avant!!! ce petit test nous le prouve 
End Sub

voila donc ta théorie sur le time dans une variable nest pas bonne

[eriiic]

dis moi un peu sachant cela pourquoi faudrait-il effacer cette "tache" programmée a un certain moment avec le meme temps ?????

Imagine que tu lances plusieurs différées de la même macro en parallèle, il faudra bien pouvoir spécifier laquelle tu veux annuler.

Et si tu en as une seule en route, que tu fermes ton fichier, il se rouvrira pour l'exécuter à l'heure dite (problème du demandeur). Il faut la supprimer, toujours en indiquant son heure d'exécution programmée. C'est celle-là et pas une autre que tu veux (et peux) annuler.
Il faut aussi gérer l'erreur potentielle à la suppression qu'elle ait déjà été exécutée et pas encore recrée, qu'elle n'existe plus. Avec un On Error Resume Next
Si tu fournis une heure qui ne correspond à rien comme now()+xxxx cette tâche n'existe pas et tu n'annules rien.

Tu peux faire le test en programmant une et en fermant ton fichier. Tu le verras se rouvrir à l'heure dite.
Teste ensuite en la supprimant au Close, tu verras bien dans quel cas ça fonctionne. Tu constateras qu'il veut l'heure exacte programmée.

Autre test simple :

Code :

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

1
2
3
4
5
6
7
Sub test2()
Application.OnTime EarliestTime:=TimeValue("17:00:00"), Procedure:="test"
Application.OnTime EarliestTime:=TimeValue("17:01:00"), Procedure:="test", Schedule:=False
End Sub
Sub test()
' rien
End Sub

Erreur sur l'annulation car la tâche à 17:01 n'existe pas.
Corrige et met 17:00. Plus d'erreur, il a pu l'annuler car elle existe bien.

En résumé pour le demandeur :
Création :
Public t2 As Date

Code :

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

1
2
t2 = Now + TimeValue("00:00:10")
Application.OnTime t2, "Macro1"

Annulation à la fermeture :

Code :

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

1
2
3
On Error Resume Next
Application.OnTime EarliestTime:=t2, Procedure:="Macro1", Schedule:=False
On Error GoTo 0

eric.

Edit : exemple aide OnTime :
Cet exemple montre comment exécuter my_Procedure à 17 heures.
Visual Basic pour Applications
Application.OnTime TimeValue("17:00:00"), "my_Procedure"
Cet exemple montre comment annuler le paramétrage de OnTime de l'exemple précédent.
Visual Basic pour Applications
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:=False