Autres Copie de tableaux excel vers word

[Shikari]

Bonjour à tous,

je suis sur Excel 97-2003 et je souhaite copier mes tableaux Excel vers un document Word, qui est déjà pré-rempli de textes et d'images.

J'ai un bouton sur Excel qui me met à jour mes données, je m'en sers également pour ouvrir le Word et copier les tableaux.
--> ça c'est bon, voir le code ci dessous

Le problème, c'est que je peux faire plusieurs mises à jour, mais ça me rajoute un tableau et ça me supprime pas le précédent.

Quelqu'un a une idée?

Merci d'avance

Sub ouvrirdoc()

Dim Nom_Fichier As Variant
Dim Img As Object



On Error Resume Next
Nom_Fichier = ActiveWorkbook.Path & "\MEMOIRE_PR.doc"
    
Set WordApp = CreateObject("word.Application")
With WordApp
        .Documents.Open (Nom_Fichier)
        .Visible = True
    
End With

' 1er tableau
Sheets("MEMOIRE").Range("B3:C10").Copy

With WordApp
        .Selection.GoTo What:=wdGoToBookmark, Name:="tableau2"
        .Selection.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, Placement _
        :=wdInLine, DisplayAsIcon:=False
End With
    
 
End Sub

 

[Staple1600]

Bonjour le fil, Shikari

Shikari
Test OK sur Excel 2013

Sub test_OK()
Dim wrdApp As Object, wrdDoc1 As Object, strPath$, rng
Dim xlRng As Excel.Range, cpt&
strPath = ThisWorkbook.Path & "\"
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc1 = wrdApp.Documents.Open(strPath & "test.doc")
Set xlRng = ActiveSheet.ListObjects(1).Range 'tableau structuré dans Excel
xlRng.Copy
Set rng = wrdDoc1.Range ' définition de la "plage" Word
  With rng
      .Collapse 0
      .InsertBreak 2 'insertion d'un saut de page
      .PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=False
      'recopie du tabeau Excel dans Word
  End With
wrdDoc1.Close True
wrdApp.Quit
End Sub