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
Partager