Traitement sous access depuis Excel

Bonjour,
mon problème est le suivant :
je souhaite récupérer dans une feuille excel le contenu d'une requete Access.
Pour le moment, je récupère tous les enregistrements avec le code suivant :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Sub  CopyFromRecordset_DAO()
 
     Dim Db1 As Database
 
     Dim Rs1 As Recordset
 
     ' Ouverture de la base de données
 
     Set Db1 = DBEngine.OpenDatabase(ThisWorkbook.Path & "\Commandes.mdb" )
 
     ' Ouverture de la table Factures
 
     ' Un objet Recordset représente les enregistrements d'une table
 
     Set Rs1 = Db1.OpenRecordset( Name := "Factures pour un client" , Type :=dbOpenSnapshot)
 
     ' Effacement des données existantes dans la WorkSheet (sauf les titres)
 
     ' et copie des enregistrements
 
     With Worksheets( "DonnéesDataBase" ).Range( "A2" )
 
          With Selection.CurrentRegion
 
               Intersect(.Cells, .Offset( 1 )).Select
 
          End With
 
          Selection.ClearContents
 
          .CopyFromRecordset Rs1
 
     End With
 
     'Fermeture de la Base de données
 
     Db1.Close
 
End Sub

Mais je souhaite également récupérer les entetes de chaque colonne (le nom des champs) de cette requete sous Excel (en codant uniquement sous Excel)

Je suppose qu'une solution existe..

Merci.