Intégrer tableau dans mail VBA (Créé via un Template)

Bonjour à tous,

J'aimerais intégrer un tableau excel dans le corps d'un mail via VBA.

Mon problème est que le mail est créé via un template et seul des variables sont modifiées.

Le tableau n'a pas un nombre de ligne fixe.

J'ai essayé le code ci-dessous. Cependant je suis bloqué en voulant remplacer ma variable « tableau » part le tableau en question.

Sub Rel()

    Dim mail As Outlook.MailItem
    Dim Dest1 As String
    Dim Cc1 As String
    Dim tableau As Worksheet
    Dim NbLigne As Integer

        Set mail = Outlook.Application.CreateItemFromTemplate("D:\mailtemplate.msg")
        Set tableau = ThisWorkbook.Sheets("Sheet1")

    NbLigne = tableau.Range("H" & Application.Rows.Count).End(xlUp).Row
    tableau.Range("H2:O" & NbLigne).Select
    'Selection = tableau

    ' ****Variables

    Ent = Range("Ent").Value
    Rel = Range("Rel").Value

    '***** Modif mail
    mail.To = Dest1
    mail.CC = Cc1
    mail.Subject = Replace(mail.Subject, "[rel]", Rel)
    mail.Subject = Replace(mail.Subject, "[ent]", Ent)
    mail.HTMLBody = Replace(mail.HTMLBody, "[tableau]", tableau)

    mail.Display
    Set mail = Nothing
End Sub

Auriez-vous des idées pour me débloquer s'il vous plaît ?

Merci d'avoir pris le temps de me lire et bonne soirée à tous !

Hugo

Bonjour Hugovitela et

Une petite présentation ICI serait la bienvenue

Une plage ne peut pas être intégrée de la sorte dans un mail ce serait trop simple

Il faut utiliser une procédure RangeToHTML créée à l'origine par Ron de Bruin
https://www.rondebruin.nl/win/s1/outlook/bmail2.htm

@+