Bonjour, je cherche à copier 3 tableaux excel vers un document word existant, je cherche à editer le document word en ajoutant mes tableaux en fin de page mais j'ai l'impression que j'ecrase a chaque fois le fichier word... merci d'avance pour votre aide.

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 Export_word()
Dim monFichier As String
Dim WordApp As Object, WordDoc As Object
 
    monFichier = ActiveWorkbook.path & "\" & "PROGRAMME DE TRAVAIL"
 
    On Error Resume Next
 
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
 
    Set WordDoc = WordApp.Documents.Open("PROGRAMME DE TRAVAIL.docx")
 
    With WordApp.Selection
        Sheets("LISTE").Range("A1:P45").Copy
        .Paste
        .TypeParagraph ' saut d'une ligne a la fin du tableau
 
 
        Sheets("GENERAL").Range("B1:Z160").Copy
        .Paste
        .TypeParagraph ' saut d'une ligne a la fin du tableau
 
        Sheets("PREPARATION").Range("A2:M46").Copy
        .Paste
        .TypeParagraph ' saut d'une ligne a la fin du tableau
 
    End With
 
    Application.CutCopyMode = False
    WordDoc.Save monFichier
 
    MsgBox "Copie Effectuée!"
 
    Set WordDoc = Nothing
    Set WordApp = Nothing
 
 
End Sub