Récupérer un lot de notices

L'objectif est de mettre à jour le SIGB en rechargeant un lot de notices.
La méthode consiste simplement à modifier un exemplaire (et annuler aussitôt cette modification) sur chaque notice de manière à recevoir le lendemain toutes les notices mises à jour.

Sub Imes()
REM Traite un lot de notices
REM Permet à chaque notice d'être récupérée le lendemain dans Loris
REM Modifie le premier exemplaire localisé sous la bibliothèque connectée
REM Puis annule cette modification
	Dim unX
	unX = "X"
	Dim LeRBC
	LeRBC = "930 ##$b" & Application.ActiveWindow.Variable("libID")
	total = Application.ActiveWindow.Variable("P3GSZ")
	For element = 1 To total
		Application.ActiveWindow.Command "aff " & element, False
		Application.ActiveWindow.Command "mod", False
		Application.ActiveWindow.Title.FindTag LeRBC, 0, True, True
		Application.ActiveWindow.Title.EndOfField(False)
		Application.ActiveWindow.Title.InsertText(unX)
		Application.ActiveWindow.SimulateIBWKey("FR")
		Application.ActiveWindow.Command "mod", False
		Application.ActiveWindow.Title.FindTag LeRBC, 0, True, True
		Application.ActiveWindow.Title.EndOfField(False)
		Application.ActiveWindow.Title.charLeft 1, True
		Application.ActiveWindow.Title.deleteSelection()
		Application.ActiveWindow.SimulateIBWKey("FR")
	Next
End Sub