DominoArea.org [Archive]

Bonjour,je voudrais que des champs saisis sous notes ,je le retoruve ds un fichier word qj'ai crée par exemple ds Notes il faut saisir un Nom et sous word il ya Nom et je veux q le nom sous Notes s'insere sous Word Sachant q je suis un vrai debutnat sous lotus 5 designer merci de m'ecrire le max d'infos c pour mon stage a+

Moi rien comprendre ce que toi dire.... Peut-tu être plus clair stp

je mexplique jai un document word standard preecrit ,il manque a remplir les noms et prenoms ,qui seront ecrits dans des champs sous lotus ,je desire qu'apres la saisie sous lotus des champs(nom et prenom ) en cliquant sur un bouton envoyer le doc word est envoye avec le nom et prenom saisie sur lotus merci jespre q c plus clair

Dans ton document Word, insères des signets ( emplacement des valeurs à insérées ).Tu dois créer un objet OLE ( à l'aide de la méthode createObject ) en LotusScript.Lorsque ton objet OLE est créé ( objet Word ) tu possédera toutes les méthodes nécessaires pour manipuler ton document Word, ainsi tu pourra valoriser tes signets Word.La manipulation a effectuer, n'est plus dans le cadre de Lotus Notes, mais il faut que tu regardes tu coté des objets OLE.Si tu es débutant en Lotus Notes et que tu ne connais pas les objets OLE, ceci risque de te faire beaucoup de nouvelles notions à assimiler, sinon cela se fait très bien.A+Aurélien

je te remerice aurelien mais comment utiliser les objet ole sous notes quelle est la procedure ,pour les signets sous word je sais y faire j'ai deja fais ca sous vb mais la creation d'ojet ole c'est tres neuf et je suis tres debutant sous notes tu n'aurais pas les details ca m'aiderait enormenent ,je suis en stage merci

POur créer un objet OLEdim wordObject as variantSet wordObject = CreateObject("Word.Application")ensuite tu manipules ton objet "wordObject" en utilisant les méthodes nécessaire.Exemple : WordObject.Application.Run ("Nom de ta macro"), si tu veux exécuter une macro sous word.POur les méthodes, cherches sur le net, et tu trouvera un doc.A+

Tu as du bol toi, c'est justement ce que je suis entrain de faire, mais personellement pour un débutant je toruve ca un peu compliqué.Eoute vu que j'ai pas tro le tps je vais te copier une partie de mon script et tu fera le tri.Set Apli = CreateObject ("Word.application" ) Call Apli.Documents.add("C:\Temp\"& o.Source) Set DocWord = Apli.activeDocument Dim SourceName As String SourceName = Trim("C:\Temp\" & o.Source) ' on va faire la correspondance avec le tablo word / Notes Dim tabword (0 To 20) As String Dim tabnotes (0 To 20) As String Dim tabnom (0 To 20) As String i=0 vart = Ubound(docmail.champword) Do While (i<=vart) tabword(i)=docMail.champword(i) tabnotes(i)=docMail.libchampnotes(i) i=i+1 Loop j=0 Do While (j<i) Set docnom = views.getdocumentbykey( tabnotes(j),True) tabnom(j) = docnom.nomchamp(0) j=j+1 Loop 'la on a le bon tablo de nom des champs word et notes ki correspondent ' on va remplir les champs dans le fichier maintenant k=0 Do While (k<i) If tabnom(k)="saisi" Then valword = tabword(k) vare_edit=espace.prompt(PROMPT_OKCANCELEDIT,"Saisie libre","Entrez le texte du champ word "+valword+" en saisie libre ") If vare_edit="" Then Exit Sub Else DocWord.FormFields(valword).result =vare_edit End If Else valword = tabword(k) valnom = tabnom(k) valnoms=doc.getitemvalue(valnom) DocWord.FormFields(valword).result =valnoms(0) End If k=k+1 Loop ' fin du traitement du fichier sourcename=Left(sourcename,Len(sourcename)-4)+" "+doc.nom(0)+Right(sourcename,4) Apli.ActiveDocument.SaveAs SourceName var_print=espace.prompt(PROMPT_YESNO,"Impression du document","Voulez vous imprimer le document ?") If var_print=1 Then 'si oui ' Apli.visible=True ' apli.dialogs(88).show apli.activedocument.printout Sleep(7) End If Apli.Application.Quit

tres sympa le tri est diificil pr un debutant comme moi ,je voulais tout 'simplement 'avoir des champs sous notes et les renvoyer ds des signets sous word.au debut une declaration d'un doc word ,ok!Set Apli = CreateObject ("Word.application" )Call Apli.Documents.add("C:\Temp\"& o.Source)Set DocWord = Apli.activeDocument puis comment faire les affectations entre les champs loyus et word ???dis moi sil il y a des erreurs pas d'orthographe ,mais de syntaxe ...