Ouvrir, enregistrer puis attacher un doc word/excel dans not

[Baker]

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!!

[polbusse]

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