Abilys38 a écrit :
Quand tu dis mettre le lien dans le texte, tu parles du texte que j'ai sur ma cellule excel, ou le texte dans le code VBA?
J'ai essayé de mettre le lien que tu m'as donné, mais ça me met mon code en rouge.
Dans la cellule, mais tu peux le mettre dans le texte en faisant attention aux guillemets dans ce cas !
Essaie ceci ...
J'ai remplacé les Chr(10) par <br> et mis entre guillemets le lien vers image (en doublant les guillemets existantes)
Option Explicit
Sub envoi()
Dim messagerie As Object
Dim email As Object
Dim cel As Range
Set messagerie = CreateObject("Outlook.Application")
For Each cel In Range("A2:A" & Range("A1").End(xlDown).Row)
Set email = messagerie.CreateItem(0)
With email
.To = cel
.Subject = Cells(4, 6)
.htmlbody = "Bonjour " & cel.Offset(, 3) & " " & cel.Offset(, 2) & " " & _
cel.Offset(, 1) & ", " & "<br/><br/>" & _
Cells(7, 5) & "<br/><br/>" & Cells(28, 5) & _
"<img scr=""http://www.ouest-france.fr/sites/all/themes/front/images/logos/logo-of-274x120.png"">"
.ReadReceiptRequested = False
.send
End With
Set email = Nothing
Next cel
Set messagerie = Nothing
End Sub