Discussion :

[google_is_my_friend]

Bonjour tout le monde

Je travaille actuellement sur un projet VBA qui demande de télécharger une image d'un site internet et de la mettre directement dans la cellule demandée. Y a pas de soucis avec l'insertion, ni avec le chargement de la page, ni celui de l'image, mais j'ai remarqué que mon algorithme a tendance à me donner une image carrée ! et oui carrée, j'ai fait mille et un test et c'était toujours le cas quelque soit la taille d'origine. J'ai fait le test avec des images .jpg et des .gif et j'ai remarqué que le problème ne se pose pas pour les .gif !

Voilà mon code :

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
Function codeHTML(ByVal adresse As String, ByRef img As String)
Dim ie As Object
Set ie = CreateObject("InternetExplorer.application")
 
' Chargement de la page
ie.navigate (adresse)
Do While ie.ReadyState <> 4 Or ie.Busy
Loop
 
' Chargement des dimensions de l'image (s'il y en a une)
If ie.document.images.Length = 5 Then img = _
ie.document.images(4).src & Chr(10) & ie.document.images(4).Width & Chr(10) & ie.document.images(4).Height
 
' Chargement du code
codeHTML = ie.document.DocumentElement.outerHTML
ie.Quit
Set ie = Nothing
 
End Function

J'ai vraiment besoin d'un coup de main, car sinon j'vais m'arracher les cheveux xD

Merci par avance et bonne journée !

[Jean-Philippe André]

salut,
un excellent et très complet tuto sur IE de la part de Qwazerty :
http://qwazerty.developpez.com/tutor...-et-vba-excel/
et notamment la partie
http://qwazerty.developpez.com/tutor...a-excel/#LIV-J

qui travaille sur les fichiers, donc les images, sur un site

ca devrait te donner de bonnes pistes de résolution