[VBA] Comment récupérer une image WEB

jacques13 · 16/12/2006, 03h05

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

bbil · 16/12/2006, 15h02

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 · 16/12/2006, 21h49

Merci beaucoup, ça marche !!!

jacques13 · 16/12/2006, 22h18

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

bbil · 16/12/2006, 23h26

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 · 17/12/2006, 00h43

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)

jacques13 · 18/12/2006, 00h42

Bonjour, je ne comprends pas la réponse !!!

SilkyRoad · 18/12/2006, 16h28

bonjour

il est aussi possible d'adapter l'image à la taille du WebBrowser.
Par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
    Dim S As String
    Dim Hauteur As Long, Largeur As Long
 
    Largeur = WebBrowser1.Width * 96 / 72
    Hauteur = WebBrowser1.Height * 96 / 72
    S = "http://www.developpez.net/forums/images/logo16.gif"
 
    WebBrowser1.Navigate _
    "ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
    Largeur & " HEIGHT=" & Hauteur & _
    " SRC='" & S & "'</IMG></BODY></CENTER></HTML>"
End Sub

michel

jacques13 · 19/12/2006, 01h18

Bonjour,
merci beaucoup, c'est OK !
Une autre question, peut-on aussi ajuster le contenu pour une URL ?
Par exemple pour celle-ci :

http://www.mappy.fr/

et que tout le contenu tienne dans un webbrowser ayant des dimensions prédéfinis ? En fait on verrait tout, mais en plus petit !

Jacques

16/12/2006, 03h05	#1
jacques13 Invité de passage Inscription : décembre 2006 Messages : 25 Détails du profil Informations forums : Inscription : décembre 2006 Messages : 25 Points : 3 Points : 3	[VBA] Comment récupérer une image WEB Bonjour, Je souhaiterais savoir comment récupérer en VBA une image WEB afin de la sauvegarder comme un fichier jpg ou autre.
	00

17/12/2006, 00h43	#6
jacques13 Invité de passage Inscription : décembre 2006 Messages : 25 Détails du profil Informations forums : Inscription : décembre 2006 Messages : 25 Points : 3 Points : 3	[VBA WEB] Afficher l'image d'une URL dans un contrôle Image d'un document WORD 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)
	00

16/12/2006, 21h49	#3
jacques13 Invité de passage Inscription : décembre 2006 Messages : 25 Détails du profil Informations forums : Inscription : décembre 2006 Messages : 25 Points : 3 Points : 3	Merci beaucoup, ça marche !!!
	00

18/12/2006, 00h42	#7
jacques13 Invité de passage Inscription : décembre 2006 Messages : 25 Détails du profil Informations forums : Inscription : décembre 2006 Messages : 25 Points : 3 Points : 3	Bonjour, je ne comprends pas la réponse !!!
	00

19/12/2006, 01h18	#9
jacques13 Invité de passage Inscription : décembre 2006 Messages : 25 Détails du profil Informations forums : Inscription : décembre 2006 Messages : 25 Points : 3 Points : 3	Bonjour, merci beaucoup, c'est OK ! Une autre question, peut-on aussi ajuster le contenu pour une URL ? Par exemple pour celle-ci : http://www.mappy.fr/ et que tout le contenu tienne dans un webbrowser ayant des dimensions prédéfinis ? En fait on verrait tout, mais en plus petit ! Jacques
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email