Bonjour,
Dans ma recherche de solutions, je suis tombé sur ce code mais j'ai des erreurs de syntaxe sur les lignes en gras apparemment.
Quelqu'un aurait une idée SVP ?
merci
Sub fichierIMage(url As String, ctrl As Object)
Dim ReQ As Object, oStream As Object
On Error Resume Next 'On ne gère pas les erreurs
Set ReQ = CreateObject("Microsoft.XMLHTTP"<img src="images/smilies/icon_wink.gif" border="0" alt="" title=";)" class="inlineimg" />
ReQ.Open "get", url, False
ReQ.send
Set oStream = CreateObject("ADODB.Stream"<img src="images/smilies/icon_wink.gif" border="0" alt="" title=";)" class="inlineimg" />
oStream.Open
oStream.Type = 1
oStream.Write ReQ.responsebody
oStream.SaveToFile ThisWorkbook.Path & "\imagetemp.jpg"
oStream.Close
ctrl.Picture = LoadPicture(ThisWorkbook.Path & "\imagetemp.jpg"<img src="images/smilies/icon_wink.gif" border="0" alt="" title=";)" class="inlineimg" />
End Sub