Utilisation d'un message renvoyé par WinIbw

WinIBW renvoie des messages que l'on peut récupérer dans l'objet Message, qui a les propriétés Text (le texte du message) et Type (de quel type est le message).
L'objet Message est lui-même membre de la collection Messages, qui a les propriétés Count (=nombre total de messages) et Item.

Message et Clipboard

Récupération du texte du message en mémoire vive :

Sub Essai()
   Dim mesagho
   Application.ActiveWindow.Command "che nos 1"
   For Each mesagho In Application.ActiveWindow.Messages
      MsgBox (mesagho.Type)
      Application.ActiveWindow.Clipboard = mesagho.Text
   Next
   Application.ActiveWindow.CommandLine = Application.ActiveWindow.Clipboard
End Sub

Ce script lance la commande che nos 1 (chercher la notice supprimée n°1) puis enregistre dans la variable mesagho le texte et le type du message.
Il génère une alerte qui affiche le type (dans cet exemple : 2) et il met en mémoire vive le texte.
Enfin, le contenu du bloc-note est affichée dans la ligne de commande.

Si on met : Application.ActiveWindow.Caption = Application.ActiveWindow.Clipboard, le message s'affiche en haut dans la barre bleue.

Autre petit exemple de Clipboard

Sub ChePpn()
	'Colle le PPN se trouvant en mémoire vive
	Application.ActiveWindow.Command "che ppn " & Application.ActiveWindow.Clipboard
End Sub

Lorsqu'on a copié un PPN depuis une autre application, il suffit de lancer ce script pour afficher la notice.

Messages.Count et Messages.Item

Sub Teste_Message()
	Dim mesagho
	Application.ActiveWindow.Command "che cod 1500361829"
	If Application.ActiveWindow.Messages.Count > 0 Then
		Set mesagho = Application.ActiveWindow.Messages.Item(0)
		MsgBox mesagho.Type
	End If
End Sub

Si le code-barre est trouvé, l'application ne renvoie aucun message, Application.ActiveWindow.Messages.Count est égal à 0.
Si le code-barre n'est pas trouvé, l'application renvoie un message, Application.ActiveWindow.Messages.item(0) est le premier message ; son type est 2.