Voila le code dans un bouton qui permet de fermer et de réouvrir le doc dans l'UI:
- Code : Tout sélectionner
Dim ws As New NotesUIWorkspace
Dim doc As NotesDocument
Dim itemHistory As NotesItem
Dim sUNID As String
Set uidoc = ws.CurrentDocument
Set doc = uidoc.document
sUNID = doc.UniversalID
uidoc.close
Delete doc
Set doc = curdb.GetDocumentByUNID(sUNID)
If Not doc Is Nothing Then
sAction = "modifié"
Call ws.EditDocument( True, doc)
End If
Jusqu'ici c'est bon! Mais après avoir modifier le contenu des champs et que je click sur un bouton Enregistrer j'obtiens un message m'indiquant qu'une autre copie du document a été enregistré pendant édition....
Auriez vous une explication? Merci par avance.
cdt
camille