DominoArea.org [Archive]

Salut,Je cherche un exemple de code LS pour ouvrir depuis Lotus Notes, un document modèle Word / Excel (type *.dot) puis une fois remplis,enregistrer et fermer je voudrais attacher le document dans Notes.Bien sur tout cela est gérer par script Lotus.Help me,Please!!

voici en vrac, un exportation de fichier texte tabulé sur un serveur, il est ensuite attaché à un document Notes, puis le fichier est supprimé sur le serveur. Set db = session.CurrentDatabase Set Mask = session.DocumentContext Set VueEnquete = db.GetView("VwEnquete") Set docEnquete = VueEnquete.GetFirstDocument() '// Creation du fichier iNumFichier% = Freefile '// mettre ensuite un nom ou identifiant utilisateur FileName = "C:\toto.xls" Open FileName For Output As iNumFichier% Set dateexport = New NotesDateTime("") Call dateexport.SetNow() '// ecriture de l'entête du fichier Print # iNumFichier%, dateexport.DateOnly+Chr(9) + dateexport.TimeOnly Print # iNumFichier%, docEnquete.TxtLibelle(0) 'Fermeture du fichier Close #iNumFichier% Set docFichier = New NotesDocument(db) docFichier.Form = "FrmExportExcel" docFichier.type_temporaire = "True" ''Attachement du fichier Dim rti As New NotesRichTextItem(docFichier,"Fichier") Call rti.EmbedObject (EMBED_ATTACHMENT, "", FileName) Call docFichier.save(True,False) 'Calcul du chemin de la base path = db.FilePath path = Replacechar(path,"\","/") 'Affichage de la page avec le fichier attache Dim URL As String URL = "/" + path + "/0/" + docFichier.UniversalId + "?OpenDocument" Print "[" + URL + "]" 'Suppression du fichier Kill FileName