Passer en revue un lot de notices

'(Declarations)
Dim ISITV
ISITV = "$b831522101"
Dim TrouveILN
Dim nbreExemplaires
Dim fso
Set fso = CreateObject ("Scripting.FileSystemObject")
'End of (Declarations)

Sub Lot()
Application.ActiveWindow.Command "che rbc 831522101 et slo FTVC", False
Dim total
total = Application.ActiveWindow.Variable("P3GSZ")
For element = 1 To total
Application.ActiveWindow.Command "aff " & element, False
TestMsg
Next
End Sub

Sub RegarderBib()
Application.ActiveWindow.Title.StartOfBuffer
For k = 0 To nbreExemplaires - 1
Application.ActiveWindow.Title.FindTag "930",k,True, True
Application.ActiveWindow.Title.Find "$b"
Application.ActiveWindow.Title.CharRight 9,True
TrouveILN = Application.ActiveWindow.Title.GetSelection()
If TrouveILN = ISITV Then
Set appendBestand = fso.OpenTextFile("C:\picatmp\isitv.txt",8)
Dim monChamp
Application.ActiveWindow.Title.EndOfField
monChamp = Application.ActiveWindow.Title.GetCurrentField
appendBestand.WriteLine(monChamp)
appendBestand.Close
End If
Next
End Sub

Sub TestMsg()
Application.ActiveWindow.Command "mod", False
Dim nbreMsg
Application.ActiveWindow.Command "mod"
nbreMsg = Application.ActiveWindow.Messages.Count
If nbreMsg > 0 Then
Exit Sub
Else
VerifNbreExemplaires
End If
End Sub

Sub VerifNbreExemplaires()
	nbreExemplaires = 0
	etiqExempl = "A97"
	Do While Application.ActiveWindow.Title.FindTag(etiqExempl, nbreExemplaires, True, True) <> ""
	nbreExemplaires = nbreExemplaires + 1
	Loop
	RegarderBib
End Sub

Ce script lance la commande che rbc 831522101 et slo FTVC (chercher les notices dont les exemplaires sont localisés sous le RBC 831522101 et sous-localisés FTVC) qui génère un lot de notices.
La variable total reçoit la valeur de la variable PICA P3GSZ qui contient le nombre total de notices dans le lot.
Une boucle affiche chaque notice.