Copier une sélection

Les fonctions GetSelection, GetCurrentField, GetCurrentLine ne fonctionnent pas.
Il faut utiliser la propriété selection

Sub ExempleSelection()
	Dim champ
	Dim nbreExemplaires
	Dim etiqExempl
	etiqExempl = "915"
	Application.ActiveWindow.Command "che tdo t et rbc 831372101 et mti lamy droit commercial", False
	nbreExemplaires = 0
	Application.ActiveWindow.Command "aff 1", False
	Application.ActiveWindow.Command "mod", False
	Application.ActiveWindow.Title.FindTag etiqExempl, nbreExemplaires, True, True
	Application.ActiveWindow.Title.StartOfField
	Application.ActiveWindow.Title.EndOfField true
	champ = Application.ActiveWindow.Title.selection
	Application.ActiveWindow.Title.lineDown
	Application.ActiveWindow.Title.StartOfField
	Application.ActiveWindow.Title.EndOfField true
	champ = champ & "" & Application.ActiveWindow.Title.selection
	MsgBox(champ)
End Sub

Ce script place le curseur en tête du champ 915, sélectionne toute la ligne et copie le contenu dans la variable champ. Puis il descend à la ligne en-dessous et ajoute cette ligne à la précédente, avec le caractère £ en guise de délimiteur.