DominoArea.org [Archive]

J'ai un problème je n'arrive pas à recopier le champ texte riche "EmpreinteSignature" de doc, dans le champ texte riche "Saisie" de doc1.Le code ci dessous s'éxécute, pas d'erreur, mais rien ne se passe.Si quelqu'un voit une erreur, merci d'avance----------------------------------------------------------------------Dim session As New NotesSession Dim uiws As New NotesUIWorkspace Dim uiDoc As NotesUIDocument Dim doc1 As NotesDocument Dim db As NotesDatabase Dim dc As NotesDocumentCollection Dim doc As NotesDocument Dim Signature As NotesRichTextItem Set uiDoc = uiws.currentDocument Set doc1 = uiws.CurrentDocument.document uidoc.editmode =True ' passage en mode edition ' ajout de la signature Set db = session.currentdatabase Set dc = db.AllDocuments Set doc = dc.getfirstdocument Set signature = doc.GetFirstitem("Empreintesignature") signature.CopyItemToDocument doc1,"Saisie"

Salut, A quel moment fait tu la sauvegarde de doc1 ?Si ça ne marche pas essaie ceci im session As New NotesSession Dim uiws As New NotesUIWorkspaceDim uiDoc As NotesUIDocumentDim doc1 As NotesDocumentDim db As NotesDatabaseDim dc As NotesDocumentCollectionDim doc As NotesDocumentdim Saisie as notesRichTextItemSet uiDoc = uiws.currentDocument Set doc1 = uiws.CurrentDocument.documentuidoc.editmode =True ' passage en mode edition' ajout de la signatureSet db = session.currentdatabaseSet dc = db.AllDocumentsSet doc = dc.getfirstdocumentset Saisie = New NotesRichTextItem (doc1, "Saisie" )Call Saisie.AppendRTItem(DocConfig.getfirstitem("Empreintesignature"))

La sauveagrde, je la fais à la fin de la procèdure, de toute facon j'arrete la procedure avant avec un exit sub. Un autre champ change de valeur, c'est ok, mais le texte riche, il veut rien savoir.La modification fait la meme chose, fonctionne mais se passe rien

je me souvient avoir eu un pb similaire..Essai en détruisant le champ Texte riche ds ta procédure(methode Call document.removeitem("Saisie"), puis de le recréer, ca doit marcher.