Envoyer un mail contenant un tableau depuis Excel

Bonjour,

je suis entrain de préparer un fichier avec un bouton qui va me permettre d'envoyer un mail une plage sur le même fichier.

j'ai reussi à mettre les adresses mails, l'objet du mail et le début du mail,

mais mon probleme c'est que je n'arrive pas à mettre dans le corps du mail plusieurs cellules ainsi qu'un tableau !!!

le code VBa que j'ai utilisé est le suivant:

Sub EnvoiMail_Outlook()
'Creation de l'objet e-mail
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olmailItem)
'Caractéristiques de l'e-mail
With olmail
.To = Range("Saisie!G2").Value & ";" & Range("Saisie!G3").Value
.CC = Range("Saisie!G4").Value & ";" & Range("Saisie!G5").Value & ";" & Range("Saisie!G6").Value
'Affiche le nom comme objet du message
.Subject = Range("Saisie!I2").Value & " " & Range("Saisie!I3").Value
.Body = Range("Saisie!B2")

'Pièces jointes si il y a lieu
'attention le chemin est à changer pour ton besoin
    '.Attachments.Add "C:\PGI\Résultats.xls"

'Remplacez .Display par .send pour envoyer directement l'e-mail sans l'afficher dans Outlook
.Display

End With
End Sub

je suis mnt bloqué au niveau de ".Body" car je n'arrive à mettre dans le corps du mail que le contenu d'un seule cellule alors que moi je veux mettre tout un tableau !

Merci d'avance pour votre aide

Bonsoir,

Supposons que la plage est B2:C10, essaye comme suivant :

.Body = Range("Saisie!B2:C10")

dis-nous si cela marche.

Bonsoir Raja,

Merci ta proposition mais j'ai deja essayé et ça ne marche pas

c résolu , j'ai trouvé ce code sur le site de Microsoft:

Sub Send_Range()

   ' Select the range of cells on the active worksheet.
   ActiveSheet.Range("B2:D18").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
      .Item.To = Range("G2") & ";" & Range("G3")
      .Item.CC = Range("G4") & ";" & Range("G5") & ";" & Range("G6")
      .Item.Subject = Range("I2") & " " & Range("I3")
      .Item.Send
   End With
End Sub

Bonjour violinmen,

Dans votre code je ne comprends pas où se trouve le corps du mail et le tableau que vous collez... A quoi correspond Item.Subject.? A l'objet du mail?

Merci.