Problème VBA EXCEL - WORD

Bonjour et bonne année,
Je veux créer sous VBA Excel un mail auto, mon programme marche bien à ceci prêt que je perd le format WORD, plus de gras, plus de texte de couleur etc. et pourtant si je fais CTL+V aprés exécution j'ai bien tout dans le presse papier.... merci d'avance à celui qui peut m'aider.

Quelqu'un peut il m'aider.:lol:
voilà mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub SendMail_Outlook()
    Dim esss As String
   Dim ol As New Outlook.Application
   Dim olmail As MailItem
   Dim CurrFile As String
   Set ol = New Outlook.Application
   Set olmail = ol.CreateItem(olMailItem)
Dim WordDoc As Word.Document
Dim WordApp As Word.Application
Dim Wb As Workbook
    Set WordApp = New Word.Application
    WordApp.Visible = False
    Set WordDoc = WordApp.Documents.Open("C:\x1.htm", ReadOnly:=True)
    With WordApp
        .Selection.WholeStory
        .Selection.Copy
    End With
With New DataObject
    .GetFromClipboard
    olmail.BodyFormat = olFormatHTML
    olmail.Body = .GetText(1)
End With
 
   With olmail
      .To = "xxxxxxxxxx"
      .Subject = "SSSSSSSS"
      .Display 
 
   End With
 
End Sub

Problème VBA EXCEL - WORD - presse papier