[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 :?
