Envoyer un tableau par mail avec une macro

[Luicoaat]

Bonsoir,

J'ai cherché sur le forum les nombreux sujets qui traitent de ce problème mais rien ne correspond à ce que je veux.
En fait, jai un petit tableau (2 lignes, 2 colonnes) que je remplie tous les matins et que j'envoie par mail, toujours aux mêmes personnes.
Je souhaiterai créer une macro qui envoie le tableau mais dans le corps de texte, pas en pièce jointe.
De plus, serait-il possible de mettre comme sujet du mail : "Tableau du "date d'aujourd'hui"" sachant donc que la date changera tous les jours.

Merci

 

[Staple1600]

Re : Envoyer un tableau par mail avec une macro

Bonsoir


Essaie d'adapter ce code de Microsoft

Sub Send_Range()
   
   ' Select the range of cells on the active worksheet.
   ActiveSheet.Range("A1:B5").Select
   
   ' Show the envelope on the ActiveWorkbook.
   ActiveWorkbook.EnvelopeVisible = True
   
   ' Set the optional introduction field thats adds
   ' some header text to the email body. It also sets
   ' the To and Subject lines. Finally the message
   ' is sent.
   With ActiveSheet.MailEnvelope
      .Introduction = "This is a sample worksheet."
      .Item.To = "E-Mail_Address_Here"
      .Item.Subject = "My subject"
      .Item.Send
   End With
End Sub

 

[Luicoaat]

Re : Envoyer un tableau par mail avec une macro

Ok je vais essayer et je pourrais mettre en place un inputbox qui demanderait le texte à inscrire dans le sujet du message??

 

[ledzepfred]

Re : Envoyer un tableau par mail avec une macro

bonsoir luicoaat, staple🙂

mieux que l'inputbox : dans le code de l'excellent Staple

.Item.Subject = "Tableau du " & format(Date,"dd/mm/yyyy")

ou un autre format que tu peux récupérer en utlisant l'enregistreur de macros.

A+