Insérer une image Web dans un userform

**bboy-eazy** · 28/10/2015, 16h07

Bonjour,

Je voulais savoir si il est possible de récupérer directement une image internet dans un userform? Je ne trouve pas grand chose sur internet à part cette API mais l'enregistrement ne se fait pas...

Code :

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

1
2
3
4
5
 
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

J'ai vu aussi un truc sur un webbrowser mais je ne comrpend rien...

En fait je voudrais pouvoir afficher directement l'image d'internet (sans l'enregistrer sur mon PC) dans le contrôle image de mon userform.
Le fichier doit etre aprtager et du coup comme les chemins ne sont pas les mêmes il faut que tous les utilisateurs puissent voir l'image qui se trouve sur internet.

Est ce possible?

merci d'avance de votre aide

**PMO2017** · 28/10/2015, 19h05

J'ai vu aussi un truc sur un webbrowser mais je ne comprend rien...
En fait je voudrais pouvoir afficher directement l'image d'internet (sans l'enregistrer sur mon PC) dans le contrôle image de mon userform.

Bonjour,

L'Api URLDownloadToFile charge l'image sur votre ordinateur, ce que vous ne voulez pas.

Pour le WebBrowser, voici un exemple ci-dessous.
La restriction est que cet ActiveX n'est pas forcément présent et enregistré sur toutes les machines.
Chez moi cela fonctionne mais en sera-t-il de même dans votre situation (???).

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub UserForm_Activate()
Dim WBS As Object 'WebBrowser
Dim mySource As String
'---
'### URL de l'image sur internet (à adapter) ###
mySource = "http://static.wamiz.fr/images/animaux/chiens/medium/chien-loup-de-saarloos-1118.jpg"
'###############################################
 
Set WBS = Me.Controls.Add("Shell.Explorer.2")
WBS.Height = 200
WBS.Left = 20
WBS.Navigate "about:<html><body scroll='no'><img src='" & mySource & "'></img></body></html>"
DoEvents
'---
With WBS.document.body.Style
  '--- Supprime la bordure ---
  .BorderStyle = "none"
  '--- Applique la couleur de fonds du UserForm ---
  '################################################################################
  '### ATTENTION :                                                              ###
  '### Pour que l'instruction suivante fonctionne, il est impératif de définir  ###
  '### la couleur de fonds du UserForm (BackColor) par le biais de l'onglet     ###
  '### "Palette" de la fenêtre de Propriétés et NON pas par l'onglet "Système". ###
  '### L'affectation de la couleur par code est également possible avec une     ###
  '### instruction comme, par exemple :       Me.BackColor = 16744576           ###
  '################################################################################
  .backgroundColor = InvertRGB(Me.BackColor)
End With
End Sub
 
Private Function InvertRGB(Color As Long) As Long
Dim A$
Dim B$
Dim i&
A$ = Hex(Color)
Do Until Len(A$) >= 6
  A$ = "00" & A$
Loop
For i& = 6 To 2 Step -2
  B$ = B$ & Mid(A$, i& - 1, 2)
Next i&
InvertRGB = CLng("&H" & B$)
End Function

**patricktoulon** · 28/10/2015, 21h08

puréé PMO il c'est envolé la

mais non mais non il y a beaucoup plus simple

dans un evenemnet que tu veut de ton userform le activate pourquoi pas ou celui d'un bouton tu met

Code :

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

1
2
3
Dim url As String
url = "http://static.wamiz.fr/images/animaux/chiens/medium/chien-loup-de-saarloos-1118.jpg"
fichierIMage url, Me.Image1

et dans un module standard tu met ceci: c'est une simple requete qui stream le fichier en binaire

pas d'api, pas de webbrowser et le shmilblik est toujour la

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub fichierIMage(url As String, ctrl As Object)
    Dim ReQ As Object, oStream As Object
      On Error Resume Next    'On ne gère pas les erreurs
    Set ReQ = CreateObject("Microsoft.XMLHTTP")
    ReQ.Open "get", url, False
    ReQ.send
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write ReQ.responsebody
   oStream.SaveToFile ThisWorkbook.Path & "\imagetemp.jpg"
    oStream.Close
ctrl.Picture = LoadPicture(ThisWorkbook.Path & "\imagetemp.jpg")
End Sub

mais je garde ta proposition PMO elle peut servir dans d'autre circonstences

a savoir que si on fait un active workbook .save apres la requete et un kill sur le fichier téléchargé on ne perds plus l'image

voila voila piece jointe

**bboy-eazy** · 29/10/2015, 07h22

Bonjour,

Merci à vous deux pour vos réponses. cela fonctionne parfaitement pour l'une comme pour l'autre.

Merci PMO pour l'utilisation du WebBrowser.
En effet patrick, c'est pas mal du tout cette méthode, rapide efficace :p

Bonne journée

**davido84** · 29/10/2015, 09h29

Bonjour,
on également stocker temporairement l'image dans un objet Chart pour l'afficher ensuite dans le contrôle image :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
'http://boisgontierjacques.free.fr/fichiers/Formulaire/FormAfficheImageWeb.xls
Private Sub UserForm_Initialize()  
  Set f = Sheets("feuil1")
  s = "http://static.wamiz.fr/images/animaux/chiens/medium/chien-loup-de-saarloos-1118.jpg"
  Set img = ActiveSheet.Pictures.Insert(s)
  img.CopyPicture
  f.ChartObjects.Add(0, 0, Me.Image1.Width, Me.Image1.Height).Chart.Paste
  f.ChartObjects(1).Chart.Export Filename:="monimage.jpg"
  f.ChartObjects(1).Delete
  Me.Image1.Picture = LoadPicture("monimage.jpg")
  Kill "monimage.jpg"
  img.Delete
End Sub

A+

**patricktoulon** · 29/10/2015, 12h37

bonjour et oui davido
c'est exact mais c'est plus long (manipulation d'object sur le sheets)
la requete stream avaec adob.stream c'est quasi instantané

ta methode je m'en sert pour copier une SHAPE!! image(oleobject) dans un userform sans les apis

**Reaverman** · 17/08/2018, 21h50

Envoyé par patricktoulon

puréé PMO il c'est envolé la

dans un evenemnet que tu veut de ton userform le activate pourquoi pas ou celui d'un bouton tu met

Code :

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

1
2
3
Dim url As String
url = "http://static.wamiz.fr/images/animaux/chiens/medium/chien-loup-de-saarloos-1118.jpg"
fichierIMage url, Me.Image1

et dans un module standard tu met ceci: c'est une simple requete qui stream le fichier en binaire

pas d'api, pas de webbrowser et le shmilblik est toujour la

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub fichierIMage(url As String, ctrl As Object)
    Dim ReQ As Object, oStream As Object
      On Error Resume Next    'On ne gère pas les erreurs
    Set ReQ = CreateObject("Microsoft.XMLHTTP")
    ReQ.Open "get", url, False
    ReQ.send
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write ReQ.responsebody
   oStream.SaveToFile ThisWorkbook.Path & "\imagetemp.jpg"
    oStream.Close
ctrl.Picture = LoadPicture(ThisWorkbook.Path & "\imagetemp.jpg")
End Sub

mais je garde ta proposition PMO elle peut servir dans d'autre circonstences

a savoir que si on fait un active workbook .save apres la requete et un kill sur le fichier téléchargé on ne perds plus l'image

voila voila piece jointe

Bonsoir Patrick,
j'ai téléchargé votre fichier de démo pour voir ce que ça donnait, mais chez moi le cadre image reste désespérément gris, et lorsque je clique sur le bouton rien ne se passe... (je suis sous Excel 2010)
Une idée de ce qui pourrait ne pas aller ? Je n'ai rien modifié du code

Merci d'avance

Reaverman

**patricktoulon** · 17/08/2018, 22h36

re
bonsoir reaverman
ben peut etre parce que depuis le temps surtout maintenant les protocoles on changé voir endurcis et que la connection exige la securité et donc "http" devient "https"
je dis ca moi je dis rien

ceci: pourrait t'intéresser aussi

**Reaverman** · 17/08/2018, 23h41

Pas bête. J'avais pour ma part vérifié que l'image se chargeait bien avec le préfixe http dans mon navigateur... mais l'exigence de sécurité vient effectivement peut-être d'Office

Petite question subsidiaire : peux-tu me confirmer qu'il est impossible de charger (sans complication) un fichier PNG ?

Merci à toi, et un immense bravo pour ta contribution au site... Vu le nombre de sujets que j'ai parcourus pour me mettre à jour, ta contribution intense m'a beaucoup aidé !!!

malheureusement, même en ajoutant le "s" je n'ai toujours rien... :/

**patricktoulon** · 18/08/2018, 09h50

re
donne moi le lien de cette image que tu n'arrive pas a loader

Insérer une image Web dans un userform [XL-2010]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager