Discussion :

[jacques13]

Bonjour,
Je souhaiterais savoir comment récupérer en VBA une image WEB afin de la sauvegarder comme un fichier jpg ou autre.

[SfJ5Rpw8]

ben si tu as l'adresse de l'image ... voir URlDownload...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
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 Sub Form_Load()
    URLDownloadToFile 0, "http://www.developpez.net/forums/image.php?u=54261&dateline=1166042577", "c:\monImage.gif" , 0, 0
End Sub

[jacques13]

Merci beaucoup, ça marche !!!

[jacques13]

Bonjour,
La fonction marche, pas de problème !
Maintenant, si je voulais afficher l'image dans un contrpole Image ?
Actuellement, ça marche mais comment faire pour ne pas sauvegarder l'image sur disque, simplement l'afficher dans le contrôle image ?

Voici mon code actuel (qui fonctionne)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 Option Explicit
Dim FLIP As Boolean
 
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 Sub CommandButton1_Click()
  If FLIP Then
    URLDownloadToFile 0, "http://data.moviecovers.com/DATA/zipcache/SOS TITANIC.jpg", "c:\monImage.jpg", 0, 0
    Image1.Picture = LoadPicture("c:\monImage.jpg")
  Else
    Image1.Picture = LoadPicture("")
  End If
  FLIP = Not FLIP
End Sub

' en cliquant une fois sur le bouton de commande
' l'image s'affiche, en cliquant une deuxième fois, elle disparaîr, etc...
' Je souhairerais ne pas être obligé de sauvegarder l'image

[SfJ5Rpw8]

pourquoi ne pas utiliser un contrôle webbrowser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub CommandButton1_Click()
WebBrowser1.Navigate "http://data.moviecovers.com/DATA/zipcache/SOS TITANIC.jpg"
End Sub

[jacques13]

Merci, j'ai essayé, ça marche, mais l'image est coupée, alors que dans un contrôle image, je peux choisit le mode d'affichage pour que l'image apparaissent en entier (propriété PictureSizeMode)