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 : Sélectionner tout - Visualiser dans une fenêtre à part
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