[VBA-E] Requete SQL sous Excel
Bonjour à tous
Je sais que c'est une question récurente mais je ne trouve de fin au problème ou de solutions convenable ( simple ) sur aucun post je pose donc mon problème :
Récupere le contenu d'une table (ACCESS) grace à une requete SQL
Mon code pour le moment est
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Sub import()
Dim MaBaseDeDonnées As Database
Dim MonRecordSet As Recordset
Set MaBaseDeDonnées = OpenDatabase("U:\test_bd\bd5.mdb", False)
Set MonRecordSet = MaBaseDeDonnées.OpenRecordset _
("SELECT * FROM T_TOTAL WHERE T_TOTAL.id = 1", _
dbOpenDynaset)
While Not MonRecordSet.EOF
' Action
MonRecordSet.MoveNext
Wend
MonRecordSet.Close
End Sub |
je ne sais pas si c'est la bonne direction ?
Merci à tous :?