Bonjour,

Je filtre un tableau sur la colonne "Nature" pour obtenir tous les valeurs nécessaires pour effectuer une requête SQL.

Nom : constante.jpg Affichages : 101 Taille : 36,9 Ko

mais n'arrive pas à l'intégrer dans ma requête

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
 
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
Merci pour votre aide

Solution =>
Code : Sélectionner tout - Visualiser dans une fenêtre à part
& "' AND Tp IN " & var_Tp


Eric