barry white
XLDnaute Occasionnel
Bonjour à tous
Petit pb avec ma macro, j en suis sure que c'est un truc tout simple.
J'ai ecris une macro qui permet de faire un mail personalisé. Donc j'utilise un modele de mail outlook de type OFT. Dans ce mail, je dois mentioner des dates. ces dates sont reprise dans plusieurs cellules d'un classeur excel.
Les dates sont du type ex : 5 Juin 2009 dans mon model de mail apres passage de ma macro, la date apparait en 05/06/2009.
Donc ma question est, comment je fais pour que dans mon mail il apparait bien le 5 juin 2009, malgré le bon format dans ma cellule.
Voici le code :
Merci pour vos aides! 😀 😉 🙂
Petit pb avec ma macro, j en suis sure que c'est un truc tout simple.
J'ai ecris une macro qui permet de faire un mail personalisé. Donc j'utilise un modele de mail outlook de type OFT. Dans ce mail, je dois mentioner des dates. ces dates sont reprise dans plusieurs cellules d'un classeur excel.
Les dates sont du type ex : 5 Juin 2009 dans mon model de mail apres passage de ma macro, la date apparait en 05/06/2009.
Donc ma question est, comment je fais pour que dans mon mail il apparait bien le 5 juin 2009, malgré le bon format dans ma cellule.
Voici le code :
Code:
Sub COMM_AGENCE()
Dim nomDEC, nomodeoUT, dateDem, DateVCTSam, DateVctLun, DateMarHHO, nomcf, dtearpdEM, Num_ligne, comJ1, jourDEM, jourDEM1 As String
Dim ti, mail, n As Variant
Dim I, nbf As Integer
Dim Ol As New Outlook.Application
Dim olmail As MailItem
Num_ligne = InputBox("numéro de ligne")
nomDEC = Range("R" & Num_ligne)
nomDEC = Range("S" & Num_ligne)
dateDem = Range("T" & Num_ligne)
DateVCTSam = Range("U" & Num_ligne)
DateVctLun = Range("V" & Num_ligne)
DateMarHHO = Range("W" & Num_ligne)
dtearpdEM = Range("X" & Num_ligne)
comJ1 = Range("Y" & Num_ligne)
jourDEM = Range("Z" & Num_ligne)
jourDEM1 = Range("AA" & Num_ligne)
nomodeoUT = "c:\model.oft"
'Creation de l'objet e-mail
Set AppOut = CreateObject("Outlook.Application")
Set omailitem = CreateItemFromTemplate(nomodeoUT)
'Caractéristiques de l'e-mail
With omailitem
.To = (mail)
.Subject = "MISTRAL - Actions à réaliser en agence - " & nomDEC & " - Centre fort " & nomcf
.BodyFormat = olFormatHTML
.HTMLBody = Replace(omailitem.HTMLBody, "DTEDEM", dateDem)
.HTMLBody = Replace(omailitem.HTMLBody, "DTEVCTSAM", DateVCTSam)
.HTMLBody = Replace(omailitem.HTMLBody, "DTEVCTLUN", DateVctLun)
.HTMLBody = Replace(omailitem.HTMLBody, "HHOMAR", DateMarHHO)
.HTMLBody = Replace(omailitem.HTMLBody, "COMJ1", comJ1)
.HTMLBody = Replace(omailitem.HTMLBody, "JOURDEM", jourDEM)
.HTMLBody = Replace(omailitem.HTMLBody, "JOURDEM1", jourDEM1)
.HTMLBody = Replace(omailitem.HTMLBody, "ARPDEM ", dtearpdEM)
.Display
End With
End SubMerci pour vos aides! 😀 😉 🙂