Bonjour,
je travaille avec Access 2000 et access 2003.
Je cherche à récupérer des valeurs d'une feuille excel.
J'ai constemment une erreur : "Instruction SQL non valide; 'DELETE', 'INSERT', 'PROCDURE', 'SELECT' ou 'UPDATE' attendus."
Je pense que l'erreur se trouve dans l'instruction : rst1.Open "Sheet1", cnxn
sans vraiment comprendre pourquoi.
Je fais la même chose avec une base access et ça marche trés bien ...
Donc si vous avez une piste je vous serai trés reconnaissant.
Je vous livre le code commenté :
Private Sub btn_req_Click()
On Error GoTo Err_btn_req_Click
'connection au classeur externe
Dim cnxn As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
'connection à la source de donnée externe
cnxn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=F:\access\procurmentDM\TEST.xls;" & _
"Extended Properties=Excel 8.0;"
' ouverture d'un jeu d'enregistrements en lecture seule sur le fichier excel
Set rst1 = New ADODB.Recordset
' ouverture de la feuille "Sheet1"
rst1.Open "Sheet1", cnxn
'un pauvre print des colonnes
Debug.Print rst1.Fields(1).Value, rst1.Fields(2).Value
'nettoyage de la mémoire
rst1.Close
Set rst1 = Nothing
cnxn.Close
Set cnxn = Nothing
Exit Sub
' en cas d'erreur :
Err_btn_req_Click:
MsgBox Err.Description
Exit Sub
End Sub
Merci du temps que vous avez pris pour lire ma question.
JB

