Copier tableau excels vers document word existant

**kookyzzz** · 22/11/2020, 10h58

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

Invité · 22/11/2020, 13h42

Envoyé par kookyzzz

Bonjour,

Il faut lui dire d'aller à la fin du document avec EnKey.

Nb : Avant de travailler en late binding comme vous le faites, en phase de développement il vaut mieux référencer Word pour avoir accès aux propriétés et méthodes en tapant un . juste derrière une variable objet ou une instruction.

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
Sub Export_word2()
 
Dim MonFichier As String
Dim WordApp As Object, WordDoc As Object
'Dim WordApp As Word.Application, WordDoc As Word.Document
Dim I As Integer, NbTables As Integer
 
 
    MonFichier = ActiveWorkbook.Path & "\" & "PROGRAMME DE TRAVAIL\PROGRAMME DE TRAVAIL.docx" ' A adapter
 
    On Error Resume Next
 
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
 
    Set WordDoc = WordApp.Documents.Open(MonFichier)
 
    NbTables = WordDoc.Tables.Count
 
    Sheets("LISTE").Range("A1:P45").Copy
    With WordApp.Selection
         .EndKey unit:=6 'wdStory
         .Paste
         .TypeParagraph ' saut d'une ligne a la fin du tableau
    End With
 
    Sheets("GENERAL").Range("B1:Z160").Copy
    With WordApp.Selection
         .EndKey unit:=6 'wdStory
         .Paste
         .TypeParagraph ' saut d'une ligne a la fin du tableau
    End With
 
    Sheets("PREPARATION").Range("A2:M46").Copy
    With WordApp.Selection
         .EndKey unit:=6 'wdStory
         .Paste
         .TypeParagraph ' saut d'une ligne a la fin du tableau
    End With
 
    Application.CutCopyMode = False
 
    With WordDoc
        For I = NbTables + 1 To NbTables + 3
            .Tables(I).PreferredWidth = 0
        Next I
        .Save
 
       ' .Close savechanges:=True
    End With
 
   ' WordApp.Quit
 
    MsgBox "Copie Effectuée!"
 
    Set WordDoc = Nothing
    Set WordApp = Nothing
 
 
End Sub

**Philippe Tulliez** · 22/11/2020, 15h00

Bonjour,
Pour compléter la réponse d'Eric que je salue au passage, il est possible de développer en toute transparence en Early Binding et mettre en production en Late Binding grâce à la compilation conditionnelle
Lire mon billet à ce sujet La compilation conditionnelle ou comment développer en EarlyBinding et distribuer en late binding

**kookyzzz** · 22/11/2020, 16h15

Merci, Eric KERGRESSE pour ta solution tu m'a sauvé d'une bonne crise de nerf

et merci Philippe Tulliez pour ton tuto

.

J'aurai une autre question, indirectement en rapport avec ma question précédente. Le but final du transfert des tableaux vers Word, était de convertir le document Word en .html, je le fais manuellement en faisant un 'enregistrer sous' -> PROGRAMME DE TRAVAIL.html. J'ai essayé, malheureusement sans succès, en faisant un enregistrement de macro, de convertir via VBA directement le document. Existe-il une méthode simple pour convertir un .docx en .html?

voici le code que j'ai testé :

Code :

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

1
2
3
4
5
WordDoc.SaveAs2 Filename:="PROGRAMME DE TRAVAIL.htm", FileFormat:= _
        wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, _
        WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
         SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False, CompatibilityMode:=0

Invité · 22/11/2020, 16h30

Envoyé par kookyzzz

A tester :

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
Sub Export_word3()
 
Dim MonFichier As String, MonFichierHtml As String
Dim WordApp As Object, WordDoc As Object
'Dim WordApp As Word.Application, WordDoc As Word.Document
Dim I As Integer, NbTables As Integer
 
 
    MonFichier = ActiveWorkbook.Path & "\" & "PROGRAMME DE TRAVAIL\PROGRAMME DE TRAVAIL.docx" ' A adapter
    MonFichierHtml = ActiveWorkbook.Path & "\HTML\PROGRAMME DE TRAVAIL.htm"
    On Error Resume Next
 
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
 
    Set WordDoc = WordApp.Documents.Open(MonFichier)
 
    NbTables = WordDoc.Tables.Count
 
    Sheets("LISTE").Range("A1:P45").Copy
    With WordApp.Selection
         .EndKey unit:=6 'wdStory
         .Paste
         .TypeParagraph ' saut d'une ligne a la fin du tableau
    End With
 
    Sheets("GENERAL").Range("B1:Z160").Copy
    With WordApp.Selection
         .EndKey unit:=6 'wdStory
         .Paste
         .TypeParagraph ' saut d'une ligne a la fin du tableau
    End With
 
    Sheets("PREPARATION").Range("A2:M46").Copy
    With WordApp.Selection
         .EndKey unit:=6 'wdStory
         .Paste
         .TypeParagraph ' saut d'une ligne a la fin du tableau
    End With
 
    Application.CutCopyMode = False
 
    With WordDoc
        For I = NbTables + 1 To NbTables + 3
            .Tables(I).PreferredWidth = 0
        Next I
        .Save
 
       ' .Close savechanges:=True
 
 
 
            .SaveAs2 Filename:=MonFichierHtml, FileFormat:= _
                wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, _
                WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
                 SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
                False, CompatibilityMode:=0
           WordApp.ActiveWindow.View.Type = wdWebView
 
End With
 
   ' WordApp.Quit
 
    MsgBox "Copie Effectuée!"
 
    Set WordDoc = Nothing
    Set WordApp = Nothing
 
 
End Sub

**kookyzzz** · 22/11/2020, 16h53

Encore merci pour ton aide ERIC, j'ai testé mais le fichier .htm n'est pas lisible sur un navigateur, il n'y a que des ligne de caractères spéciaux

Copier tableau excels vers document word existant [XL-2019]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager