Téléchargement images

[Snake]

Bonjour à tous,

Je cherche à faire une macro qui télécharge des images d'internet vers un dossier de mon disque dur afin de les réutiliser apres.

Quelles fonctions dois-je utiliser?

Merci d'avance pour votre aide. 🙂

 

[MichelXld]

bonjour Snake

ci joint 2 exemples

Sub recupererImageWeb_WinHttp()
'source :
'http://www.allhtml.com/forum/index.php?t=l&f=4&i=312103
'
'necessite d'activer la reference Microsoft WinHttp Services ,version 5.1
'
Dim b() As Byte
Dim h As Long
Dim oWinHttp1 As WinHttp.WinHttpRequest

h = FreeFile
Open 'C:\\monImage1.gif' For Binary As #h

Set oWinHttp1 = New WinHttp.WinHttpRequest
oWinHttp1.Open 'GET', _
'[B]Lien supprimé[/B], False

oWinHttp1.Send
oWinHttp1.WaitForResponse (30)
b() = oWinHttp1.ResponseBody

Set oWinHttp1 = Nothing
Put #h, 1, b()
Close #h
End Sub

Private Declare Function URLDownloadToFile Lib 'urlmon' _
   Alias 'URLDownloadToFileA' (ByVal pCaller As Long, ByVal szURL As String, _
   ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
   
Private Const ERROR_SUCCESS As Long = 0
   
Sub LancementProcedure()
DownloadFile '[B]Lien supprimé[/B], 'C:\\monImage2.gif'
End Sub

Public Function DownloadFile(ByVal sURL As String, ByVal sLocalFile As String) As Boolean
Dim lngRetVal As Long
DownloadFile = URLDownloadToFile(0&, sURL, sLocalFile, 0&, 0&) = ERROR_SUCCESS
End Function

bon apres midi
MichelXld

 

[Sanake]

Merci beaucoup

🙂