Recordset VBA

Bonjour,

avec CopyFromRecordset ,il me recopie que les lignes mais pas le nom des colonnes de ma jointure

pourriez vous m'aider svp

Connection.ConnectionString = "driver={SQL Server};server=FRLBBBSXZ1;database=HR VISION"

Connection.Open

Command.ActiveConnection = Connection

Command.CommandText = "SELECT * from PAIE a JOIN EMPLOI e ON a.ID_EMPLOI=e.ID_EMPLOI"

Set ResultSet = Command.Execute

ResultSet.Open sqlstring, Connection, adOpenDynamic, adLockOptimistic

Sheets("test").Range("A1").CopyFromRecordset ResultSet

Bonjour,

essaie ceci

Connection.ConnectionString = "driver={SQL Server};server=FRLBBBSXZ1;database=HR VISION"
Connection.Open
Command.ActiveConnection = Connection
Command.CommandText = "SELECT * from PAIE a JOIN EMPLOI e ON a.ID_EMPLOI=e.ID_EMPLOI"
Set ResultSet = Command.Execute
ResultSet.Open sqlstring, Connection, adOpenDynamic, adLockOptimistic

For i = 0 to resultset.Fields.Count - 1 
 ws.Cells(1, i+1).Value = resultset.Fields(i).Name 
Next

Sheets("test").Range("A2").CopyFromRecordset ResultSet