Bonjour à tous,

Je dispose d'une plage de données sur une feuille excel, j'aimerais pouvoir la copier et la coller dans un corps de mail en format bitmap uniquement.

J'ai déjà codé la Sub qui le fait, cependant elle le fait en mode Word, ce qui altère l'aspect d'origine de la plage de données (bordures grasses notamment).

Je pense qu'il faut certainement changer la ligne de code relative au Pasting (collage) pour lui donner en paramètre le mode bitmap, mais je n'ai pas trouvé comment le faire sur le net.

Si quelqu'un dispose de la solution il est le bienvenu!


Voici le code en question:

Sub MailSetup()
Set myApp = CreateObject("Outlook.Application")
Set myitem = myApp.CreateItem(olMailItem)
myitem.Subject = ThisWorkbook.Sheets("SQL").Range("StrategyName").Text & ": performance on " & ThisWorkbook.Sheets("SQL").Range("ToDay").Text & ""


Range("PerfReportForMail").Select
Selection.Copy



Set outlookwordeditor = myitem.GetInspector.WordEditor
outlookwordeditor.Range.PasteAndFormat wdFormatOriginalFormatting







With myitem
.SentOnBehalfOfName = "PARIS_BNF"
End With

myitem.Attachments.Add "Z:\Appli\Gts\Prod\GTS_ALPHALIB\Excel\Performance Report\" & Format(Sheets("SQL").Range("B21").Value, "yyyymmdd") & "_GTSAlphaLib_PhiDatae_Strategies_Performance_BXL_For" & Sheets("SQL").Range("B2").Text & ".xlsx"





myitem.To = ThisWorkbook.Sheets("SQL").Range("MailingList")
myitem.Display


End Sub