Discussion :

[hassan0379]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
private sub imprimer_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(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
end sub

et merci pour votre aide