Bonjour à tous

Je viens vers vous car j’ai un petit soucis de mis en page de mes données quand je lance une macro sous Word pour "générer un mail".

Voila, j’ai un fichier Word dans lequel j’intègre dans des tableaux, grâce à une macro en VBA, des données issue dans un fichier Excel.

Je complète encore mon fichier Word par d’autres saisies. Une fois que tout est correct, je souhaiterais envoyé un mail donc le corps est constitué de mon fichier Word (je ne veux pas que mon fichier Word soit une pièce jointe)

Or quand je lance le code suivant, le mail généré n’a pas gardé la mise en page de mes données.
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
16
17
18
19
20
21
22
Sub EnvoiMail()
'envois le document en mail
 
 
AdressesTo = "Adresses de mes destinataires"
'AdressesCC = ""
 Ebody = ActiveDocument.Range
 
Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
 
With Itm
    .Subject = "Ce matin Test"
    .To = AdressesTo
    '.CC = AdressesCC
    .Body = Ebody
    .Send
End With
 
Set App = Nothing
Set Itm = Nothing
End Sub
Est-il possible de garder la mise en page et les tableaux ?

Sinon, si je pars un modèle de mail sous Outlook, est ce qu’il possible de créer une macro en VBA qui complète mes tableaux ? Si oui, connaissez vous le code pour attendre les tableaux
ex en VBA sous Word pour accéder à un tableau j’utilise
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveDocument.Tables(1).Cell(Indice, 1).Range.Text
N’hésitez pas à me dire si je ne suis pas clair. Merci pour les réponses par avance.