Envoi Email avec Objet et Corps faisant référence à une cellule

Bonjour, étant novice dans le VBA.

J'ai réussis à créer un code me permettant d'envoyer un email avec en pièce jointe l'onglet désiré, mais j'aimerais dans l'objet ainsi que dans le corps du message, il y ai la référence à une cellule E3 (date "dddd-mmm-aaaa") et là je n'y arrive pas

Sub envoiVHDIMANCHE()
ActiveSheet.Range("A1:M81").Select ' la plage de cellules a envoyer
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
    .Introduction = "Bonjour, veuillez trouver ci-joint la liste du "  'j'aimerais avec la date de la cellule E3 après le du
    .Item.To = "xxxxxx@yyyyyyyy.org"
    .Item.Subject = "Liste du "  'j'aimerais avec la date de la cellule E3 après le du
    .Item.Send
End With
End Sub

Pour info, la Cellule E3 s'incrément uniquement lorsque l'on met une date (de 01 à 31) en renommant l'onglet

Merci pour votre aide

Bonjour,

Si j'ai bien compris ...

Un essai ...

Sub envoiVHDIMANCHE()
ActiveSheet.Range("A1:M81").Select ' la plage de cellules a envoyer
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
    .Introduction = "Bonjour, veuillez trouver ci-joint la liste du " & Range("E3").Value
    .Item.To = "xxxxxx@yyyyyyyy.org"
    .Item.Subject = "Liste du " & Range("E3").Value
    .Item.display
    .Item.Send
End With
End Sub

ric

Bonjour,

essaie avec :

dt = ActiveSheet.Cells(5, 3).Value
.Item.Subject = "Liste du " & FormatDateTime(dt, vbLongDate)

ric a écrit :

Bonjour,

Si j'ai bien compris ...

Un essai ...

Sub envoiVHDIMANCHE()
ActiveSheet.Range("A1:M81").Select ' la plage de cellules a envoyer
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
    .Introduction = "Bonjour, veuillez trouver ci-joint la liste du " & Range("E3").Value
    .Item.To = "xxxxxx@yyyyyyyy.org"
    .Item.Subject = "Liste du " & Range("E3").Value
    .Item.display
    .Item.Send
End With
End Sub

ric

le fait de rajouter & Range("E3").Value ne change rien, j'ai bien comme sujet "Liste du" mais le jour indiqué dans la cellule E3 n'apparait pas à la suite du sujet

Jean-Eric a écrit :

Bonjour,

essaie avec :

dt = ActiveSheet.Cells(5, 3).Value
.Item.Subject = "Liste du " & FormatDateTime(dt, vbLongDate)

Bonjour Jean-Eric, j'ai intégré ton code

Sub envoiVHDIMANCHE()
ActiveSheet.Range("A1:M81").Select ' la plage de cellules a envoyer
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
    dt = ActiveSheet.Cells(5, 3).Value
    .Introduction = "Bonjour, veuillez trouver ci-joint la liste du " & FormatDateTime(dt, vbLongDate)
    .Item.To = "xxxxxx@yyyyyyyy.org"
    .Item.Subject = "Liste du " & FormatDateTime(dt, vbLongDate)
    .Item.Send
End With
End Sub

Mais quand par exemple je renomme l'onglet Model en 04, en cellule E3 j'ai samedi 04 janvier 2020 et dans l'envoi je me retrouve avec samedi 30 décembre 1899.

En utilisant dt = ActiveSheet.Cells(3, 5).Value cela fonctionne à merveille

Encore merci de votre implication et réactivité