par Stephane Maillard » 21 Août 2003 à 15:33
Bonjour,Voici un exmple de l'aide Designer :The following button script saves the current document, refreshes the view (called "Main") and then closes the document.Sub Click(Source As Button) ' Declare all variables Dim workspace As New NotesUIWorkspace Dim session As New NotesSession Dim uidoc As NotesUIDocument Dim view As NotesView Dim db As NotesDatabase 'Set all variables Set uidoc = workspace.CurrentDocument Set db = session.CurrentDatabase Set view = db.GetView( "Main" ) 'Save current document, refresh "Main" view 'and close document Call uidoc.Save Call view.Refresh Call workspace.ViewRefresh Call uidoc.CloseEnd Sub[%sig%]
Cordialement
Stéphane Maillard