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
Partager