envoi feuille en tant que corp de message

[tomtom59450]

Bonsoir ,

je galère depuis un petit moment sur ce pb

comment peut on faire pour envoyer 2 feuilles en tant que corp de message dans deux feuilles différentes ?

J' ai trouvé un code sur le net mais une fois la feuille convertit et mis dans le corps du message les images ont disparu et il ya plin de caractères à la place de certaines lettres

Comment résoudre ce pb ?

je vous met le code trouver sur le net

Sub Mail_ActiveSheet_Body()
c = Workbooks("Classeur2.xls").Worksheets("Feuil1").Range("b1")



d = Workbooks("Classeur1.xls").Worksheets("feuil1").Range("A116")

e = Application.VLookup(c, d, 3, 0)




Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = e
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.HTMLBody = SheetToHTML(ActiveSheet)
.Send 'or use .Display
End With
Application.ScreenUpdating = True
Set OutMail = Nothing
Set OutApp = Nothing
End Sub




Public Function SheetToHTML(sh As Worksheet)
'Function from Dick Kusleika his site
'http://www.dicks-clicks.com/excel/sheettohtml.htm
'Changed by Ron de Bruin 19-Aug-2006
Dim TempFile As String
Dim Nwb As Workbook
Dim fso As Object
Dim ts As Object

sh.Copy
Set Nwb = ActiveWorkbook

With Nwb.Sheets(1)
On Error Resume Next
.DrawingObjects.Visible = True
.DrawingObjects.Delete
On Error GoTo 0
End With

TempFile = Environ$("temp") & "/" & _
Format(Now, "dd-mm-yy h-mm-ss") & ".htm"

Nwb.SaveAs TempFile, xlHtml
Nwb.Close False

Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
SheetToHTML = ts.ReadAll
ts.Close

On Error Resume Next
Kill TempFile
fso.deletefolder Left(TempFile, Len(TempFile) - 4) & "*", True
On Error GoTo 0

Set ts = Nothing
Set fso = Nothing
Set Nwb = Nothing
End Function