Récupérer des notices avec un lot de codes-barres

Sub RecupereBiblioParCodeBarre
	Dim LesCodesBarres
	LesCodesBarres = Array("0260298704", "0260485166", "0260559393")
	For Each CodeBarre In LesCodesBarres
		Application.ActiveWindow.Command "che cod " & CodeBarre
		If Application.ActiveWindow.Messages.Count = 0 Then
			Application.ActiveWindow.Command "mod", False
			Dim TrouveCodeBarre
			TrouveCodeBarre = Application.ActiveWindow.Title.Find(CodeBarre, True, False, False)
			If TrouveCodeBarre = True Then
				Application.ActiveWindow.Title.EndOfField()
				Application.ActiveWindow.Title.InsertText "W"
				Application.ActiveWindow.SimulateIBWKey("FR")
			End If
			Application.ActiveWindow.Command "mod", False
			TrouveCodeBarre = Application.ActiveWindow.Title.Find(CodeBarre, True, False, False)
			Application.ActiveWindow.Title.EndOfField()
			Application.ActiveWindow.Title.CharLeft 1, True
			Application.ActiveWindow.Title.DeleteSelection
			Application.ActiveWindow.SimulateIBWKey("FR")
		Else
			InputBox "Problème", "Problème", Application.ActiveWindow.Messages.item(0) & ":" & CodeBarre
		End If
	Next
End Sub

On ajoute un W à la fin du code-barre, on enregistre, puis on rouvre et on efface le W.
On pourrait faire plus court (?) en faisant, la deuxième fois, une recherche sur CodeBarre & "W" et en effaçant tout suite la sélection.