Discussion :

[alebihan83]

Bonjour,

J'ai une requête sous Access, qui me demande de rentrer un certain nombre de paramètres, et qui me donne au final un tableau comportant des données que je souhaite traiter sous Excel.
Ce que je cherche à faire, c'est à automatiser cette requête sous Excel, c'est-à-dire que depuis Excel j'aimerais importer ce tableau d'un seul clic (avec les paramètres rentrés au préalable dans un autre tableau de mon fichier Excel).

Est-ce possible ?

Merci

Antoine

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP.

Oui, on peut piloter Access au départ d'un autre logiciel capable de manipuler le VBA.

On peut utiliser le DAO.

Dans le projet Excel, il faut déclarer la bibliothèque Microsoft DAO 3.6

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub ImportAccess()
 
'Déclaration des variables
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sql as string
dim iR as integer
Dim sh As WorkSheet
 
'Affectation d'une feuille de calcul
Set sh = ActiveWorkbook.Worksheets(1)
 
 
'Affectation d'une base de données
set db = DAO.OpenDatabase("Lechemindemadb")
 
'Le code SQL qui va servir à extraire les données
sql = "Select * From matable "
sql = sql & " Where MonChamp = '" & ActiveSheet.Cells(1,1).Value & "';"
 
'Ouverture du recordset
Set rs = db.OpenRecordset(sql)
 
'On va parcourir les enregistrement du recordset pour les injecter dans une feuille de calcul
While not rs.EOF
    iR = iR + 1
    sh.Cells(i, 1) = rs.Fields("LeChamp1")
    sh.Cells(i,2) = rs.Fields("LeChamp2")
end
 
'libération des objets
rs.Close
set rs = nothing
Set db = nothing
 
End Sub

Je n'ai pas testé le code, je l'ai écrit à la volée, mais il devrait fonctionner en changeant certaines choses.