Citation:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cn As System.Data.OleDb.OleDbConnection
Dim cmd As System.Data.OleDb.OleDbDataAdapter
Dim ds As New System.Data.DataSet()
cn = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;" & _
"data source=C:\fichier.xls;Extended Properties=Excel 8.0;")
' Select the data from Sheet1 of the workbook.
cmd = New System.Data.OleDb.OleDbDataAdapter("select * from [Donnees$A1:C1]", cn)
cn.Open()
cmd.Fill(ds)
msgbox cmd.Fill(ds)
cn.Close()
End Sub
Je n'arrive même pas a extraire une donnée avec un msgbox