Discussion :

[benpinta]

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

[jfontaine]

Et en utilisant les données externes, est ce que excel te propose les requetes croisées?

[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

[benpinta]

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

[sash6]

Voici un exemple duquel tu peux t'inspirer:

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
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