Bonsoir,

Code fonctionnant:

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
 
Sub Inf_TDC(Da)
 
    Dim StrSQL As String
 
    If varPartenaire = "OUI" Then
        varPartenaire = "PCO" & Da & "000"
        varDa = "*.*"
    Else
        varPartenaire = "*.*"
        varDa = Da
    End If
 
    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'"
 
    StrSQL = "SELECT sum(Montant) as MT " & _
        " From BD " & _
        "WHERE PCE = '" _
                & varCompte _
            & "' AND Partenaire = '" _
                & varPartenaire _
            & "' AND Segment = '" _
                & varSegment _
            & "' AND Tp IN " & varTypePiece
 
    Set rs = Cnn.Execute(StrSQL)
 
    Valeur = rs(0)
End Sub
Nom : Req 1.jpg Affichages : 124 Taille : 28,3 Ko

Code ne fonctionnant plus

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(Da)
 
    Dim StrSQL As String
 
    If varPartenaire = "OUI" Then
        varPartenaire = "PCO" & Da & "000"
        varDa = "*.*"
    Else
        varPartenaire = "*.*"
        varDa = Da
    End If
 
    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'"
 
    StrSQL = "SELECT sum(Montant) as MT " & _
        " From BD " & _
        "WHERE PCE = '" _
                & varCompte _
            & "' AND Partenaire = '" _
                & varPartenaire _
            & "' AND Segment = '" _
                & varSegment _
            & "' AND Tp IN " & varTypePiece _
            & "' AND CB IN " & varCodeBudgetaire
 
    Set rs = Cnn.Execute(StrSQL)
 
    Valeur = rs(0)
End Sub
Nom : Req2.jpg Affichages : 116 Taille : 23,4 Ko

Nom : req3jpg.jpg Affichages : 120 Taille : 40,0 Ko

Merci pour vos suggestions

Eric