[VBA-E]Envoi de mail journalier

:? Bonjour,

j'ai cette procédure avec moi :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

Sub START2() Dim fLag, newHour, newMinute, newSecond, waitTime newHour = Hour(Now()) newMinute = Minute(Now()) newSecond = Second(Now()) + 1 waitTime = TimeSerial(newHour, newMinute, newSecond) deb1: If Time <= "09:30:00" Then GoTo mail1 ElseIf Time <= "14:30:00" Then GoTo mail2 ElseIf Time <= "18:30:00" Then GoTo mail3 Else GoTo nolaunch End If   mail1: While Time < "09:30:00" DoEvents Wend 'Application.Wait "09:30:01" Call SendMeEmail mail2: While Time < "14:30:00" DoEvents Wend 'Application.Wait "14:30:01" Call SendMeEmail mail3: While Time < "18:30:00" DoEvents Wend 'Application.Wait "18:30:01" Call SendMeEmail nolaunch: While Time > "18:30:00" DoEvents Wend GoTo deb1 End Sub

---

qui me permet d'envoyer un mail 3 fois par jour :) cette procédure marche très bien hein :) le seul problème est que cette procédure bouffe tout le process :? et que donc quand je la lance dans les processus ça prend énormément de place :? et vu que je travaille sur d'autres fichiers Excel ben ça devient plus long du coup...Comme vous le voyez j'ai essayé de mettre un Wait mais le problème du Wait c'est qu'il arrete carrément tous les process Excel, donc si je suis en train de travailler sous Excel, bah ya tout qui se coupe pendant l'envoi du mail
Alors ma question c'est est-ce qu'il existe un moyen de façon à ce que cette macro fonctionne qu'à l'heure indiquée ? et non qu'elle tourne tout le temps jusqu'a à l'heure de l'envoi ? :?

Pour information j'ai essayé ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub START2() deb1: If Time < "09:30:00" Or Time > "18:30:00" Then Application.OnTime TimeValue("09:30:00"), "SendMeEmail" End If If Time > "09:30:00" And Time < "14:30:00" Then Application.OnTime TimeValue("14:30:00"), "SendMeEmail" End If If Time > "14:30:00" And Time < "18:30:00" Then Application.OnTime TimeValue("18:30:00"), "SendMeEmail" End If GoTo deb1 End Sub

---

Mais à priori ya un bin's à cette procédure et ça marche pas tout le temps :? sachant qu'il faut que le mail soit donc envoyé 3 fois par jour aux heures indiquées, et tous les jours du lundi au vendredi :)

Vala merci beaucoup pour votre aide si quelqu'un a une solution :oops: :)

Personne n'a de solution adapté à mon soucis ? :oops:

1. Qu'est-ce qu'il ne marche pas dans ta 2° méthode..? tu as bien rajouter un appel à Start2 à la fin de ta procédure SendMeMail..
2. Que fait la procédure SendMeMail.. d'ou prends t'elle les données à envoyer..? est tu obligé de la laisser sous Excel..? tu pourrai peu-être utiliser les tâches planifiés de Windows pour lancer un ta macro..?

1) le problème de la deuxième procédure est qu'elle ne tourne qu'une fois : une fois qu'on la lance elle ne boucle pas :? du coup ça envoie un fichier et après vala c'est fini donc il faut la relancer...
2) Bah la procédure SendMeMail envoie un mail :mrgreen: avec un objet, à plusieurs destinataires avec un fichier Excel attaché :)

EDIT : pour répobdre à ta question oui je suis obligé de la laisser sous Excel, car de une elle es utilisé grâce à un bouton dans une feuille Excel :) et de 2 en fait sur cette feuille il y a plusieurs bouton, un qui lance donc cette macro au dessus, un qui arrete la macro, et une autre qui envoie le mail dès que l'on clique sur le bouton :)
J'espère m'etre fait comprendre :oops:

Citation:

---

Envoyé par bbil

tu as bien rajouter un appel à Start2 à la fin de ta procédure SendMeMail.

---

ou si tu ve pas toucher à ta procédure SendMeMail .. tu crée une nouvelle procédure

Code:

---

1 2 3 4 5

sub SenMeMailBoucle SendMeMAil Start2 end sub

---

et tu modifie Start2 pour qu'il fasse appell à cette procédure..

Arf pardon j'avais pas vu cet élément de réponse :mrgreen:
Mais je te confirme que oui à la finde la procédure SendMeMail il y a un Call Start2 :)

:mouarf1: j'avais pas vu le goto dans ton start2 (le 2°) .., enléve le ! et remplace par exemple tes > par des >= ... pour éviter... le cas ou tu tombe à la seconde "00.."

Bah nan :koi: si j'enlève le supérieur et que je met des >= ou =< ça sera dans 2 intervalles en meme temps :koi: alors que la ça l'envoie à 00 justement :koi:
Par contre c'est vrai que le Goto sert à rien puisqu'il est dans la procédure SendMeMail :koi:

Merci beaucoup :)

Citation:

---

Envoyé par illight

Bah nan :koi: si j'enlève le supérieur et que je met des >= ou =< ça sera dans 2 intervalles en meme temps :koi: alors que la ça l'envoie à 00 justement :koi:

---

non tu ne t'est pas gratté assez la tête ..? que se passe-t'il par exemple si tu lance Start2 à
09:30:00 ou 14:30:00 ou 18:30:00
ce qui peu arriver (mais je te l'accorde est peu probable) si la procédure
SendMeMAil dure moins d'1s...

Bah normalement je l'envoie pas à cette heure ci, elle est lancée directement et le pc est toujours allumé :mrgreen: du coup la macro tourne tout le temps :mrgreen:
genre on l'envoie a 7h et après on s'occupe plus de ça :)

Pour ce que ut me dis après, justement à 9h30:00 il éxécute la macro SendMeMail peu importe combien de temps elle dure non ?
C'est à cette heure précise qu'il envoie le mail dans la macro, le temps d'éxécution de celle ci on s'en fout un peu :-o

Citation:

---

Envoyé par illight

Bah normalement je l'envoie pas à cette heure ci, elle est lancée directement et le pc est toujours allumé :mrgreen: du coup la macro tourne tout le temps :mrgreen:

---

Pas la macro Start2 la 2° macro Start2, sans le goto.. !!

elle est aussi exécuter aprés le SendMAil... , (le Call Start2 que tu as rajouté..) donc si SendMaiL... dure moins d'1s .....

oui celle la :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub START2() If Time < "09:30:00" Or Time > "18:30:00" Then Application.OnTime TimeValue("09:30:00"), "SendMeEmail" End If If Time > "09:30:00" And Time < "14:30:00" Then Application.OnTime TimeValue("14:30:00"), "SendMeEmail" End If If Time > "14:30:00" And Time < "18:30:00" Then Application.OnTime TimeValue("18:30:00"), "SendMeEmail" End If End Sub

---

C'est ce que je dis, ça lance la macro à 09:30:00 donc à pile donc je vois pas pourquoi changer les > par des >= :koi:

Citation:

---

Envoyé par illight

C'est ce que je dis, ça lance la macro à 09:30:00 donc à pile donc je vois pas pourquoi changer les > par des >= :koi:

---

non ...a 09:30:00 aucune de lignes ....OnTime ... ne sera exécuté...!

Je suis désolé mais je comprend pas pourquoi :oops:

Si on est avant 09h30:00 il lancera alors la macro sendmemail à 9h30:00 D'accord ?
DOnc il lance la macro, et à la fin de SendMeMail il relance la macro START2 donc après 09h30:00 soit dans le deuxième intervalle de temps de ma procédure :? donc il lancera le Ontime a 14h30:00, etc...
Nan ?

Ou c'est moi qui comprend pas ? :oops:

Citation:

---

Envoyé par illight

Je suis désolé mais je comprend pas pourquoi :oops:

Si on est avant 09h30:00 il lancera alors la macro sendmemail à 9h30:00 D'accord ?
DOnc il lance la macro, et à la fin de SendMeMail il relance la macro START2 donc après 09h30:00 soit dans le deuxième intervalle de temps de ma procédure :? donc il lancera le Ontime a 14h30:00, etc...
Nan ?

Ou c'est moi qui comprend pas ? :oops:

---

donc après 09h30:00 , => ds Oui à 09h30:00 + Durée d'exécution de SendMeMail et si SendMeMail dure 0,2 sec... cela donne à 09h30:00 !:lol:

PS : mais bon on va arrêter la pas la peine de remplir ce post pour une histoire de > ou >=

ah ouaisssssssssssssss :mrgreen: enfin tu chipote :mrgreen: mais bon je veux bien prendre en considération ton doute :mrgreen:


Merci beaucoup pour ton aide :)