Discussion :

[Narf!]

Bonjour,

alors voila, a force delire pas mal de choses dans tous les sens, je commence à m'embrouiller sur un problème assez simple.

j'utilise ceci pour ajouter des infos dans une base access :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub exportDonnées_DAO()
Dim Db As DAO.Database
Dim strSQL As String
 
Set Db = DAO.OpenDatabase("D:\test.mdb", False, False)
strSQL = "INSERT INTO [Table1] VALUES('999','8','DVP')"
 
Db.Execute strSQL
Db.Close
End Sub

Maintenant j'aimerais faire l'inverse, récuperer des infos de la base de donnée dans une certaine partie d'une feuille excel.
Comment donc récuperer le résultat d'un Select champ par champ ?
Tous les exemples que j'ai trouvés n'utilise pas une DAO.Database


Par avance, merci.

[Invité]

Bonjour

Va lire cet article de Cafeine : http://cafeine.developpez.com/access/tutoriel/excel/

Surtout la partie Automation.

[Narf!]

merci.

Par contre, la partie cité donne une facon de faire piloté d'access.
Mon appli est pilotée par excel.

La partie Plate-forme ADO semble plus correspondre à ma problèmatique mais se connecte en ADODB.
Bon cela dis, je suis pas sectaire, je vais réécrire mon bout de code.

Par contre, je comprends pas, on doit donc mettre =xRetrieve dans les cellules ?
j'ai juste besoin qu'il me sorte ligne par ligne les enregistrements retournés par un SELECT (a partire de la case A30) avec dans chaque collone, les different champs de l'enregistrement.

[SilkyRoad]

bonjour

Tu peux tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub importDonnées_DAO()
    Dim Db As DAO.Database
    Dim Rs As DAO.Recordset
    Dim strSQL As String
 
    Set Db = DAO.OpenDatabase("C:\dossier\dataBase.mdb", False, False)
    strSQL = "SELECT * FROM [Table1]"
    Set Rs = Db.OpenRecordset(strSQL, DAO.dbOpenSnapshot)
 
    Range("A1").CopyFromRecordset Rs
 
    Db.Close
End Sub

bonne soirée
michel

[Narf!]

nickel merci.
Juste ce dont j'avais besoin.

Merci beaucoup.