Envoi tableau par OutLook

Re : Envoi tableau par OutLook

Bonjour,
Ron l'explique beaucoup mieux que je ne pourrais le faire
Merci à lui
A+
kjin

Re : Envoi tableau par OutLook

Bonjour Ron et à tous
Ci-dessous une solution qui te permet de construire le corps du message
ici ton tableau est nommé dans la feuille sous le nom tableau
tu n'a plus qu'a envoyer la phrase dans le corps du message

Dim Msg As String
Dim URLto As String
largeurcolonne = 10
Set tableau = ThisWorkbook.Names("tableau").RefersToRange
For col = 1 To tableau.Rows.Count
For l = 1 To tableau.Columns.Count
phrase = phrase & tableau.Cells(col, l) & Space(largeurcolonne - Len(tableau.Cells(col, l)))
Next
phrase = phrase & Chr(10)
Next
MsgBox phrase

Re : Envoi tableau par OutLook

Merci,

Mais je n'arrive pas à adapter ton code à mon code initial pour afficher le tableau dans outlook
Voici ce que j'ai fait en bidouillant mais cela m'affiche sur une seul ligne les données dans outlook (cf fichier joint) :

Sub envoi_mail()
Dim Msg As String
Dim URLto As String
largeurcolonne = 10
Set tableau = ThisWorkbook.Names("tableau").RefersToRange
For col = 1 To tableau.Rows.Count
For l = 1 To tableau.Columns.Count
Phrase = Phrase & tableau.Cells(col, l) & Space(largeurcolonne - Len(tableau.Cells(col, l)))
Next
Phrase = Phrase & Chr(10)
Next
MsgBox Phrase
Msg = Phrase
URLto = "mailto:" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Re : Envoi tableau par OutLook

Voilà ta solution
remplacer lce chr(13) par "%0a"

bonne chance
Sub envoi_mail()
Dim Msg As String
Dim URLto As String
largeurcolonne = 10
Set tableau = ThisWorkbook.Names("tableau").RefersToRange
For col = 1 To tableau.Rows.Count
For l = 1 To tableau.Columns.Count
Phrase = Phrase & tableau.Cells(col, l) & Space(largeurcolonne - Len(tableau.Cells(col, l)))
Next
Phrase = Phrase & "%0a"
Next
MsgBox Phrase
Msg = Phrase

URLto = "mailto:" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Re : Envoi tableau par OutLook

Merci beaucoup