Bonjour à tous,

J'ai créé une macro qui me permet d'exécuter une requête SQL et d'importer les données sur Excel.
Tout fonctionne bien sauf que lors de l'importation, les entetes ne sont pas importées.
Connaissez vous la commande qui permet ça ?

Je vous remercie par avance.


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
Sub Requête()
 
Dim Login As String
Dim pass As String
 
Sheets("Extract").UsedRange.ClearContents
Sheets("CPN1").Activate
 
Login = Sheets("CPN1").Range("B1").Value
pass = Sheets("CPN1").Range("B2").Value
 
 
Dim x As ADODB.Connection
Set x = New ADODB.Connection
 
Dim r As ADODB.Recordset
Set r = New ADODB.Recordset
 
Dim Sql As String
 
x.Open ("DRIVER={Sybase IQ}; CommLinks=TCPIP{host=" + "sybhost_iqdwfmtb" + ";port=" + "9000" + "}; DBN=; UID=" + _
        Login + "; PWD=" + pass + "; ENG=IX_DW_MO")
 
Sql = "SELECT A.*, B.Nomenclature FROM vu_D1_Structure A, dim_TradeAsset B WHERE A.StructureId = B.StructureId"
 
r.Open Sql, x
 
Sheets("Extract").Range("A2").CopyFromRecordset r
 
r.Close
x.Close
 
Set r = Nothing
Set x = Nothing
 
End Sub


Cordialement,
Freudsw