[E-03] Incompatibilité de type

Version imprimable

Bonjour,

dans ce code je crée une requête avec des données externes (Access). J'ai voulu rendre variable la première partie de la condition WHERE. J'ai donc créé une variable cpte qui contient la première partie de la condition WHERE.
Cette variable cpte est de type variant mais lorsque je lance ma macro, j'ai un message d'erreur 13 :
"Incompatibilité de type"
J'ai essayé de transformer ma variable "cpte" en type long mais ça ne fonctionne pas avec "CLng"

Quelqu'un aurait-il une idée?

PS : j'ai mis en rouge le passage que je suppose faux...
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 dim cpte as Variant cpte = "(DELAIS.EXDCOQY = " & 208131 & ") OR (DELAIS.EXDCOQY = " & 208102 & ") OR (DELAIS.EXDCOQY = " & 208107 & ")" With ActiveSheet.QueryTables.Add(Connection:= _ "ODBC;DSN=CLT;DBQ=J:\ACCESS\CLIENTS.mdb;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _ , Destination:=Range("A2")) .CommandText = Array( _ "SELECT DELAIS.EXDDTKV, DELAIS.EXDCOQY, DELAIS.EXDCD, DELAIS.EXDHESI, DELAIS.DELAIS" & Chr(13) & "" & Chr(10) & "FROM `J:\BASE_DE_DONNEES_ACCESS\INFOS_CLIENTS`.DELAIS DELAIS" & Chr(13) & "" & Chr(10) & "WHERE " & cpte & " AND (DELAIS.EXDHESI>" & heure_theo & ")" & Chr(13) & "" & Chr(10) & "ORDER BY DELAIS.EXDCD") .Name = "Lancer la requête à partir de CLT_test3" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .Refresh BackgroundQuery:=False End With
Merci de votre aide!

25/02/2009, 16h57
pgz

Bonjour.

Je crois que tu devrais enlever Array dans

Code:

.CommandText = Array( _

Ce qui donne

Code:

.CommandText = "SELECT DELAIS.EXDDTKV, DELAIS.EXDCOQY, DELAIS.EXDCD, DELAIS.EXDHESI, DELAIS.DELAIS" & Chr(13) & "" & Chr(10)& "FROM `J:\BASE_DE_DONNEES_ACCESS\INFOS_CLIENTS`.DELAIS DELAIS" & Chr(13) & "" & Chr(10) & "WHERE " & cpte & " AND (DELAIS.EXDHESI>" & heure_theo & ")" & Chr(13) & "" & Chr(10) & "ORDER BY DELAIS.EXDCD"

Par ailleurs, je ne suis pas sûr que les

Code:

Chr(13) & "" & Chr(10)

ne puissent pas être avantageusement remplacés par des espaces.

LE type approprié pour cpte est String.

Cordialement,

PGZ

Salut Eleda et le forum
et en remplaçant cpte par la valeur que doit avoir cette variable, ça fonctionne ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 With ActiveSheet.QueryTables.Add(Connection:= _ "ODBC;DSN=CLT;DBQ=J:\ACCESS\CLIENTS.mdb;DriverId=25; _ FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _ , Destination:=Range("A2")) .CommandText = Array( _ "SELECT DELAIS.EXDDTKV, DELAIS.EXDCOQY, DELAIS.EXDCD, DELAIS.EXDHESI, DELAIS.DELAIS" & " FROM `J:\BASE_DE_DONNEES_ACCESS\INFOS_CLIENTS`.DELAIS DELAIS" & " WHERE (DELAIS.EXDCOQY = 208131) OR (DELAIS.EXDCOQY = 208102) OR (DELAIS.EXDCOQY = 208107) AND (DELAIS.EXDHESI>" & heure_theo & ")" & " ORDER BY DELAIS.EXDCD") .Name = "Lancer la requête à partir de CLT_test3" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .Refresh BackgroundQuery:=False End With
Tu colles des chr(13) et chr(10) dans la définition d'une requête ? Je ne pense pas (c'est normel chez moi :aie:), que ça soit judicieux : les retour chariot et fin de ligne ne sont là que pour la visualisation (comme _ sous VBA Excel) et ne font pas partie du critère.

Rajouter des & est pas une bonne idée :
DELAIS" & "WHERE (
donne
DELAISWHERE (
ce qui est loin de valoir
DELAIS" & " WHERE (
qui donne
DELAIS WHERE (
qui semble plus lisible pour access
A+

26/02/2009, 16h28
Eleda

Le fait d'enlever "Array" supprime le problème "d'incompatibilité de type" mais engendre une "erreur générale ODBC" quand la macro se trouve sur la dernière ligne, juste avant "With".
Nouveau problème... quelqu'un aurait-il une idée?

Les Chr(13) & "" & Chr(10) ne viennent pas de moi mais de l'enregistreur de macro et ne posaient pas de problème dans le cas d'un seul compte donc je ne pense pas que le problème vienne de là, mais comme je ne suis pas un expert, j'attends vos avis!

Donc je récapitule, si je passe par "Outils/Données externes/Créer une requête", j'ai la possibilité de mettre plusieurs comptes (ex : 208136, 548006...) et la macro se lance correctement. Le problème c'est que ces comptes doivent pouvoir être changés et le nombre de compte à inclure dans la clause "WHERE" aussi...! (sans retourner dans "Créer une requête" bien sur)
En passant par l'enregistreur de macro, j'ai donc obtenu une trame et je souhaite maintenant rendre variable ce qui se trouve dans "WHERE". Ce que je n'arrive pas à faire correctement...

Merci de votre aide!
26/02/2009, 16h40
pgz

Bonjour.

Le 'Array', c'était toi ou l'enregistreur de macro?
Tu en es où de ton code?
Tu as un enregistrement de macro qui fonctionne?

PGZ

Le "Array" c'est l'enregistreur de macro qui l'a mis. J'ai essayé de l'enlever et du coup il ne bloque plus sur "Incompatibilité de type", mais sur "Erreur générale ODBC" en fin de macro...

Voilà où j'en suis dans le code :
Ce code fonctionne uniquement si il n'y a qu'un seul compte, cad que la macro ne rentre pas dans la boucle "Do while". Dès qu'elle rentre dans la boucle, ça ne fonctionne plus ("Incompatibilité de type"), donc je suppose que c'est le "OR" qui est génant???

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
    
Range("B4").Select
   cpte = "(DELAIS.EXDCOQY = " & ActiveCell.Value & ")"
    ActiveCell.Offset(1, 0).Select
    Do While ActiveCell.Value <> ""
        cpte = cpte & " " & "OR" & " " & "(DELAIS.EXDCOQY = '" & ActiveCell.Value & "' )"
        ActiveCell.Offset(1, 0).Select
    Loop
    Sheets("1").Select
        With ActiveSheet.QueryTables.Add(Connection:= _
            "ODBC;DSN=CLTS;DBQ=J:\BASE_DE_DONNEES_ACCESS\CLIENTS.mdb;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _
            , Destination:=Range("A2"))
            .CommandText = Array("SELECT DELAIS.EXDDTKV, DELAIS.EXDCOQY, DELAIS.EXDCD, DELAIS.EXDHESI, DELAIS.DELAIS" & Chr(13) & "" & Chr(10) & "FROM `J:\BASE_DE_DONNEES_ACCESS\CLIENTS`.DELAIS DELAIS" & Chr(13) & "" & Chr(10) & "WHERE " & cpte & " AND (DELAIS.EXDHESI>" & heure_theo & ")" & Chr(13) & "" & Chr(10) & "ORDER BY DELAIS.EXDCD")
            .Name = "Lancer la requête à partir de CLT_test3"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .PreserveColumnInfo = True
            .Refresh BackgroundQuery:=False
        End With

Merci de votre aide!

26/02/2009, 17h23
pgz

Citation:

Envoyé par Eleda

Ce code fonctionne uniquement si il n'y a qu'un seul compte, ...

Donc

Code:

cpte = "(DELAIS.EXDCOQY = " & ActiveCell.Value & ")"

est correct.
Donc

Code:

cpte = cpte & " " & "OR" & " " & "(DELAIS.EXDCOQY = '" & ActiveCell.Value & "' )"

ne l'est pas.

Tu pourrais essayer

Code:

cpte = cpte & " OR (DELAIS.EXDCOQY = " & ActiveCell.Value & ")"

D'autre part, dans la chaîne SQL, cette portion

Code:

..."WHERE " & cpte & " AND (DELAIS.EXDHESI>"...

doit probablement être remplacée par

Code:

"WHERE (" & cpte & ") AND (DELAIS.EXDHESI>"

L'utilisation de la fonction Array avec CommandText reste mystérieuse pour moi.
Extrait de l'aide

Citation:

Pour les sources ODBC, la propriété CommandText fonctionne exactement comme la propriété SQL et la définition de la propriété génère l'actualisation des données.

Exemple
Cet exemple montre comment définir la chaîne de commande de la source de données ODBC de la première table de requête. Notez que la chaîne de commande constitue une instruction SQL.

Set qtQtrResults = _
Workbooks(1).Worksheets(1).QueryTables(1)
With qtQtrResults
.CommandType = xlCmdSQL
.CommandText = "Select ProductID From Products Where ProductID < 10"
.Refresh
End With

C'est vrai que tu ne définis pas CommandType, mais xlCmdSQL est la valeur par défaut...

Cordialement,

PGZ