Discussion :

[celiaaa]

Bonjour,

je fais appel à vous pour savoir s'il existe un code permettant d'accéder à l'en-tête dune requête SQL pour l'inscrire sur un fichier Excel?


Voila ce que je fais pour le moment et dans mon cas j'accéde qu'aux données de ma requête et pas l'en-tête..
Dois-je déclarer en dur le nom de mes en-tête?

Merci

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
 Dim xlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
    Dim sql As String
    Dim i As Long
    Dim vtemp As Variant
    Dim rs As New ADODB.Recordset
 
    Set db = DBEngine.OpenDatabase(MA_BASE_ACCESS)
 
 
    sql = maRequete
 
 
     rs.Open sql, CurrentProject.Connection, adOpenDynamic, dLockPessimistic
 
 
    'J'initialise mes variables
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\chemin\test.xls")
 
    'Ajouter une feuille de calcul 
    Set xlSheet = xlBook.Worksheets.Add
    xlSheet.name = "Synthèse"
 
 xlSheet.Range("A2:D6").Value = "SYNTHSE "
 
rs.MoveFirst
    i = 0
    While Not rs.EOF
 
        xlSheet.Cells(i, 5).Value = rs.Fields(i)
 
        rs.MoveNext
        i=i+1
    Wend

[Jeannot45]

Salut Céliaaa

Tu pourrais dans une boucle lire les noms de tes champs

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
rs.MoveFirst
    i = 0
    For i = 0 to rs.Fields.Count-1
        xlSheet.Cells(i, 5).Value = rs.Fields(i).Name 
    Next

    i = 0
    While Not rs.EOF
 
        xlSheet.Cells(i, 5).Value = rs.Fields(i)
    
        rs.MoveNext
        i=i+1
    Wend

A+

Jeannot

[celiaaa]

Nickel mERCI c'était tout simple ^^