REnommer fichier apres macro Telechargement image hebergeur

Bonsoir A tous,

J'utilise cette macro qui me permet de télécharger des images depuis un hébergeur , puis dans les enregistrer dans un répertoire

Je n'arrive pas a ce que ces images une fois telechargées se nome comme A2,A3,A4,etcvetc

J'ai essayé avec cette ligne

' oStream.Open: oStream.Type = 1: oStream.Write ReQ.responsebody: oStream.SaveToFile chemin & Range("A2").Value & ".jpg": oStream.Close

Mais du coup les images ne correspondent plus a l'objet...il y a un decalage

Merci de votre aide

Dim chemin$, i&
chemin = "C:\Temp\"
If Dir(chemin, vbDirectory) = "" Then MkDir chemin
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Debug.Print ActiveSheet.Cells(i, 7).Value
récup_imge Cells(i, "G").Value, chemin, i

Next

End Sub
Function récup_imge(url As String, chemin As String, index As Long) 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
Debug.Print index & " " & CStr(ReQ.Status)
If ReQ.Status = 200 Then

Set oStream = CreateObject("ADODB.Stream")
oStream.Open: oStream.Type = 1: oStream.Write ReQ.responsebody: oStream.SaveToFile chemin & index & ".jpg": oStream.Close

End If
Set oStream = Nothing: Set ReQ = Nothing