Discussion :

[totofff78]

Bonjour,

Cela fait 2 jours que je cherche, mais là je cale.

Voila mon soucis qui me fait perdre mes cheveux tellement je suis chaud énervé.

Je suis à deux doigts de trouver mais ya rien à faire

J'ai donc un document word (doc1) qui est alimenté en boucle via un fichier Excel... Là ça marche.
Une fois alimenté je sélectionne le document actif(doc1) , je le copie... là ça marche toujours

C'est là où je galère.
Je voudrais ouvrir une autre instance word (doc2), aller à la dernière ligne de doc2 , mettre la copie de doc1
retour dans doc1 , alimentation de doc 1 via excel, copier
ajouter à la dernière ligne de doc 2 , coller
...etc
Puis fermeture de doc2

Et, je ne veux pas voir l'ouverture et la fermeture de doc2, si possible


Voilà ce que j'ai pondu et c'est faux
La macro est exécuter de doc1

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub Macro1()

Dim wdApp2 As Word.Application
Dim wdDoc2 As Word.Document

Selection/copie résultat Doc1 après alimentation via Excel
With Selection
    .WholeStory
    .Copy
End With

‘Ouverture doc2
Set wdApp2 = New Word.Application
Set wdDoc2 = wdApp2.Documents.Open("C:\Doc2.docx")

' Erreur : OBJET requis ???
Documents(Doc2.docx).Activate

'Si je passe, 

‘Aller à la dernière ligne

La y me dit: Propriété ou méthodenon gérée par cet objet 
wdDoc2.EndKey Unit:=wdStory

‘Coller le résultat de doc1 et sauter une ligne
Selection.Paste
Selection.TypeParagraph

‘Fermeture de doc2
With wdDoc2
    .Save
    .Close
End With
wdApp2.Quit
Set wdDoc2 = Nothing
Set wdApp2 = Nothing

End Sub

C'est le passage du doc1 au doc2 qui me gène. Comment fait on?

Merci pour la multitude de réponses que vous pourriez fournir

[totofff78]

J'ai trouvé !

Macro dans doc 1 :

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
26
27
Sub Macro1()

Dim wdDoc2 As Word.Document

'Selection/copie résultat Doc1 après alimentation via Excel
With Selection
    .WholeStory
    .Copy
End With

' ouverture instance doc  fichier résultat
Set wdDoc2 = Documents.Open("C:\Doc2.docx")
wdDoc2.Activate

'Collage et saut de ligne
Selection.Paste
Selection.TypeParagraph

'Fermeture de doc2
With wdDoc2
    .Save
    .Close
End With

Set wdDoc2 = Nothing

End Sub

Bon week-end!