Exporter donnée vers tableau dessiner dans word

cs_jolicoeur79
Messages postés
63
Date d'inscription
samedi 2 octobre 2004
Statut
Membre
Dernière intervention
1 avril 2018
- Modifié le 12 avril 2018 à 00:01
Bonjour, salut mes amis
je voulais afficher un résultat de requette exécuter dans visual basic 6 dans un tableau dessiner manuellement ( voir photo 1) et je veux que mon tableau conserve la même mise en forme jusqu'au dernier recordset (photo 2).
voici le code que j'ai essayer d'utiliser
 
Private Sub imprimerwrd_Click()
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(1) <> "" Then
Do
wd.Selection.Tables(1).Cell(1, 2).Range.Text = rs.Fields(1)
wd.Selection.Tables(1).Cell(2, 2).Range.Text = rs.Fields(2)
wd.Selection.Tables(1).Cell(3, 2).Range.Text = rs.Fields(3)
wd.Selection.Tables(1).Cell(3, 4).Range.Text = rs.Fields(4)

rs.MoveNext
Loop Until rs.EOF = True

Else
wd.Selection.GoTo what:=wdGoToBookmark, name:="Emprunt"
wd.Selection.TypeText Text:="Aucune Empruntà signaler !!"
End If

comment améliorer ce code pour afficher les tous les resultat et dupliquer le mémé tableau dessiner ?

et merci beaucoup




--