Code pour ajouter une ligne dans un tableau word

Hello,

Petit blocage dans mon projet VBA :

j'ai un tableau excel situe entre les colonnes I et O de la feuille 2 de mon classeur, j'ai creer un bouton de commande qui ouvre un fichier word et copie les lignes de mon tableau excel dans un tableau word. Seulement etant donnee que mon tableau word ne fait que 11 lignes, seul les 11 premeires valeurs sont copies a moins que je ne rajoute manuellement des lignes dans mon tableau word.

Ainsi pouvez m'aider a adapter mon code pour que ma macro compte les lignes pleines dans mon tableau excel et copies ces lignes dans mon tableau word en y ajoutant ou supprimant automatiquement le bon nombres de lignes.

Voci mon code pour le moment :

Private Sub CommandButton1_Click()

Dim wordApp As Word.Application

Dim wordDoc As Word.Document

Dim i As Byte

Dim j As Byte

Set wordApp = CreateObject("word.application")

wordApp.Visible = True 'mettre False pour garder Word masqué

Set wordDoc = wordApp.Documents.Open("S:\WM Project\Market Colour\market color hk.docx") 'ouvre le document Word

For j = 1 To 18

wordDoc.Tables(2).Cell(j, 1).Range.Text = Range("I" & j)

wordDoc.Tables(2).Cell(j, 2).Range.Text = Range("J" & j)

wordDoc.Tables(2).Cell(j, 3).Range.Text = Range("K" & j)

wordDoc.Tables(2).Cell(j, 4).Range.Text = Range("L" & j)

wordDoc.Tables(2).Cell(j, 5).Range.Text = Range("M" & j)

wordDoc.Tables(2).Cell(j, 6).Range.Text = Range("N" & j)

wordDoc.Tables(2).Cell(j, 7).Range.Text = Range("O" & j)

Next j

End sub

Thanks

Hello,

Petit blocage dans mon projet VBA :

J'ai un tableau excel situe en feuille deux d'un classeur dans la Range : I1:O50.

Je souhaite copier coller ce tableau dans un fichier word en selectionnant uniquement les lignes qui sont pleines.

(Par exemple si mon tableau est rempli que jusqu'a la cellule O:13 alors je veux copier coller uniquement le range I1:O13.)

Voici mon code mais je ne sais pas pourquoi la ligne "Selection.copy" bug.

Private Sub CommandButton1_Click()

Dim wordApp As Word.Application

Dim wordDoc As Word.Document

Set wordApp = CreateObject("word.application")

wordApp.Visible = True

Set wordDoc = wordApp.Documents.Open("S:\WM Project\Market Colour\market color hk.docx") 'ouvre le document Word

Worksheets("Sheet2").Range("I1:O50").Select

Range("I1:O50", Range("I1:O50").End(xlDown)).Select

Range(ActiveCell, ActiveCell.End(xlDown)).Select

Selection.Copy

wordDoc.Tables(2).Selection.Paste

wordDoc.Tables(2).AutoFitBehavior wdAutoFitWindow

Application.CutCopyMode = False

End Sub

Pouvez vous m'aider svp ?

Merci bcp