envoyer tableau excel par Outlook ?

Bonjour, mon problème est le suivant :

J'aimerais envoyer par Outlook et ce automatiquement par VBA une plage, située dans une feuille d'un classeur xls.

Il s'agit du tableau situé entre les cellules F6 et J12 de la feuille "Sheet1" du fichier data.xls

j'ai déniché le code suivant mais ça bloque au niveau de .body

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Public Sub SendMail_Outlook() Dim ol As New Outlook.Application Dim olmail As MailItem Dim CurrFile As String   Set ol = New Outlook.Application Set olmail = ol.CreateItem(olMailItem) With olmail   .To = RANGE("B1").Value .Subject = RANGE("B2").Value .Body = sheets.("sheet1").RANGE("F6:J12").Value .Send End With End Sub

---

Rq1 : je peux aussi concaténer les données du tableau mais je perds la mise enforme du tableau dans ce cas

Rq2 : je peux aussi joindre tout le classeur : .Attachments.Add "C:\OUTLOOK\ExampleVBA.xls"
mais je veux envoyer uniquement le tableau voir la feuille ki le contient

Merci de vos éclaircissements

bonjour


Comment placer une plage de cellules dans le corps du message ?



La fonction suivante (de Random) permet la mise forme d'une plage de cellules dans la chaîne de caractères, pour ensuite l'insérer dans le corps du message:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Function corps(x As Range) As Variant Dim ligne As Integer Dim col As Integer Dim moncorps As Variant   ligne = x.Rows.Count col = x.Columns.Count   For ligne = 1 To x.Rows.Count For col = 1 To x.Columns.Count moncorps = moncorps & " " & x.Cells(ligne, col) Next col   moncorps = moncorps & Chr(10) Next ligne   corps = moncorps End Function

---

bonne journée
michel

Merci de ta réponse,

j'ai inséré la fonction "Random" dans une cellule xls que j'ai défini en .body

j'ai alors pu récupérer mon tableau en contenu du message Outlook mais malheureusement sans mise en forme. Cela ressemble plutôt à du concaténer.

J'aimerais cependant garder mon tableau en contenu du message avec sa mise en forme (tel qu'il figure sur la feuille xls)

J'éspère que mon souci est solvable et je compte sur vos réponses

Relit le premier lien fourni dans mon précédent message ...

bon week end
michel