Discussion :

[planetesud]

Bonjour,

Visiblement il n'est pas possible d'importer une requête Access vers Excel comportant des sous requêtes. Celle-ci n'apparait pas dans la liste.

J'ai essayé de créer une requête basée sur ma requête sans champ calculé mais elle n'apparait pas non plus dans la liste.

Existe-t-il un autre moyen d'importer ces fameuses requêtes ?

@User m'avait aidé concernant un champ calculé dans une requête et m'avais donné une base exemple que je joins pour mieux me faire comprendre. Il s'agirait d'importer la requête présente dans la base.

Je vous remercie pour votre aide.
Sandrine
BD1.zip

[loufab]

Bonjour,

De quelle liste parlez-vous ?

Si on fait clic-droit sur la requête et qu'on choisi Exporter... / Excel ça s'exporte.
Idem si on utilise le menu Données Externes / Exporter / Excel

Cordialement,

[hyperion13]

Salut
Je confirme. Depuis Excel impossible importer une sous-requête depuis Access, via le menu Données ou via PowerQuery.
Une solution, mais il faut transformer la fonction Nz() et Iif().

Code :

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

ResultatLigne: [PiecesProd]-VraiFaux(EstNull((select Top 1 T1.PiecesProd from T_KPI_IND T1 where (T1.DateEnrg= T_KPI_IND.DateEnrg) and (T1.Operateur= T_KPI_IND.Operateur) and (T1.N°TableauBord<T_KPI_IND.N°TableauBord) order by N°TableauBord Desc));0;(select Top 1 T1.PiecesProd from T_KPI_IND T1 where (T1.DateEnrg= T_KPI_IND.DateEnrg) and (T1.Operateur= T_KPI_IND.Operateur) and (T1.N°TableauBord<T_KPI_IND.N°TableauBord) order by N°TableauBord Desc))

Ensuite dans le classeur, dans un module standard passer :

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
Option Explicit
Sub importQuery()
'Microsoft Office xx.0 Database Engine Object
Dim accApp As DAO.Database
Dim qdf As DAO.QueryDef
Dim rst As DAO.Recordset
Dim xlWbk As Workbook
Dim xlWsh As Worksheet
Dim i As Long
 
Set xlWbk = ActiveWorkbook
Set xlWsh = xlWbk.Worksheets("Feuil1")
 
Set accApp = OpenDatabase("C:\Users\...\BD1.accdb")
Set qdf = accApp.QueryDefs("R_KPI_IND")
Set rst = qdf.OpenRecordset
xlWsh.Range("A1").CopyFromRecordset rst
 
For i = 1 To rst.Fields.Count
    xlWsh.Cells(1, i).Value = rst.Fields(i - 1).Name
Next i
End Sub

[planetesud]

Bonjour à tous,

Merci à tous les deux pour votre aide.

Pour répondre à Loufab =

De quelle liste parlez-vous ?

Dans Excel (voir image ci-desous)

et un grand merci à Hyperion car c'est exactement ce que je voulais.

Très bonne fin de journée.
Sandrine

[loufab]

C'est un poste Excel et non Access.

Ceci explique cela.