Transfert de données VB.NET vers EXCEL

Euh plusieurs questions :
dans xl.cells(l+1,j+1)=Datagridview1.rows(l).cells(c).value c'est pas j mais c non?
dans xl.cells(c+1,1)=Datagridview1.columns(c).name il met une erreur
Merci d'avance des reponses

bonsoir,
je veux le code VB.NET et ADO.NET sous vusial basic 2008 qui permet de transferer les données d'une base de donnée SQLServeur vers excel et l'inverse
merci d'avance

Salut Ramadan,

Pr resoudre votre blem.

Il faut ajouter la référence Microsoft Excel 11.0 Object library,
puis : Imports Excel
Et par rapport à l'érreur "mais le EXCEL.APPLICATION de la ligne DIM XL AS NEW EXCEL.APPLICATION est souligné donc erreure." Il faut importer Imports System.MissingMemberException

Bonne Chance

Imports Microsoft.Office.Interop.Excel
Imports Microsoft.Office.Interop


Public Class Form1


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim c, ligne As Integer
Dim xl As New Excel.Application

xl.Visible = True
xl.Workbooks.Add()

Try
For ligne = 0 To DataGridView1.RowCount - 1
For c = 0 To DataGridView1.ColumnCount - 1
xl.Cells(1, c + 1) = DataGridView1.Columns(c).HeaderText
xl.Cells(ligne + 2, c + 1) = DataGridView1.Rows(ligne).Cells(c).Value
Next c
Next ligne

Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

End Class

'Bonne courage a tous

je essayer mais ça pas toujour souligne avec erruer

aller dans "Project > add reference >.NET >Microsoft.Office.Interop.Excel" et merci pour ce code il marche à merveille avec vs 2010

ca marche comme suit mais 2005, tu peux essayer

Imports Microsoft.Office.Interop.Excel

Public Class frm_menu

Private Sub btn_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_personnel.Click

Dim c, n As Integer
Dim xl As New Microsoft.Office.Interop.Excel.Application

xl.Visible = True
xl.Workbooks.Add()

For c = 0 To 5 'Datagridview1.columns.count - 1
xl.Cells(c + 1, 1) = "c" & c.ToString 'Datagridview1.columns(c).name
Next

'For l As Integer = 0 To Datagridview1.rows.count - 1
' For c = 0 To Datagridview1.rows.count - 1
' xl.Cells(l + 1, j + 1) = Datagridview1.rows(l).cells(c).value
'Next c
'Next l

End Sub