mon code ne modifie pas le texte de mon champ, any idea ?

[rodrigue]

avis est le nom du champ richtext dont je veux reformater le texte qui y est placé. la messagebox me confirme bien que je travaille sur ce champ.Sub Click(Source As Button) Dim session As New NotesSession Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim doc As NotesDocument Dim item As NotesRichTextItem Dim richStyle As NotesRichTextStyle Set uidoc = workspace.CurrentDocument Set doc = uidoc.Document Set item = doc.GetFirstItem("avis") Set richStyle = session.CreateRichTextStyle richStyle.NotesFont = FONT_COURIER richStyle.FontSize = 12 Call item.AppendStyle(richStyle) Messagebox item.Name & " = " & item.Text Call doc.Save(True, False)End Sub