EXPORTATION VALEURS D'1 VUE VERS l'agenda (bis)

[M@rcello]

BonjourJ'ai une vue avec une date début, une date fin...J'aimerai exporter ces valeurs vers mon agenda....J'ai trouvé un code lotus, mais il s'ouvre toujours à la valeur du jour et non à la valeur selectionnée dans la vue ....Ci dessous le codeSub Click(Source As Button)Dim NotesSession As New NotesSessionDim workspace As New NotesUIWorkspaceDim Doc As NotesDocumentDim db As NotesDatabaseDim UIDoc As NotesUIDocument Dim CurDoc As NotesDocumentSet CurDoc = workspace.CurrentDocument.DocumentSet db = NotesSession.GetDatabase("server/societe",CurDoc.Calendar(0))set doc = db.CreateDocumentdoc.form = "Appointment"doc.AppointmentType = "0"doc.Subject = "Absence. (Approuvée par " & CurDoc.Manager(0) & ") "'doc.StartDate = CurDoc.StartDate(0)doc.EndDate = CurDoc.EndDate(0)doc.ExcludeFromView = "D"Set UIDoc = Workspace.EditDocument(True,doc)End Sub