Loadpicture depuis un lien hypertext

[2susy]

Bonjour à tous,

je souhaite associer la photo de la personne choisie à chaque changement de valeur de mon combo. Le truc c'est que les photos sont stockées sur un http et loadPicture ne fonctionne pas. Voici mon code qui est stoppé à l'expression en rouge.

 Dim c As Range, Staff As Variant
 Dim Image As String, Ref As String
Staff = UserForm1.ComboSelect.Value
With Sheets("Extraction")
    For Each c In .Range("C2:C" & .Range("C65536").End(xlUp).Row)
    Ref = c.Offset(0, -2) 'où se trouve le numéro de matricule
    Image = "http://xxxxxxxxxx/upload/staff/" & Ref & ".jpeg"
    If c.Value = UserForm1.ComboSelect.Value Then c.Offset(Image).Hyperlinks(1).Follow False
    UserForm4.Image1.Picture = [COLOR="Red"]LoadPicture(Image)[/COLOR]
       Next c
    End With

Merci de votre aide !!
Susy

 

[Guest]

Re : Loadpicture depuis un lien hypertext

Bonjour 2susy,

La seule façon que je connaisse pour faire cela est de télécharger l'image au moyen d'une API windows dans un fichier local puis d'attribuer se fichier à la méthode LoadPicture.

Option Explicit
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
 
 
Sub TaSub()
Dim FicDest As String
Dim ImageURL As String
ImageUrl=Image = "http://xxxxxxxxxx/upload/staff/" & Ref & ".jpeg"
FicDest = ThisWorkbook.Path & "\image1.jpeg"
 
If [COLOR=red]chargeImage[/COLOR]( ImageURl, FicDest) then Image1.Picture = LoadPicture(FicDest)
 
End TaSub
 
Public Function [COLOR=red]chargeImage[/COLOR](URL As String, FichierDestination As String) As Boolean
    Dim Retour As Long
    Retour = URLDownloadToFile(0, URL, FichierDestination, 0, 0)
    If Retour = 0 Then chargeImage = True
End Function

Et Le tour est joué.

A bientôt

 

[2susy]

Re : Loadpicture depuis un lien hypertext

ok je vais tenter d'adapter ta solution !

merci!