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

Version imprimable

16/12/2006, 03h05
jacques13

[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.

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

Code:

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

16/12/2006, 21h49
jacques13

Merci beaucoup, ça marche !!!

:lol: :lol: :lol:

[VBA WEB] Afficher l'image d'une URL dans un contrôle Image d'un document WORD

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:

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

pourquoi ne pas utiliser un contrôle webbrowser :

Code:

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

17/12/2006, 00h43
jacques13

[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)
18/12/2006, 00h42
jacques13

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

bonjour

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

Code:

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

19/12/2006, 01h18
jacques13

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
06/02/2014, 15h58
source87

Bonjour,

J'arrive à faire fonctionner la fonction URLDownloadToFile.

Je voudrais réaliser une mise en page d'un doc Word et dans le même principe je voudrais récupérer une image d'internet pour la coller directement dans un doc Word.

Merci d'avance d'avance de votre aide.

Ben

Up...