Discussion :

[solid_sneak06]

Bonjour,
j'ai du mal à exporter mes données datagrid vers excel, voici un code que j'ai trouvé sur un site et que normalement doit marcher mais il marche pas chez moi

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
 
Dim i, j, k, l As Integer
On Error GoTo errxcel
Dim xlo As Object
Set xlo = CreateObject("Excel.Application")
DoEvents
xlo.Visible = True
xlo.workbooks.Add
i = rsProv1.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
rsProv1.MoveFirst
Do While Not rsProv1.EOF
For k = 0 To j - 1
       DataGrid1.Col = k
       xlo.workbooks(1).sheets(1).Cells(l + 2, k + 1) = DataGrid1.Text
Next k
rsProv1.MoveNext
l = l + 1
Loop
Exit Sub
errxcel:
MsgBox "Excel not found"

je sais pas pourquoi ca marche pas, il ouvre justel'excel pas plus et bien sur j'ai le message d'erreur "excel not found" . pourquoi? est ce qu'il a quelque chose à modifier au niveau des préférences ou quoi exactement.
Help les amis

[BM42]

Salut

Pour importé un DataGrid tel quel dans excel j'utilise :

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
DIM Xlapp as Excel.Application
Dim Xlbook as Excel.Workbook
Dim Xlsheet as Excel.Worksheet
 
set xlap=new Excel.application
set xlbook = xlap.Workbooks.Add
set xlsheet = xlbook.Worksheets(1)
 
xlsheet.range("A1").Copy From Recordset rs
 
xlbook.save as ...
xlbook.close
 
set xlsheet=Nothing
set xlbook=Nothing
excel.Application.Quit
set xlapp=Nothing

A+

Edit : il existe d'autre solutions ou tu peu en même temps définir ta mise en page
Edit2 : Tu noteras que j'exporte le record set et non le contenu du DataGrid (ce dernier étant rempli par un rs)

[solid_sneak06]

Merci BM42 mais il y a quelque chose qui ne va pas sur ton code!!! il est erroné

Code :

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

1
2
3
4
xlsheet.range("A1").Copy From Recordset rs
 
xlbook.save as ...
xlbook.close

merci

[BM42]

Salut

Toute mes excuses

Code :

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

xlsheet.range("A1").Copy From Recordset rs

devient

Code :

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

xlsheet.range("A1").CopyFromRecordset rs

A+

[solid_sneak06]

Merci pour ta reponse mais ca marche tjrs pas:
le code suivant ne marche pas

Code :

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

xlbook.save as ...

je l'ai remplacé par :

Code :

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

xlbook.saveas

le programme se compile bien mais j'ai une erreur au niveau de cette ligne

Code :

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

Xlsheet.Range("A1").CopyFromRecordset rs

"Invalid procedure"
merci

[solid_sneak06]

S'il vous plait, quelqu'un peut ùe dire ce que ca peut etre "rsProv1" dans mon premier code; c'est la d'où vient l'erreur.
les gars, heeeeeeeeeeeeeeeeeeeeeeeeeeelp

[BM42]

Re

dans :

Code :

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

xlbook.saveas ...

Après le as tu doit spécifier le nom de ton fichier.
Quand au bout de code il fonctionne je vien de le tester.
A tu bien chargé les references excel dans ton projet ?
dans ton cas

Code :

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

Xlsheet.Range("A1").CopyFromRecordset rs

devient

Code :

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

Xlsheet.Range("A1").CopyFromRecordset rsProv1

Si tu as un problème poste ton code

A+

[solid_sneak06]

voici le code, il marche tjrs pas:

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
Private Sub Command1_Click()
Dim Xlapp As excel.Application
Dim Xlbook As excel.Workbook
Dim Xlsheet As excel.Worksheet
 
Set xlap = New excel.Application
Set Xlbook = xlap.Workbooks.Add
Set Xlsheet = Xlbook.Worksheets(1)
 
Xlsheet.Range("A1").CopyFromRecordset rs
 
Xlbook.SaveAs App.Path & "\automation\test.xls"
Xlbook.Close
 
Set Xlsheet = Nothing
Set Xlbook = Nothing
excel.Application.Quit
Set Xlapp = Nothing

et c'est cette ligne qu'il n'aime pas: Xlsheet.Range("A1").CopyFromRecordset rs
le rs je l'ai declaré au niveau du module en tant que: Public rs As adodb.Recordset c'est bien ca? j'utilise office 2007, et j'ai bien ajouter office 12 au niveau des preference.

En plus je vois pas où est la liaison entre le datagrid1 et le fichier exel
merci pour ton aide

[BM42]

Re

Tu n'imprime pas un datagrid mais le recordset qui le remplie.

Code :

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

Xlsheet.Range("A1").CopyFromRecordset rs

rs étant ton RecordSet (dans ton cas : rsProv1)
cette commande ce décompose suivant le principe suivant :
Xlsheet.Range("A1") = Point de départ de l'insertiondans ton classeur Excel
.CopyFromRecordset = Copy des données d'un recordset
rs = Ton recordset qui rempli ton datagrid

A+