Enregitrer une image se situant sur une page web

Bonjour à toutes et tous,

Je cherche à enregitrer une image qui est sur une page web, je ne connais pas l'url de l'image seulement l'url de la page.

J'ai actuellement une liste de nom d'objet reliés à un numéro, grâce à ce numéro j'arrive à ouvrir la page web correspondante, mais je ne sais pas comment enregistrer l'image qui correspond.

Voici un exemple du code que j'ai fait :

  Dim chromePath As String
  Dim pathRessource As String
  Dim feuilleListeRessources As String
  Dim feuilleBddRessources As String
  Dim c As Range
  Dim lastLineListe As Integer
  Dim lastLineBDD As Integer
  Dim numRessource As Integer

  feuilleBddRessources = "BDD ressources"
  feuilleListeRessources = "Liste ressources"
  chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe"""

  lastLineListe = ThisWorkbook.Sheets(feuilleListeRessources).Range("A" & Rows.Count).End(xlUp).Row
  lastLineBDD = ThisWorkbook.Sheets(feuilleBddRessources).Range("A" & Rows.Count).End(xlUp).Row

  For Each c In ThisWorkbook.Sheets(feuilleListeRessources).Range("A1:A" & lastLineListe)

    If Not ThisWorkbook.Sheets(feuilleBddRessources).Range("B1:B" & lastLineBDD).Find(c.Value) Is Nothing Then
        numRessource = ThisWorkbook.Sheets(feuilleBddRessources).Range("B1:B" & lastLineBDD).Find(c.Value).Offset(0, -1)
        pathRessource = "https://www.dofus.com/fr/mmorpg/encyclopedie/ressources/" & numRessource
        Shell (chromePath & " -url " & pathRessource)
    End If

  Next

Pour exemple on peut prendre ce lien la : https://www.dofus.com/fr/mmorpg/encyclopedie/ressources/61
Mais ce que je cherche à faire c'est enregistrer sous l'image qui se trouve en haut à gauche (dans ce cas la, une image d'épée sur un fond marron)

Merci d'avance.
Zapsalis

Bonsoir Zapsalis,

Voici l'Url de l'image en question mis en 1ière ligne en Chemin

Chemin = "https://static.ankama.com/dofus/www/game/items/200/6006.png"
ActiveSheet.Pictures.Insert(Chemin).Name = "Epée d'Ha"

Ensuite on l'insère dans la feuille active par la 2ième ligne de code tout en la nommant. Ici Epée d'Ha.

Cela va télécharger l'image.

Le site Dofus.com n'est qu'une page Url intermédiaire qui classe les ressources selon leur encyclopédie.

Il faut remonter au niveau supérieur Static.ankama.com pour le chemin complet de l'image.

En fait c'est la partie final items/200/6006.png qui définit le niveau (ici 200) puis le numéro d'image (ici 6006). Et si je remplace par 4133.png alors cela sera ceci.

Note qu'une fois téléchargé le fond peut prendre la couleur que l'on souhaite. Par les propriétés de l'image.

Bonjour à toutes et tous,
Pour info, pour Excel 365 (Insider, Beta channel), une nouvelle fonction est apparue.
Bientôt disponible pour tous ?
Cdlt.