Réception d'un mail en VBA

Réception d'un mail en VBA - VB/VBA/VBS - Programmation

Marsh Posté le 16-12-2005 à 10:56:29    

Bonjour,
 
J'ai 2 questions et si quelqu'un pouvait m'aider, ce serait génial !
 
1/ Je voudrais que ma macro qui se trouve dans mon module "this workbook" s'éxécute à la réception du mail qui me dit que les fichiers sont bien arrivés. Je sais envoyer un mail en VBA, mais pas le réceptionner. Comment puis-je faire ?
 
2/ Actuellement, le soir j'ouvre mon classeur et j'ai programmé ma macro à 7h le lendemain matin.
Mais je voudrais que si je pars en vacances, elle s'éxécute tous les matins à 7h.
J'aurais alors juste besoin d'ouvrir le classeur le vendredi où je pars en vacances, et pendant toute la semaine, la macro s'écéuterait tous les matins à 7h.
Quel serait le code VBA qui me permettrait de faire ça ? (sachant que je ne paux pas utiliser les taches planifiées de windows, n'étant pas administrateur de mon poste)
 
merci d'avance de la réponse.

Reply

Marsh Posté le 16-12-2005 à 10:56:29   

Reply

Marsh Posté le 19-12-2005 à 20:24:20    

Salut,  
 
Pour répondre à ta 2ème question, ceci devrait faire l' affaire :  
 
Sub Test()
Application.OnTime TimeValue("15:18:30" ), "A" 'A représente le nom de la macro
End Sub
 
Ensuite, tu peut rajoute cet ligne de commande à la fin de ta macro (A, pour moi) :  
 
Application.run "Test", renvoie à la macro Test.  
 
Est -ce que ça marche pour toi ?

Reply

Marsh Posté le 20-12-2005 à 09:19:22    

Bonjour,
 
Merci pour cette réponse.
C'est en effet la commande que j'utilise, mais cela ne marche qu'une seule fois, c'est à dire que si je laisse ouvert mon classeur excel une semaine entière, cette ma cro ne s'éxécutera pas tous les jours.
Ou peut-être ai-je oublié une option.
 
merci.
bonne journée.

Reply

Marsh Posté le 23-12-2005 à 22:05:11    

Bonjour,  
 
je voudrais revenir sur la commande Application.run, en la relançant après chaque Application.Ontime, ne renverrait -elle pas au jour prochain, à la même heure ?
 

Reply

Marsh Posté le 24-12-2005 à 08:03:35    

Bonjour,
Concernant la 2ème quetion, on pourrait essayer cela :
 
Sub Auto_open()
Application.OnTime TimeValue("07:00:00" ), "MacroAuto"
end sub
 
sub MacroAuto()
dim Mytime
Mytime = Now + TimeValue("23:59:59" )
Application.OnTime Mytime, "MacroAuto"
end sub
 
Est-ce que cela fonctionne ?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed