Par inet :
Avec url.Text=Le Chemin de l'Image
et filename le chemin de sauvegarde
On Error Resume Next
Dim b() As Byte
If Trim$(url) <> "" And Trim$(filename) <> "" Then
Err.Number = 0
b() = Inet.OpenURL(url.Text, icByteArray)
If Err.Number <> 0 Then
MsgBox "Erreur internet : " & Err.Description, vbCritical, "ERREUR"
Exit Sub
End If
Err.Number = 0
Open IIf(Right$(App.Path, 1) = "\", App.Path, App.Path & "\") & _
filename.Text For Binary As #1
If Err.Number <> 0 Then
MsgBox "Erreur de fichier : " & Err.Description, vbCritical, "ERREUR"
Exit Sub
End If
Put #1, , b()
Close #1
End If
It@li@
|