Bonjour à tous,
Le code suivant pour copier une plage à la suite d'un document word fonctionne.

Cependant j'aimerais ne pas copier à la suite, mais plutot dans le tableau "Contexte" de mon fichier word (voir image). Si vous avez des idées, je serais vraiment preneur. Bonne soirée

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
 
 
Dim objWord As Object
Dim objDoc As Object
Dim NDF As String
Dim PlageACopier
 
NDF = ActiveWorkbook.Path & "\" & "Fiche_" & Format(Now(), "yyyymmdd_hhmm")
 
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
'Set objDoc = objWord.Documents.Add
Set objDoc = objWord.Documents.Open(ThisWorkbook.Path & "\" & "Intro.docx")
 
 
'.... La Macro.....
 
'Et Ensuite la Copie à la suite de intro.docx
 
Set PlageACopier = Range(r,c), .Cells(r2,c2))
 
                        PlageACopier.Copy
 
                  With objDoc.Paragraphs.Last.Range
                                .PasteExcelTable False, False, False
                                .Tables(1).AutoFitBehavior wdAutoFitWindow
                                .Tables(1).Rows.Alignment = 0.2
                                .InsertAfter vbCr
                            End With
                            Application.CutCopyMode = False

EDIT :
Quand je fais
Code : Sélectionner tout - Visualiser dans une fenêtre à part
objDoc.Tables(2).Columns(3).Cells(2).Range.Text = 1
ca fonctionne mais evidemment à la palce de 1 j'aimerais copier mes tableaux les uns a la suite des autres dans le cadre word (qui correspond à Tables(2).Columns(3).Cells(2))

(voir image)