exportation datagrid vers excel

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:

---

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

Salut

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

Code:

---

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)

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

Code:

---

1 2 3 4

xlsheet.range("A1").Copy From Recordset rs   xlbook.save as ... xlbook.close

---

merci

Salut

Toute mes excuses

Code:

---

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

---

devient

Code:

---

xlsheet.range("A1").CopyFromRecordset rs

---

A+

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

Code:

---

xlbook.save as ...

---

je l'ai remplacé par :

Code:

---

xlbook.saveas

---

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

Code:

---

Xlsheet.Range("A1").CopyFromRecordset rs

---

"Invalid procedure"
merci

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

Re

dans :

Code:

---

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:

---

Xlsheet.Range("A1").CopyFromRecordset rs

---

devient

Code:

---

Xlsheet.Range("A1").CopyFromRecordset rsProv1

---

Si tu as un problème poste ton code

A+

voici le code, il marche tjrs pas:

Code:

---

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

Re

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

Code:

---

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+