ecrire un richtext dans un doc

[seb]

Dans un document j'ai un champ Richtext que je voudrais ecrire dans un autre.Je n'ai pas de probleme pour d'autres champ de type text mais avec un champ richtext j'ai toujours le message "Variant doesn't contain a container"Merci d'avance.

[GOBLET]

Sub Initialize Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set db = session.CurrentDatabase Set uidoc = workspace.CurrentDocument ' Récupération du contenu du champ Body : Dim LeBody As String LeBody = uidoc.FieldGetText( "Body" )End Sub