Alors :
Sous QUERYSAVE :
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim wks As New NotesUIworkspace
Dim doc As NotesUIDocument
Dim domaine,chapitre,sschapitre As String
Set doc = wks.CurrentDocument
domaine = doc.FieldGetText ("cDocDomaine")
chapitre = doc.FieldGetText ("cDocChapitre")
sschapitre = doc.FieldGetText ("cDocSouschap")
Call doc.FieldSetText( "cBackupDocDomaine", domaine )
Call doc.FieldSetText( "cBackupDocChapitre", chapitre )
Call doc.FieldSetText( "cBackupDocSouschap", sschapitre )
End Sub
Sous POSTSAVE : Rien du tout.
Ces infos font-elles avancer mon histoire ?
Merci.
Sous QUERYSAVE :
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim wks As New NotesUIworkspace
Dim doc As NotesUIDocument
Dim domaine,chapitre,sschapitre As String
Set doc = wks.CurrentDocument
domaine = doc.FieldGetText ("cDocDomaine")
chapitre = doc.FieldGetText ("cDocChapitre")
sschapitre = doc.FieldGetText ("cDocSouschap")
Call doc.FieldSetText( "cBackupDocDomaine", domaine )
Call doc.FieldSetText( "cBackupDocChapitre", chapitre )
Call doc.FieldSetText( "cBackupDocSouschap", sschapitre )
End Sub
Sous POSTSAVE : Rien du tout.
Ces infos font-elles avancer mon histoire ?
Merci.