exporter données d'un datagrid vers excel

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour a tous,

J'ai du mal à exporter mes données datagrid vers excel, voici un code que j'ai trouvé sur un autre site et que normalement doit marcher mais il marche pas chez moi: Ma boucle ne fonctionne pas, c'est à dire, que ma ligne d'entête (k) s'inscrit très bien, ma première ligne de données s'inscrit au compet et après c'est toujours cette première ligne de données qui s'inscrit et à l'infinit sans arrêt.

Donc ma boucle inscrit seulement la première ligne sous à l'infinet, voici mon code:
Code:

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 Dim cnx As New ADODB.Connection Dim rst As New ADODB.Recordset cnx.ConnectionString = "Provider=SQLOLEDB;Data Source=TEST;Initial Catalog=CaisseDCN;User ID=ssssss;Password=test;" cnx.Open Set xlo = CreateObject("Excel.Application") rst.Open "SELECT * FROM Depannage", cnx DoEvents xlo.Visible = True xlo.workbooks.Add i = rst.RecordCount j = DataGrid1.Columns.Count For k = 0 To j - 1 xlo.workbooks(1).sheets(1).Cells(l + 1, k + 1) = DataGrid1.Columns(k).Caption Next k l = 0 rst.MoveFirst Do While Not rst.EOF For k = 0 To j - 1 DataGrid1.Col = k xlo.workbooks(1).sheets(1).Cells(l + 2, k + 1) = DataGrid1.Text Next k rst.MoveNext l = l + 1 Loop
Merci de votre aide, je suis débutante.....

13/03/2008, 20h36
SfJ5Rpw8

comme tu utilise la propriété Col pour changer de colonne dans ton dataGrid .. utilise la propriété Row .. pour la ligne...
13/03/2008, 20h46
kat40

Merci de bien vouloir m'aider, mais comme je suis débutante peux-tu me donner un exemple, je suis un peu perdu!

essai ..:
Code:

1 2 3 4 5 6 7 8 (...) For k = 0 To j - 1 DataGrid1.Col = k DataGrid1.Row = l xlo.workbooks(1).sheets(1).Cells(l + 2, k + 1) = DataGrid1.Text Next k (...)
Ta variable l à l'air d'être prévue pour cela ... tu as du oublier un morceau dans ton copier/coller ... ;)

13/03/2008, 20h58
kat40

J'ai essayé, ça commence bien mais après 20 ligne ça bloque:

DataGrid1.Row = l

Le message d'erreur est invalid Row number
13/03/2008, 21h08
SfJ5Rpw8

il y as combien de lignes dans ton datagrid..?
13/03/2008, 21h23
kat40

Mon datagrid a 21 colonnes et à l'écran 7 mais j'ai mis un charriot pour faire dérouler. Je m'appercois que les première lignes s'exportent bien mais a partir de la huitième, les données sont melées ....Donc les seules lignes qui rentre bien c'est celles visibles à l'écran dans mon dategrid.

Avez-vous une idées pour bien importer toutes les données mêmes c'elles non visibles...
17/03/2008, 19h49
kat40

Après plusieurs tests, je sais maintenant que mon problème vient du fait que je n'ai pas le nombre de ligne dans mon datagrid.

avec:

j = datagrid1.colums.count

je connais le nombre de colonne de mon datagrid mais je dois trouver le nombre de lignes visibles et invisibles pour envoyer toutes mes données.

je sais comment aller chercher le nombre de lignes visible:

i = datagrid1.visibleRows

mais je ne sais pas comment faire pour compter les invisibles aussi?
17/03/2008, 20h34
ProgElecT

Citation:

mais je ne sais pas comment faire pour compter les invisibles aussi?

peut être

Code:

NbrInvisible = DataGrid1.Rows - DataGrid1.visibleRows
17/03/2008, 20h53
kat40

Merci de vouloir m'aider:

Code:

NbrInvisible = DataGrid1.Rows - DataGrid1.visibleRows

dataGrid1.Rows n'existe pas dans ma version, j'ai seulement .Row (sans le s) et ça compte pas mes lignes = 0 .....Je suis en VB6
17/03/2008, 21h39
ProgElecT

:oops: , je ne parviens pas à trouver le composant DataGrid, d'ou ma proposition non verifiée.
rst.RecordCount lui, ne correspondrait-il pas au nombre total de Ligne du dataGrid ?
Apres je te laisses tranquille avec mes propositions :?

J'ai trouvé

Citation:

Envoyé par MSDN Library

Utilisez la propriété Count de la collection Columns du contrôle DataGrid et la propriété RecordCount de l'objet Recordset pour déterminer le nombre de colonnes et de lignes du contrôle. Un contrôle DataGrid peut comporter autant de colonnes que le permettent les ressources système, le maximum étant de 32 767 colonnes.

Merci de ta patience....

Dans mon code j'ai :

Code:

i = rst.RecordCount

mais ça me donne 0 et non le nombre de lignes.

A moins que ma connection se fasse mal:
Code:

1 2 3 4 5 6 7 8 Dim cnx As New ADODB.Connection Dim rst As New ADODB.Recordset cnx.ConnectionString = "Provider=SQLOLEDB;Data Source=TEST;Initial Catalog=CaisseDCN;User ID=ssssss;Password=test;" cnx.Open Set xlo = CreateObject("Excel.Application") rst.Open "SELECT * FROM Depannage", cnx DoEvents

Code:

1
2
3
4
5
rst.Open "SELECT * FROM Depannage", cnx
DoEvents
rst.MoveLast 'pour remplir aller au dernier enregistrement
i = rst.RecordCount
rst.MoveFirst 'revenir au 1° enregistrement

18/03/2008, 12h49
kat40

Bonjour,

J'ai un message d'erreur à la ligne

Code:

rst.moveLast

"L'ensemble des lignes ne prend pas les récupérations arrière"

Merci de ton aide

essais

Code:

1
2
3
4
rst.Open "SELECT * FROM Depannage", cnx
DoEvents
rst.MoveFirst 'revenir au 1° enregistrement
i = rst.RecordCount

Ton ouverture du recordset

Code:

rst.Open "SELECT * FROM Depannage", cnx, adOpenStatic, adLockOptimistic

ce qui devrai ne pas créer d'erreur pour
Code:

1 2 3 4 rst.Open "SELECT * FROM Depannage", cnx, adOpenStatic, adLockOptimisticDoEvents rst.MoveLast 'pour remplir aller au dernier enregistrement i = rst.RecordCount rst.MoveFirst 'revenir au 1° enregistrement

18/03/2008, 13h35
kat40

Bon matin (ici il est 08h30),

Je viens de vérifier avec rst.moveFirst et i= toujours -1 ça compte toujours pas le nombre de ligne dans ma table.

Merci

Un gros merci ça fonctionne, le recordcount fonctionne bien, j'ai mon nombre de ligne.

Mais j'ai toujours le même problème, ça exporte seulement les lignes visibles de mon datagrid....Je sais que je suis pas loin mais il m'en manque un bout:

Code:

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
40
41
42
43
44
45
46
47
48
Private Sub cmdImprimer_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim xlo As Object
Dim cnx As New ADODB.Connection
Dim rst As New ADODB.Recordset
 
cnx.ConnectionString = "Provider=SQLOLEDB;Data Source=TEST;Initial Catalog=CaisseDCN;User ID=tessst;Password=bonjour;"
cnx.Open
 
Set xlo = CreateObject("Excel.Application")
rst.Open "SELECT * FROM Depannage", cnx, adOpenStatic, adLockOptimistic
 
rst.MoveLast 'pour remplir aller au dernier enregistrement
i = rst.RecordCount
rst.MoveFirst 'revenir au 1° enregistrement
 
 
DoEvents
 
xlo.Visible = True
xlo.workbooks.Add
 
j = DataGrid1.Columns.Count
For k = 0 To j - 1
       xlo.workbooks(1).sheets(1).Cells(l + 1, k + 1) = DataGrid1.Columns(k).Caption
Next k
l = 0
rst.MoveFirst
Do While Not rst.EOF
 
 
 
 
For k = 0 To k - 1
       DataGrid1.Col = k
       xlo.workbooks(1).sheets(1).Cells(l + 2, k + 1) = DataGrid1.Text
 
Next k
rst.MoveNext
l = l + 1
Loop
 
 
 
End Sub

18/03/2008, 14h57
kat40

Re-bonjour,

Le problème est que les données s'exportent bien pour ce qui est visible, mais pas pour les données invisibles.

Serait-il mieux d'exporter les données de ma table au lieu du datagrid et si oui je chercher comment modifier mon code en conséquence.

Merci de votre aide et surtout de votre patience.

bonjour,
pour exporter ton recordset sous Excel il te suffit d'adapter le code suivant

Code:

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
40
Set rs_restite = New ADODB.Recordset
 
        rs_restite.Open 'la requete', db
 
'Ouverture de l'application
        Set appexcel = CreateObject("Excel.Application")
        Set mysheet = appexcel.workbooks.Add
 
        appexcel.Visible = True
        appexcel.UserControl = True
 
        'Gestion du fichier et ouverture statique
        ' appexcel.workbooks.Open repertoire
        'Visualisation en fond d'ecran la page excel
        appexcel.Visible = True
        'On remplit l'entete de la page excel
        appexcel.Worksheets(1).Cells(1, 1).Value = "NOM"
        appexcel.Worksheets(1).Cells(1, 1).Font.Bold = True
        appexcel.Worksheets(1).Cells(1, 2).Value = "PRENOM"
        appexcel.Worksheets(1).Cells(1, 2).Font.Bold = True
        appexcel.Worksheets(1).Cells(1, 4).Value = "PROJET"
        appexcel.Worksheets(1).Cells(1, 4).Font.Bold = True
        appexcel.Worksheets(1).Cells(1, 5).Value = "TEMPS"
        appexcel.Worksheets(1).Cells(1, 5).Font.Bold = True
 
        While Not rs_restite.EOF
            ' nom
            appexcel.Worksheets(1).Cells(i, 1).Value = rs_restite(0)
            ' prenom
            appexcel.Worksheets(1).Cells(i, 2).Value = rs_restite(1)
            ' projet
            appexcel.Worksheets(1).Cells(i, 4).Value = rs_restite(2)
            ' temps
            appexcel.Worksheets(1).Cells(i, 5).Value = rs_restite(3)
 
            i = i + 1
            rs_restite.MoveNext
        Wend
 
        rs_restite.Close

Bonne chance, j'espère que ca répond à la question ;)

Voir 40 message(s) de cette discussion en une page