Discussion :

[Venaxem]

Bonjour,

Je tiens à préciser que je débute en VBA, et j'aurais besoin de votre aide. Après pas mal de recherches et bidouillages de codes récupérés sur ce site, je n'ai toujours pas trouvé mon bonheur. En effet, le code que j'ai déjà fait fonctionne sur Excel 2016 et 2019 mais pas sur ma version de 2003.

Je souhaiterais, à partir de la référence saisie en D22 ou AH22, aller télécharger la photo correspondante dont le lien URL est répertorié sur l'autre feuille "BCI". Une fois le téléchargement fait, mon code arrive à afficher la photo. Le seul soucis c'est que je ne trouve pas de code viable pour ma version de 2003 qui va réussir à télécharger ma photo, puis la renommer au nom de ma référence

Auriez vous des solutions ou astuces ? Est ce qu'il y a une sécurité qui bloque les téléchargements sur l'anciennne version ?

Merci d'avance pour votre aide

[patricktoulon]

bonjour
j'ai pris un lien dans ton sheets et testé ma methode sans l'api avec une simple requete et l'object adobstream pour ecrire le fichier image
tu devrait pas avoir de mal a adapter

teste et regarde sur ton bureau

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
Sub test()
    lienImage$ = "https://media.alinea.com/images/catalog/26501086/PIED-DE-LAMPE-METAL-CESARIO-26501086-A-1.jpg?v=2"
    destination$ = Environ("userprofile") & "\DeskTop\" & "toto.jpg"
    If telecharge_Image(lienImage, destination) = destination Then MsgBox "image telechargée"
End Sub
'
Function telecharge_Image(url As String, destination As String) As String
    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 destination$: oStream.Close
    telecharge_Image = destination
    Set oStream = Nothing: Set ReQ = Nothing
End Function