1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Private Sub CommandButton1_Click()
With Image1
CHEMIN = ThisWorkbook.Path & "\imagetemp.jpg"
.Picture = LoadPicture(Image_par_UrL("http://www.voirlemonde.com/img/paques.jpg"))
End With
Kill ThisWorkbook.Path & "\imagetemp.jpg"
End Sub
'
'
Function Image_par_UrL(url As String, CHEMIN) As String
Dim CHEMIN 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 CHEMIN: oStream.Close
Image_par_UrL = CHEMIN
Set oStream = Nothing: Set ReQ = Nothing
End Function |