lien excel access

Version imprimable

lien excel access

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:

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.

11/12/2007, 14h41
Invité

Bonjour

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

Surtout la partie Automation.
11/12/2007, 14h58
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.

bonjour

Tu peux tester

Code:

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

12/12/2007, 08h46
Narf!

nickel merci.
Juste ce dont j'avais besoin.

Merci beaucoup.