Discussion :

[kat40]

Bonjour,

J'ai trouvé un solution, soit d'exporter ma table dans un fichier excel, voici le code:

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub cmdImprimer_Click()
 
Dim cnx As New ADODB.Connection
Dim rs As New ADODB.Recordset
 
 
cnx.ConnectionString = "Provider=SQLOLEDB;Data Source=TEST;Initial Catalog=CaisseDCN;User ID=tssss;Password=bonjour;"
cnx.Open
 
rs.Open "SELECT * FROM Depannage", cnx, adOpenStatic, adLockOptimistic ' tablelst-this is yr table name
tmp_val = ""
If Not rs.EOF Then
rs.MoveLast
rcount = rs.RecordCount
rs.MoveFirst
Close
Open App.Path & "\" & tablelst & "Impression.xls" For Output As #1
For i = 0 To rs.Fields.Count - 1
If i < rs.Fields.Count - 1 Then
tmp_val = tmp_val & rs.Fields(i).Name & vbTab
ElseIf i = rs.Fields.Count - 1 Then
tmp_val = tmp_val & rs.Fields(i).Name
End If
Next i
tmp_val = tmp_val & vbCrLf
While Not rs.EOF
For i = 0 To rs.Fields.Count - 1
tmp_val = tmp_val & rs.Fields(rs.Fields(i).Name) & vbTab
Next i
tmp_val = Mid(tmp_val, 1, Len(tmp_val) - 1)
tmp_val = tmp_val & vbCrLf
rs.MoveNext
DoEvents
Label1.Caption = rs.AbsolutePosition & "/" & rcount
Wend
Print #1, tmp_val
End If
MsgBox "Processus terminé"
End Sub

Le fichier Impression.xls est sauvegardé dans le répertoire par défaut.

Encore un gros merci à tous ceux qui m'ont aider à réfléchir et à trouver une solution à mon problème.

Cette solution est plus facile que d'imprimer un datagrid avec VB6.

[jeanjean0403]

Oui, j'ai oublier de préciser que dans la solution que j'ai décrite plus haut, la programme ouvre un fichier Excel, complete une entete plus les données mais n'enregistre rien. La sauvegarde est à l'initiative de l'utilisateur.