Discussion :

[LANGAZOU]

Bonjour,

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

Merci de m'aider.

[Theze]

Bonjour,

Regarde avec la fonction "Time"

[LANGAZOU]

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.

[Theze]

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 :

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

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

[SfJ5Rpw8]

Bonjour,

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

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

[Theze]

Bonjour,

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

[Theze]

Donc, je rectifie mon erreur :

Code :

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

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

[LANGAZOU]

Bonjour,

Merci beaucoup pour votre intervention.

Bonne journée.