il faut tout d'abors ajoutter la reference Microsoft Excel comme suivant :
projet + ajouter une refenece +Menu COM +valider OK
Code :
imports Microsoft.Excel....
Class Form1
sub button1_Click()
Dim c,n as inetger
Dim xl as new Excel.application
xl.visible=true
xl.worckboxs.add
for c=0 to Datagridview1.columns.count-1
xl.cells(c+1,1)=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
eh bonne chance
next