VBA EXcelTable Into Word Problem when Pasting

[houstono92]

Bonjour,
Quand je colle le tableau dans word , un deuxieme apparait apres, et pas du tout dans le format que je veux et je ne comprends pas pourquoi, voici le code : Merci bcp


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
End With



End If

End If

Next
end sub

 

[houstono92]

Re : VBA EXcelTable Into Word Problem when Pasting

pour info: jai mis en page un doc word avec des bookmark 9tab1,tab2,..)a chaque debut de page (apres un titre)

 

[houstono92]

Re : VBA EXcelTable Into Word Problem when Pasting

aussi pour info ,le deuxieme tableau est un OLe LINK jai l'imrpession