Discussion :

[Eric_03]

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

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

Merci pour vos suggestions

Eric

[Thumb down]

bonsoir,
dans Excel les cellule ne sont pas typé en revanche ADO type ses champ par apprentissage il est for possible qu'il est typé CB en Integer!

[Eric_03]

Merci pour ta suggestion,

J'ai remplacé toutes les valeurs du champ CB en alpha pour tester mais malheureusement sans succès.

Eric

[Philippe Tulliez]

Bonjour,
Si ma vue est bonne, il me semble voir une apostrophe orpheline juste après la parenthèse fermante et avant le AND CB IN ("1201...... de la variable StrSQL

[Eric_03]

Dans la ligne StrSQL une apostrophe de trop s'est glissée entre '')' et AND CB IN

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

& " ' AND CB IN " & varCodeBudgetaire

Merci
Eric

[Eric_03]

N'ayant pas actualisé ma page internet je n'avais pas vu la réponse de Philippe qui répondait au problème. De plus après avoir rectifié l'erreur l'observation de Thumb down sur le typage du champ est important.
Merci
Eric