Sub Envois_Tableau()
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim strHTML As String
Dim myAttachments
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(olMailItem)
Windows("Classeur1.xls").Activate
Sheets("Feuil1").Activate
strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "Bonjour , <BR>vous trouverez ci joint le tableau demandé<BR><BR>"
strHTML = strHTML & "<TABLE BORDER>"
myAttachments = ("C:\Users\KELLY\Desktop\Listes des dossiers.xlsm")
For i = 1 To 32 'nombre de lignes (exemple plage A1:B5)
strHTML = strHTML & "<TR halign='middle'nowrap>"
For j = 1 To 9 'nombre de colonnes 'taille du texte
strHTML = strHTML & "<TD bgcolor='white'align='center'><FONT COLOR='black'SIZE=4>" _
& Cells(i, j) & "</FONT></TD>"
Next j
strHTML = strHTML & "</TR>"
Next i
strHTML = strHTML & "</TABLE>"
strHTML = strHTML & "<BR><BR>Cordialement<BR>" & Application.UserName
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""
With olMail
.To = ""
.CC = ""
.Subject = "Votre Tableau"
.HTMLBody = strHTML
.Attachments.Add myAttachments
.Display
End With
Set olMail = Nothing
Set olApp = Nothing
End Sub
