Lancer un batch de téléchargements

L'objectif est de lancer une série de commandes tel, par exemple pour récupérer un grand nombre de notices au formats unm.

Sub Recupere_Unimarc()
	Dim Fonds
	Fonds = "831372102"
	Dim LesPPN
	LesPPN = Array("00","01","02","03","04","05","06","07","08","09","10","11","12","13","14","15","16","17","18","19")
	Dim NumeroDuLot
	Dim Reponse
	For Each PPN In LesPPN
		Application.ActiveWindow.Command "che rbc " & Fonds & " et ppn " & PPN & "?"
		If Application.ActiveWindow.Messages.Count = 0 Then
			NumeroDuLot = Application.ActiveWindow.Variable("P3GSE")
			Application.ActiveWindow.Command "tel s" & NumeroDuLot & " unm"
			Reponse = MsgBox("Cliquer pour lancer la requête suivante.", vbYesNo, "Stop ou encore")
			If Reponse = 7 Then
				Exit Sub
			End If
		End If
	Next
End Sub

Malheureusement il faut cliquer à chaque téléchargement : je n'ai pas trouvé comment générer un signal dès la fin du téléchargement.

Si on clique sur OK, Reponse prend la valeur 6 ; sur No, Reponse prend la valeur 7.