[hassan0379]

السلام عليكم واتمنى ان يلقى سؤالي تجاوبا من اعضاء المنتدى:
مشكلتي اني اريد تصدير بيانات الى جدول مرسوم على الوورد (صورة 1) من خلال فيجوال بسيك وفي حالة تعدد البيانات يجب تكرار نفس الجدول المرسوم مسبقا (صورة 2)
انطر الصورة المرفقة
و قد استعملت هذا الكود دون جدوى وشكرا على مساعدتكم

كود :

Dim wd As Word.Application
Set wd = CreateObject("word.application")
wd.Documents.Open App.Path & "\impressionword.docx"
wd.Visible = True
Dim rs As adodb.Recordset
Set rs = New adodb.Recordset
Set rs = cn.Execute(requete)
If rs.Fields(17) <> "" Then
Do
wd.Selection.Tables(1).Cell(1, 2).Range.Text = rs.Fields(17)
wd.Selection.Tables(1).Cell(2, 2).Range.Text = rs.Fields(18)
wd.Selection.Tables(1).Cell(3, 2).Range.Text = rs.Fields(30)
wd.Selection.Tables(1).Cell(3, 4).Range.Text = rs.Fields(24)
rs.MoveNext
Loop Until rs.EOF = True
Else
wd.Selection.TypeText Text:="Aucune emprunt à signaler !!"
wd.Selection.MoveRight Unit:=wdCell
end if