Remplissage automatique d'un tableau word à partir d'un tableau Excel VBA

Bonjour à tous,

je suis nouveau dans la plateforme, je me prénomme Richard. Je viens vers vous, car je dans le cadre de mon travail, nous avons des contrats fournisseurs à remplir au format word (essentiellement des tableaux), à partir des formulaires que nous remplissons au format Excel (sous forme de tableau). J'ai tout d'abord écrit un simple code permettant de récupérer des données dans un tableur excel, d'ouvrir le document Word, de sélectionner le tableau, et ensuite de le remplir; le seul problème est que, lorsque je lance la macro, j'obtiens ce message: "propriété ou méthode non gérée par cet objet". J'indique l'endroit où se trouve l'erreur dans le code.

Je vous remercie par avance.

Cordialement,

Richard

Public Sub testauto1()

Dim WordApp As Object
Dim WordDoc As Object
Dim source As Worksheet
Dim Chiffre_affaires As Range
Dim Period As Range
Dim i As Long
Dim objTable As Object

Monrep = ThisWorkbook.Path

Set source = Workbooks("Testauto.xlsm").Worksheets("Ventes")

Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True

Set WordDoc = WordApp.Documents.Open(Monrep & "\Testokgc.docx", ReadOnly:=True)

With WordDoc
For i = 39 To 43
For j = 2 To 6
WordDoc.Tables(2).Columns(1).Rows(j) = Sheets("Ventes").Range("B" & i) LE MESSAGE D'ERREUR APPARAIT A CE NIVEAU
WordDoc.Tables(2).Columns(2).Rows(j) = Sheets("Ventes").Range("C" & i)
WordDoc.Tables(2).Columns(3).Rows(j) = Sheets("Ventes").Range("D" & i)
Next j
Next i

End With

End Sub

Bonjour,

Essayer :

WordDoc.Tables(2).Columns(1).Cells(j).Range = Sheets("Ventes").Range("B" & i) 

Par ailleurs, merci d'insérer votre code via la balise </>