XL 2019 Transformer une URL en image dans une cellule excel

patricktoulon à dit:

Bonjour
une méthode vieille comme le monde
exemple
je met l'image du lien en B1 dans la feuil2

VB:

Sub test()
Dim img$
feuil6 c'est le sheets(pic)
img = fichierIMage(Feuil6.[b2].Value)


Sheets(2).Pictures.Insert (img)

Kill ThisWorkbook.Path & "\imagetemp.jpg"
End Sub
Function fichierIMage(url As String)
    Dim ReQ As Object, oStream As Object
      'On Error Resume Next    'On ne gère pas les erreurs
    Set ReQ = CreateObject("Microsoft.XMLHTTP")
    ReQ.Open "get", url, False
    ReQ.send
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write ReQ.responsebody
   oStream.SaveToFile ThisWorkbook.Path & "\imagetemp.jpg"
    oStream.Close
fichierIMage = ThisWorkbook.Path & "\imagetemp.jpg"
End Function

Cliquez pour agrandir...