Vba Excel: envoyer un mail à une heure prédefinie

Bonjour,

Je voudrais ajouter à ma macro l'heure d'envoi de mon mail.

Merci de m'aider.

Bonjour,

Regarde avec la fonction "Time"

Bonjour,

Merci beaucoup "Theze".
Mon problème concerne le (DeferredDeliveryTime). La date ainsi que l’heure d'envoie est une variable insérée dans une cellule . Alors comment Récupérer cette variable ( date et heure) et la synchroniser avec le DeferredDeliveryTime avant l'envoi de mon mail ?

Merci d'avance.

Bonjour,

Je ne sais pas ce que tu veux dire par "synchroniser" mais voilà une façon de récupérer le jour et l'heure dans une cellule contenant une valeur Double (avec décimale, c'est la partie décimale qui représente l'heure, la partie entière représentant le jour) au format date et heure. Par exemple, pour la valeur 42282,7101851852, 42282 représente le jour, c'est à dire aujourd'hui et 0,7101851852 représente l'heure c'est à dire 17:02:40 :

Code:

---

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

Sub Test()   Dim Jour As Long Dim Heure As Double   Jour = Split(CDbl(Range("A1").Value), Format(0, "."))(0) Heure = "0" & Format(0, ".") & Split(CDbl(Range("A1").Value), Format(0, "."))(1)   MsgBox Format(Jour, "dd/mm/yyyy") & vbCrLf & Format(Heure, "hh:mm:ss")   End Sub

---

Bonjour,

These ... je crois que tu devrais lire ou relire :

http://silkyroad.developpez.com/excel/dateheure/#LIV-I

Bonjour,

bbil, exact, c'est dingue, ça ne m'est même pas venu à l'esprit :-((
Pourquoi faire simple quand on peut tout compliquer ;-)

Donc, je rectifie mon erreur :

Code:

---

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

Sub Test()   Dim Jour As Date Dim Heure As Date   Jour = Format(Range("A1").Value, "dd/mm/yyyy") Heure = TimeSerial(Hour(Range("A1").Value), Minute(Range("A1").Value), Second(Range("A1").Value))   MsgBox Jour & vbCrLf & Heure   End Sub

---

Bonjour,

Merci beaucoup pour votre intervention.

Bonne journée.