Discussion :

[lou-03]

Bonjour,

Voici mon problème : j'ai un doc contenant des infos et un autre vide.

Doc 1

Nom : Toto

Doc vide

Nom :

Je voudrais récupérer dans le doc vide "Toto". J'ai essayé en mettant un signet sur Toto appelé nom_pers et en mettant un champ dans le doc vide avec un includetext : INCLUDETEXT "doc1.doc" nom_pers.

Mais là il me met à coté de "Nom :" Erreur ! Nom de fichier incorrect.

Pourtant j'ai fais exprès de mettre ces deux docs dans le même répertoire pour éviter toute confusion...

Quelqu'un aurait-il une idée??

Merci d'avance

[lou-03]

Pour finir j'ai trouvé
Je mets ma solution pour ceux qui auraient le même problème.

En fait il faut d'abord ajouter des signets aux deux docs (avec les mêmes noms)
Par exemple dans le doc1 le signet pour le nom s'appellera NOM_pers et dans le doc vide aussi.
Ensuite il faut faire une macro qui parcours tous les signets du doc1 et ceux du doc vide. Lorsque l'on trouve deux signets avec le même nom, on ajoute le contenu à l'autre.

Voilà la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Sub wordsignet()
'
' wordsignet Macro
'
'
'Dim wrd As Object
Dim wrd As Object
Dim i As Integer, aBookmark
Set wrd = CreateObject("Word.Application")
wrd.Documents.Open FileName:="Chemin du doc rempli"
If wrd.ActiveDocument.Bookmarks.Count >= 1 Then
For Each aBookmark In wrd.ActiveDocument.Bookmarks
    For Each bBookmark In ActiveDocument.Bookmarks
        If bBookmark.Name = aBookmark.Name Then
            bBookmark.Range.Text = aBookmark.Range
        End If
    Next bBookmark
Next aBookmark
End If
wrd.Quit
Set wrd = Nothing
 
 
End Sub

Voilà!

[Heureux-oli]

Salut,

Si tu souhaites passer par du VBA, il y plus simple.

Une boucle sur les bookmarks d'un document pour les copier dans le second.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim oDoc01 As Document
Dim oDoc02 As Document
Dim oBk As Bookmark
 
Set oDoc01 = Application.Documents.Open("Mon Doc 1")
Set oDoc02 = Application.Documents.Open("Mon Doc 2")
 
For Each oBk in oDoc01.Bookmarks
    oDoc2.Bookmarks(oBk.Name).Range.text = oBk.Range.text
Next obk

Sans VBA, on peut le faire avec un simple copier coller avec liaison.

[lou-03]

C'est vrai je n'y avais pas pensé !

Je ne connaissais pas le copier-coller avec liaison. C'est un copier-coller qui met chaque info au bon endroit je suppose ?

[Heureux-oli]

Salut,

Les infos sont mise à jour dans le document cible avec les info du document source.
On peut le faire d'un document à l'autre où dans un même document.
la mise à jour se fait par Ctrl + A suivi de F9.

[lou-03]

Ah ok, merci pour les renseignements

Je proposerais les deux solutions aux utilisateurs