Sub Macro1()
With ActiveWorkbook.Connections("Transaction").ODBCConnection
.BackgroundQuery = True
.CommandText = Array( _
"SELECT FT_TRANSACTIONS_All.Warehouse, FT_TRANSACTIONS_All.""Transaction date"", FT_TRANSACTIONS_All.""Transaction iden" _
, _
"tity"", FT_TRANSACTIONS_All.""Libelle article"", FT_TRANSACTIONS_All.""Item number"", FT_TRANSACTIONS_All.""Transaction q" _
, _
"uantity - basic U/M"", FT_TRANSACTIONS_All.""Acquisition cost""" & Chr(13) & "" & Chr(10) & "FROM BPW_TEST_Datamarts.dbo.FT_TRANSACTIONS_All FT_TR" _
, _
"ANSACTIONS_All" & Chr(13) & "" & Chr(10) & "WHERE (FT_TRANSACTIONS_All.""Transaction identity""='WOM') AND (FT_TRANSACTIONS_All.""Transaction date" _
, _
""">=20140206) AND (FT_TRANSACTIONS_All.""Item number""<'90000' And FT_TRANSACTIONS_All.""Item number"" Not Like '3%') OR" _
, _
" (FT_TRANSACTIONS_All.""Transaction identity""='OID') AND (FT_TRANSACTIONS_All.""Transaction date"">=20140206) AND (FT_" _
, _
"TRANSACTIONS_All.""Item number""<'90000' And FT_TRANSACTIONS_All.""Item number"" Not Like '3%')" _
)
.CommandType = xlCmdSql
.Connection = Array(Array( _
), Array("AGE=Français"))
.RefreshOnFileOpen = False
.SavePassword = True
.SourceConnectionFile = ""
.SourceDataFile = ""
.ServerCredentialsMethod = xlCredentialsMethodIntegrated
.AlwaysUseConnectionFile = False
End With
With ActiveWorkbook.Connections("Transaction")
.Name = "Transaction"
.Description = ""
End With
ActiveWorkbook.Connections("Transaction").Refresh
End Sub