Discussion :

[FtF Nemesis]

Bonjour,
Désolé si je pose beaucoup de questions mais j'ai beaucoup de mal avec vba Word, je viens d'Access et je pouvais y nommer tout les objets directement sur Access. Je souhaite ouvrir un document1.docx, un document2.docx et copier un tableau du premier vers le deuxième. Mais la méthode Copy ne fonctionne pas avec les tableaux j'ai l'impression:

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
Private Sub Commande17_Click() 'commande Access
 
Dim wordObj As Word.Application
Dim Trame, Docu As Word.Document
Dim MaTable As Table
Dim dossier As String
Dim NumTab As Integer
 
NumTab = Forms![frmWORD].Texte18.Value 'sur Access
dossier = "\\.....\...\.......\BdD Interface Laboratoire 2\trame\"
 
Set wordObj = CreateObject("Word.Application") 
Set Trame = wordObj.Documents.Open(dossier & "Tableaux.docx")
Set Docu = wordObj.Documents.Open(dossier & "RAPPORT 1.docx")
 
Trame.Tables(NumTab).Select
Selection.Copy
Docu.PasteAndFormat (wdPasteDefault)
 
wordObj.Quit savechanges:=True
Set Trame = Nothing
Set Docu = Nothing
Set wordObj = Nothing
 
End Sub

J'ai trouvé cette méthode sur un autre forum mais ça ne marche pas.
Merci de m'aiguiller.

hadrien

[Heureux-oli]

Salut,

La table n'est pas copiable, mais bien son contenu

Code :

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

1
2
3
4
5
ActiveDocument.Tables(1).Range.Select
Selection.Copy
 
Selection.EndKey unit:=wdStory
Selection.Paste