Tableaux Excel colle dans Word par VBa
Bonjour, J'ai un probleme avec mon code a la fin les tableaux se collent mais un deuxieme apparait (le meme) et dans un format bizrre, je ne comprends pas et c'est un OLE LINK.
Pour vous expliquer, je veux copier coller toujours le meme tableau dans word sur une page mais avec des valeurs differentes. jai donc cree des bookmarks (tab1,tab2,...)a chaque debut de page apres un titre.
Mon paste special est une record macro que j'ai fait de Word et que j'ai mise dans mon code pour aovir un joli format de mon tableau dans word. POuvez vous m'aider svp ?
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
| Sub word()
Dim WordApp As word.Application
Dim WordDoc As word.Document
Dim Ws As Worksheet
Dim i As Integer
Set WordApp = CreateObject("word.application")
WordApp.Visible = True 'mettre False pour garder Word masqué
Set WordDoc = WordApp.Documents.Open("G:\05_Transversal & Support\01_Conduit business\03_Matchpoint Conduit\01_Daily Matchpoint US Mgmt\Daily Issuance Process\3_MP Purchase Requests\2014\MP_Master Notes_Purchase Request_test.docx") 'ouvre le document Word
i = 1
For Each Ws In Worksheets
Ws.Activate
If Left(Ws.Name, 11) Like "Final Recap" Then
If Range("C6").Value <> "" Then
Range("B2:C32").Copy
With WordApp
'recherche du signet
.Selection.Goto What:=wdGoToBookmark, Name:="tab" & i
WordDoc.ActiveWindow.Selection.PasteExcelTable True, False, False
i = i + 1
' remove hyperlinks
End With
End If
End If
Next
End Sub |
