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
|
Sub Inf_TDC()
Dim StrSQL As String
Set Cnn = New ADODB.Connection
Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
ThisWorkbook.Path & "\" & ThisWorkbook.Name & ";Extended Properties='Excel 12.0;HDR=Yes'"
var_Da = "0010"
var_Compte = "4142320000"
var_Segment = "2021"
var_Tp = "'XA','XC'" '=> peut être une liste
var_Partenaire = ""
var_Code = ""
var_Cb = "" '=> peut être une liste
StrSQL = "SELECT sum(Montant) as MT " & _
" From BD " & _
"WHERE PCE = '" _
& var_Compte _
& "' AND Da = '" _
& var_Da _
& "' AND Segment = '" _
& var_Segment _
& "' AND Tp IN ('XA','XC')" '=> pb ici!
Set rs = Cnn.Execute(StrSQL)
Range("A1").CopyFromRecordset rs
End Sub |
