Exporter donnée vers tableau dessiner dans word

cs_jolicoeur79 63 Messages postés samedi 2 octobre 2004Date d'inscription 1 avril 2018 Dernière intervention - 1 avril 2018 à 03:03
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




--
Afficher la suite 

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.