Remplir un doc word avec les données d'un doc d'une base

[clementbp]

Bonjour

J'aimerais savoir si quelqu'un a déja fais un agent qui permet de récupérer les valeurs d'un document d'une base lotus et de les importer directement dans un word (dans des champs de word)

Je pense qu'il faut partir d'une vue dans laquelle tous les champs a récupérés se trouve mais après je ne vois pas comment faire.
J'ai déja extrait une vue dans excel mais dans word, je ne vois pas comment faire

Merci de votre aide

[Michael DELIQUE]

salut

pour commencé => http://forum.dominoarea.org/la-gestion- ... 12998.html

et regarde là si tu trouve pas ton bonheur => http://forum.dominoarea.org/importation ... s-f31.html

[clementbp]

Salut

Merci j'ai regardé tes deux liens mais il semblerait que dans la majorité des cas, il sagisse de remplir un tableau sous word.

Dans mon cas j'ai un fichier word d'une cinquantaine de pages qui va est appelé à être modifié régulièrement, dans lequel j'ai des champs que je voudrais importer de mon document notes.

J'ai regardé un peu et j'ai trouvé ce bout de code.
Pensez vous que c'est ce dont il sagit?

Function MiseAJourFieldDoc(vNotes As Variant,vWord As Variant)
Dim vValue As Variant
Dim Cpt As Long
On Error Goto TraiteError
For Cpt = 0 To Ubound(vNotes)
vValue = ndDoc.GetItemValue(vNotes(Cpt))
WODoc.FormFields.Item(vWord(Cpt)).Result = Cstr(vValue(0))
NextStep :
Next
Exit Function
TraiteError :
Goto NextStep
End Function

[clementbp]

Je reviens vers vous parce que je ne trouve pas de solution.

J'ai réussi à ouvrir mon document word et maintenant je voudrais mettre dans un champ du word qui s'appelle Champ1 la valeur du champ ChampFormulaire1 de ma base lotus.

Comment faire ?

Code actuel :

Code : Tout sélectionner

Sub Initialize
   
   
   Dim WordApp As Variant
   Dim Session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
      
   
   '//Création de la session Word
   Set db = session.CurrentDatabase
   Set WordApp = CreateObject("Word.Application")
   WordApp.Visible = True
   WordApp.DisplayAlerts = False
   
   
   '//Ouvre le fichier dans H:\...
   WordApp.Documents.Open("H:\....docx")
   
   
End Sub

[Michael DELIQUE]

regarde si ce tips ne t'aiderais pas => http://forum.dominoarea.org/vba-et-lotu ... 22722.html

[clementbp]

Je n'arrive pas vraiment à faire ce que je voudrais en macro.

Vous n'auriez pas au moins un exemple sur lequel je pourrais me baser qui utilise des champs dans un document word

[Rubixcube]

Une piste : les signet de Word

- définir des signets dans ton doc word là où tu souhaite déposé des données de ton formulaire lotus (ex : signet "Date")
- ensuite :

Set objWord = CreateObject("Word.Application")

Set objDoc = objWord.Documents.Open("D:\test.doc")

Call objDoc.Bookmarks.Item("Date").Select()
objWord.Selection.Text = aujourdhui

[clementbp]

Merci j'ai enfin trouvé la solution et ça fonctionn parfaitement merci beaucoup

[clementbp]

Par contre j'ai encore un point me pose soucis.

savez vous s'il est possible de dire en lotus script de cocher un champ "case à cocher de word"?