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
|
Dim cmdConnection As ADODB.Connection
Dim cmdRecordSet As ADODB.Recordset
Dim requeteSQL As String
requeteSQL = _
"Select " & _
"[BUD_PROPRIETE$].PK_PROPRIETE, " & _
"0, " & _
"0, " & _
"[BUD_PROPRIETE$].CD_PROPRIETE, " & _
"0 " & _
"From [BUD_PROPRIETE$] " & _
"Where " & _
"[BUD_PROPRIETE$].CD_PROPRIETE = 200"
Set cmdConnection = New ADODB.Connection
With cmdConnection
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = _
"Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.FullName & ";" & _
"Extended Properties=""Excel 12.0;" & _
"HDR=YES;" & _
"ReadOnly=false"""
.Open
End With
Set cmdRecordSet = New ADODB.Recordset
Set cmdRecordSet = cmdConnection.Execute(requeteSQL)
Feuil1.Range("A1").CopyFromRecordset cmdRecordSet |
Partager