[AC-2007] CommandText avec une variable

[zoom61]

Salut,

J'ai deux codes, le premier fonctionne très bien :

Code :

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
VAL_SQL = "select ... " _
& "from ... " _
& "where " _
& "datref = to_date ('" & Range("B1").Value & "', 'DD/MM/YYYY') " _
& "and cde = '" & Range("B2").Value & "' " _
& "group by ... " _
& "Order by ..."
 
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
        "ODBC;..." _
        ), Array("fAllSuccessful;NUM=US;DPM=F;MTS=F;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=0;") _
        ), Destination:=Range("$A$9")).QueryTable
        .CommandText = Array(VAL_SQL)
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = _
        "LOT"
        .Refresh BackgroundQuery:=False
    End With

Mais pour celui là, j'ai toujours le message : Erreur d'exécution '13':, le code étant similaire, et je vais sur les même tables :

Code :

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
34
35
val_cde = ""
    For i = 2 To a
        val_cde = val_cde & "(datref = to_date('" & Range("A" & i).Value & "', 'DD/MM/YY') and cde = '" & Range("B" & i).Value & "') or " & Chr(13)
    Next
    val_cde = Mid(val_cde, 1, Len(val_cde) - 4)
 
    VAL_SQL = "select ... " _
        & "from ... " _
        & "where " & val_cde _
        & "order ..."
 
    MsgBox VAL_SQL
 
    Columns("E:Q").Select
    Selection.Delete Shift:=xlToLeft
 
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
        "ODBC;..." _
        ), Array("fAllSuccessful;NUM=US;DPM=F;MTS=F;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=0;") _
        ), Destination:=Range("$E$1")).QueryTable
        .CommandText = Array(val_cde)
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "TOP"
        .Refresh BackgroundQuery:=False
    End With

Cela me bloque toujours sur la ligne :

Code :

        .CommandText = Array(val_cde)

Mais si je crée manuellement en récupérant la variable VAL_SQL, cela fonctionne correctement.

Avez-vous des idées ?

Merci.

[marot_r]

Array() sert à retourner un tableau à partir d'un liste de valeur pas une chaine de caratères (type String).

L'erreur 13 est "incompatibilité de type" donc probablement .CommandText s'attend à recevoir une chaîne de caractères car ta commande qui fonctionne utilise une chaîne de caractères.

A+

[zoom61]

J'ai bien deux chaines de caractères !!!

La seule différence que je vois est que dans le 1er cas j'ai une requête :

Code :

1
2
3
4
select ...
from ...
where (test)
orber ...

et dans le second cas, j'ai :

Code :

1
2
3
4
5
select ...
from ...
where (test1)
or (test2)
orber ...

Donc je ne vois pas où est mon problème !

[fbtsra]

Bonjour,

Ca ne serait pas plutôt :

Code :

.CommandText = Array(VAL_SQL)

que :

Code :

.CommandText = Array(val_cde)

?

Bcdt