Salut,
Voici le code que je veux réaliser sur access. Mais il ne marche. Si quelcun pouvait m'aider je lui en serais trop reconnaissant.
Dim connec As New ADODB.Connection
Dim rs As New ADODB.Recordset
connec.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=test.xls;" & _
"Extended Properties=""Excel 8.0;HDR=Yes;"";"
rs.Open "Select * From adi$ ", connec, , , adCmdText
rs.MoveFirst
MsgBox rs(0)
rs.Close
connec.Close
Set connec = Nothing
Set rs = Nothing