Discussion :

[kat40]

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 :

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
 
 
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.....

[SfJ5Rpw8]

comme tu utilise la propriété Col pour changer de colonne dans ton dataGrid .. utilise la propriété Row .. pour la ligne...

[kat40]

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

[SfJ5Rpw8]

essai ..:

Code :

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

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 ...

[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

[SfJ5Rpw8]

il y as combien de lignes dans ton datagrid..?

[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...

[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?

[ProgElecT]

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

peut être

Code :

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

 NbrInvisible = DataGrid1.Rows - DataGrid1.visibleRows

[kat40]

Merci de vouloir m'aider:

Code :

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

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

[ProgElecT]

, 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é

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.

[kat40]

Merci de ta patience....

Dans mon code j'ai :

Code :

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

i = rst.RecordCount

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

A moins que ma connection se fasse mal:

Code :

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

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

[ProgElecT]

Code :

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

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

[kat40]

Bonjour,

J'ai un message d'erreur à la ligne

Code :

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

rst.moveLast

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


Merci de ton aide

[ProgElecT]

essais

Code :

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

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

[ProgElecT]

Ton ouverture du recordset

Code :

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

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

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

Code :

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

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

[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

[kat40]

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 :

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
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

[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.

[jeanjean0403]

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

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
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