EXPORTATION VALEURS D'1 VUE VERS l'agenda

[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 ....

[oguruma]

slt,peux-tu laisse ton code par un poste... afin d'y regarder de plus près

[M@rcello]

Ci dessous le codeSub Click(Source As Button) Dim NotesSession As New NotesSession Dim workspace As New NotesUIWorkspace Dim Doc As NotesDocument Dim db As NotesDatabase Dim UIDoc As NotesUIDocument Dim CurDoc As NotesDocument Set CurDoc = workspace.CurrentDocument.Document Set db = NotesSession.GetDatabase("gandalf/Aprolis-smi",CurDoc.Calendar(0)) set doc = db.CreateDocument doc.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