Envoyer TCD par email

Bonjour au forum,

Je souhaiterais pouvoir envoyer un TCD par email, mais aucun de mes tests ne sont concluant...

Je pars de cette base :

Option Explicit

Private Sub email()

Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem

Set olApp = CreateObject("outlook.application")
Set olMail = olApp.CreateItem(olMailItem)
    With olMail
        .Subject = "Suivi de Stock CTS"
        .To = "blabla@bla.com"
        '.CC = Range("L" & Ligne) 'ou .BCC pour Cci
        .Body = "Bonjour," & vbCrLf & vbCrLf & "Veuillez trouver ci-joint l'état du stock au " & Now & vbCrLf & vbCrLf & "Bonne fin de journée !"
        .Send '.Display
    End With
Set olApp = Nothing
Set olMail = Nothing

End Sub

L'idéal serait de pouvoir mettre en forme de manière esthétique le TCD dans l'email, sous forme de tableau ou, solution qui me plairait moins, d'image.

NB : dans le fichier joint, la base de données "BD_Jour" est actualisée tous les jours, le filtre "Code produit" devra rester toujours le même, mais j'aimerais pouvoir sélectionner, en modifier le code, les étiquettes de colonnes à décocher (j'aurai besoin de toutes les garder sauf "POUBEL", "LCPOUB" et "DISPNT", en sachant que dans l'exemple ci-joint, tous les éléments ne sont pas présents)

Merci infiniment d'avance pour votre aide

Bonjour Nrev74,

Ce petit fichier de BrunoM45 pourra sûrement t'aider

Bonne journée,

Baboutz

Bonjour Baboutz,

Merci pour ta réponse, je vais y jeter un œil !

Bonne journée à toi