bonjour Olivier , Chris et Jeannot
l'exemple ci-dessous permet d'inserer un tableau ( plage A1:B5 ) de la feuille active , dans le corps du message d'un mail Outlook
Sub PlageDeCellulesDansCorpsDuMessage()
testé avec XP
Send using the Pickup directory on the IIS server.
adapté de : http://support.microsoft.com/default.aspx?kbid=286430
Dim iMsg As Object, iConf As Object
Dim strHTML As String
Dim i As Byte, j As Byte
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "Bonjour , <BR>vous trouverez ci joint le tableau demandé<BR><BR>"
strHTML = strHTML & "<B><SPAN STYLE='background-color:green;font-size:6mm'>Résultats : </SPAN></B><BR><BR>"
strHTML = strHTML & "<TABLE BORDER>"
For i = 1 To 5 'nombre de lignes (exemple plage A1:B5)
strHTML = strHTML & "<TR halign='middle'nowrap>"
For j = 1 To 2 'nombre de colonnes
strHTML = strHTML & "<TD bgcolor='yellow'align='center'><FONT COLOR='blue'SIZE=3>" _
& 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 iMsg
Set .Configuration = iConf
.To = "bugbunny@club-internet.fr" 'renvoie une erreursi l'adresse est non valide
.From = "youralias@yourdomain.com"
.Subject = "Test Envoi Tableau par mail"
.HTMLBody = strHTML
.Send
End With
End Sub
Sinon en suivant le lien ci dessous tu trouveras quelques exemples pour transferer des tableaux Excel vers Word et les redimensionner , ainsi qu'un chapiter sur le pilotage d'Outlook , pour envoyer les fichiers par mail .
https://www.excel-downloads.com/thr...oter-dautres-applications-depuis-excel.92359/
Remarque
Il faut cliquer une deuxieme fois sur le lien , si un mesage d'erreur s'affiche
Bonne soiree
MichelXld