ActiveSheet.QueryTables feuille Excel

Bonjour,
J'ai une requete SQL qui me renvoie "Erreur générale ODBC 1004"
lorsque j'ajoute le

Citation:

---

where [ANC]=..."

---

(cf code ci dessous) sinon cela marche très bien.

La ligne 4 de la feuille Excel correspond bien à ma ligne de titre où se trouve la colonne "ANC"
J'ai essayé avec et sans les crochets pour "ANC".
Merci de vos idées.
(ValeurCourante est une string)

Code:

---

1 2 3 4 5 6 7 8

sqlstring = "select * from [Global CIS$" & "A4:AM1800" & "] where [ANC]=" & "'" & ValeurCourante & "';" connstring = _ "ODBC;FILEDSN=D:\RH\masource.dsn;Database=repertoire" With ActiveSheet.QueryTables.Add(Connection:=connstring, _ Destination:=Range("AZ1"), Sql:=sqlstring) .Refresh End With

---

Bonsoir.

As-tu vérifié si la colonne ANC était bien renseignée dans tout le tableau des données sources et contient bien des chaînes de car?
Peux-tu faire un essai en mettant du texte dans toutes ces cellules, sans vide?

Cordialement,

PGZ

Bonjour,

Je viens de faire le test avec des valeurs dans toute la colonne.
(il manquait une bien une valeur, j'ai complété)
J'ai bien des variables de type Texte (type Excel du format sur toute la colonne)
et je suis toujours en "Erreur Générale ODBC numéro 1004"

Voici une copie de la chaine SQL issue de "l'espion"

Citation:

---

"select * from [Global CIS$A4:AM1800] where [ANC]='2,00';"

---

Peut être des idées ?

Bonjour,

Pas mieux.
Je viens d'essayer avec une colonne qui contient les noms et ca marche très bien. Par contre dés que c'est avec des chiffres : "erreur 1004."
J'ai essayé de modifier tous les parametres de format pour du texte dans Excel 2007.
Et j'ai aussi copié ma colonne en valeur, car elle était le resultat d'une formule.
Je glisse mon ficher DSN peut être que j'ai écrit une bétise :

Citation:

---

[ODBC]
DRIVER=Driver do Microsoft Excel(*.xls)
UID=admin
UserCommitSync=Yes
Threads=3
SafeTransactions=0
ReadOnly=0
PageTimeout=5
MaxScanRows=8
MaxBufferSize=2048
FIL=excel 12.0
DriverId=790
DefaultDir=D:\RH
DBQ=D:\RH\REM2010 - 24-11-2010.xls

---

Merci de votre retour

bonjour,

quitte à dire une bétise

ce ne serait pas parce que la clause 'WHERE' est de type TEXTE?

Bonjour.

Tout cela confirme bien qu'il s'agit d'une erreur de type. Ce que je ne comprends pas, c'est que si tu as des valeurs numériques dans la colonne ANC, pourquoi faire un test avec une string?

Code:

---

sqlstring = "select * from [Global CIS$" & "A4:AM1800" & "] where [ANC] = " & ValeurCourante & ";"

---

Avec ValeurCourante de type numérique, devrait bien fonctionner.

Cordialement,

PGZ

Avec cela il plante, toujours erreur 1004

Code:

---

"select * from [Global CIS$A4:AN1800] where [ANCD]=4.74"

---

Dans excel ma colonne est considéré comme nombre.
Et quand je selectionne la colonne la somme automatique se fait bien.
J'ai écrit 4.74 comme double dans mon code, dois je utiliser un autre type ?
Si vous avez des idées ?

Citation:

---

Envoyé par comme de bien entendu

J'ai écrit 4.74 comme double dans mon code, ...

---

Je ne comprends pas.

PGZ

Euh je voulais dire...

Code:

---

1 2	Dim ValeurCourante As Double ValeurCourante = 4.74

---

Question : si il ne renvoie rien parce qu'il ne trouve pas, il ne déclenche pas d'erreur ?

Bon je suis repassé en SQL classique, connexion ADO et recordset et ca marche.
Je laisse tombé QueryTables pour le moment.
J'aime bien apprendre mais y a des limites à mon entetement. ;)
Merci de votre aide.

Citation:

---

Bon je suis repassé en SQL classique, connexion ADO et recordset et ca marche.

---

Ben figure toi que à la lecture de ton post, j'étais directement parti sur cette même idée.

Cela dit ce genre de truc doive pouvoir servir dans une fonction à mettre dans un cellule sans toucher à ADO. Histoire de pas bloquer plus de 5 minutes quand on veut faire du sql.

Code:

---

1 2 3 4

With ActiveSheet.QueryTables.Add(Connection:=connstring, _ Destination:=Range("AZ1"), Sql:=sqlstring) .Refresh End With

---

Bon là ca a pas été franchement le cas. :?