executer des requetes de selection sur access à partie de VBA

Version imprimable

09/08/2007, 12h10
benpinta

executer des requetes de selection sur access à partie de VBA

Bonjour, voici mon problème que j'essais de résoudre depuis quelques jours:

J'ai créer 10 requetes sous access de selection et d'analyses croisées dans une base de données x

Je veux pouvoir executer mes requetes à partir d'un code VBA (en DAO si possible), mon objectif est ensuite de récuperer 3 tables créees par l'execution des 10 requêtes ce que je sais faire à priori.

Je suis incapable d'éxecuter les requetes de selection.
j'ai pensé à une solution mais celle ci s'avère impossible car une requete croisée n'est pas compatible avec le procédé "SELECT * INTO table".

Merci de m'aider dans mon problème.

cordialement
09/08/2007, 12h17
jfontaine

Et en utilisant les données externes, est ce que excel te propose les requetes croisées?
09/08/2007, 13h48
sash6

je sais pas si on parle de la même chose, et peut être que tu le sais déjà, en tout cas ton code VBA sous excel doit avoir la même construction que le sql de ta requête
09/08/2007, 13h50
benpinta

oui, mais j'aimerais le faire automatiquement grace à du code vba

Voici un exemple duquel tu peux t'inspirer:

Code:

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
Public Sub lextraction()
 
Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset
Dim cell As Range
 
'Instanciation des variables
Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
 
'Connexion à la base de données
cnx.Open "DSN=MS Access Database;DBQ=C:\fichier.mdb;FIL=MS Access;"
 
'Exécution de la requête
rst.Open "requete SQL", cnx
 
Do While Not rst.EOF ' extraction des données dans ta feuille excel
    Set cell = Range("A65536").End(xlUp)(0)
    With rst
        cell(3, 1) = .Fields("nom du champs").Value
        cell(3, 2) = .Fields("nom du champs").Value ' tu peux en rajouter autant que tu veux
        .MoveNext
    End With
Loop
 
End Sub