Redimensionner un tableau dans le corps d'un email
n
Bonjour,
Je copie un tableau de données d'excel vers outlook de la manière suivante (code simplifié) :
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim editor As Word.Document
Dim p As Word.Paragraph
Dim rg As Word.Range
Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
With oBjMail
.To = "ledestinataire@email.com"
.Subject = "Subject"
Body = Body & corps du texte"
.HTMLBody = Replace(.HTMLBody, "<BODY>", Body)
.Display
End With
Set editor = oBjMail.GetInspector.WordEditor
Set p = editor.Paragraphs1)
Set rg = editor.Range(p.Range.End - 1, p.Range.End - 1)
Application.ScreenUpdating = True
Range("tocopy").Copy
rg.PasteSpecial , , wdInLine, , WdPasteDataType.wdPasteHTMLtout se passe bien. cependant lorsque cette copie est faite je suis obligé de redimensionné le tableau manuellement car de base ce ne sont pas les bonnes dimensions (cf pj)
Une fois que j'ecarte un peu la largeur du tableau, je vois les données affichées comme je le veux.
Je ne sais pas comment ce redimensionnement.
Merci.
