Inserer à un endroit précis un tableau Excel Dans Word

Version imprimable

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:

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:

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)

https://i.ibb.co/XjSKHg5/capp.jpg

26/11/2020, 23h14
neflerine

Je viens de trouver la méthode

Code:

wordDoc.Tables(2).Columns(1).Cells(2).Range.PasteAsNestedTable

mais cela ne marche qu'une fois, au 2eme tour de boucle pour mettre le 2eme tableau, excel me dit : le membre de la collection n'existe pas

En essayant d'ajouter une ligne à mon tableau Word avec objDoc.Range.Tables(2).Rows.Add , cela ne marche toujours pas en essayant d'assigner le tableau suivant a wordDoc.Tables(2).Columns(1).Cells(3).Range.PasteAsNestedTable

EDIT : c'est pour la perfection mais pas necessaire non plus, parfois il y a des tableaux plus grand que la page en portrait comme ceci, et l'option

Code:

.Tables(1).AutoFitBehavior wdAutoFitWindow

"ratattine" le tableau et les données dedans pour que ca corresponde à la largeur de la page. J'ai pensé au mode paysage mais je n'arrive pas à activer "paysage pour la page en cours seulement"
https://i.ibb.co/LhFPKJG/Capture23.jpg
27/11/2020, 08h50
Invité

Citation:

Envoyé par neflerine

Bonjour,

Si vous avez toujours un problème et si vous avez la possibilité de mettre en ligne le fichier Word que vous affichez à l'écran, il serait intéressant de voir comment il est constitué (avec les tableaux préexistants).
Pour la mise en paysage, il vous faut insérer des sauts de section.
02/12/2020, 12h16
neflerine

Merci Eric pour ta réponse, je suis parti sur une autre direction pour l'instant.
J'essaye d'apprendre à rajouter des signets et à m'en servir de repère pour insérer les tableaux, je reviens sur le topic dans quelques jours quand j'aurais un peu approfondi le sujet.

Le fichier word n'a rien de spécial, juste un tableau d’entête en première page, ensuite le cœur du document avec des tableaux a copier, et un tableau conclusion en dernière page du rapport word.

En tout cas, récupérer l'index des tableaux existant dans le document n'a pas l'air d'être une mince affaire

Citation:

Envoyé par neflerine

Bonjour,

Citation:

En tout cas, récupérer l'index des tableaux existant dans le document n'a pas l'air d'être une mince affaire

???

Code:

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
 
Option Explicit
 
Sub Test()
 
    With ActiveDocument
         Debug.Print .Tables.Count
    End With
 
End Sub
 
 
Sub TestSelectionnerUnTableau()
 
    SelectionnerUnTableau ActiveDocument, 4
 
End Sub
 
Sub SelectionnerUnTableau(ByVal DocEnCours As Document, ByVal NumeroDeTableau As Integer)
 
    With DocEnCours
 
         If .Tables.Count >= NumeroDeTableau Then
             .Tables(NumeroDeTableau).Range.Select
         End If
 
    End With
 
End Sub
 
 
Sub TestSelectionnerUnTableauAvecSonSignet()
 
    SelectionnerUnTableauParSonSignet ActiveDocument, "Tableau5"
 
End Sub
 
Sub SelectionnerUnTableauParSonSignet(ByVal DocEnCours As Document, ByVal NomDuSignet As String)
 
    With DocEnCours
 
         If .Bookmarks.Exists(NomDuSignet) = False Then Exit Sub
 
         .Bookmarks(NomDuSignet).Select
         Selection.Expand unit:=15 'wdTable
 
 
    End With
 
End Sub

02/12/2020, 19h27
neflerine

Alors la chapeau pour cette rapidité, un grand merci.
Je vais tester ce code qui à la lecture répond à ce que je souhaitais faire .
La ligne

Code:

Selection.Expand unit:=15 'wdTable

va bien m'aider pour sélectionner tout le tableau à partir du signet et faire des autofit
Je te fais un retour très vite merci encore :)