VBA Internet explorer enregistrer la cible sous

Bonjour,

Je débute en VBA et je cherche à améliorer un de mes fichiers qui a pour rôle d'interroger un portail intranet en se basant sur les résultats d'un TCD pour en extraire des PDF.

A l'heure actuelle mon fichier ouvre via IE les PDF mais ce que je souhaiterai c'est qu'il "enregistre la cible sous" au format PDF dans un dossier prédéfini automatiquement.

Vous trouverez ci dessous mon code et en orange la partie que je voudrais modifier.

Sub ETQ()

Dim i As Integer
Dim j As Integer

i = Application.WorksheetFunction.CountA(Sheets("Test").Range("A2:A5")) - 1
j = 0

Do While i > 0

'Variables IE
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputZoneTexte As HTMLInputElement

IE.Visible = True

Application.Wait (Now + TimeValue("0:00:01"))

IE.navigate "Mon site web"

Application.Wait (Now + TimeValue("0:00:01"))

Set IEDoc = IE.document

Application.Wait (Now + TimeValue("0:00:01"))

Set InputZoneTexte = IEDoc.all("Search")

InputZoneTexte.Value = CStr(Sheets("Test").Range("A2").Offset(j, 0))

Application.Wait (Now + TimeValue("0:00:05"))
Set Class = IE.document.getElementsByClassName("Article-title-XXX")(0)
Class.Click
Application.Wait (Now + TimeValue("0:00:05"))
Set Class = IE.document.getElementsByClassName("button-XXX-outline")(0)
Class.Click
Application.Wait (Now + TimeValue("0:00:05"))
IE.Quit
Set IE = Nothing

j = j + 1
i = i - 1

Loop

MsgBox " La Recherche Est Terminée "

End Sub

En vous remerciant par avance

Nico