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