VBA/ADO requêtes SQL

Bonjour,
je me connecte via ADO à une source de données excel (fermée) et j'aimerai à l'aide de requêtes SQL récupérer les données qui m'interaissent pour ensuite les insérer dans une feuille excel ouverte. Ma connexion fonctionne néanmoins mais ma requête de fonctionne pas. L'idée est dans le code, quelle est la bonne syntaxe ?

merci :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

'récupérer le n°centre Centre = Range("C14").Value     'récupérer la SI correspondante dans le fichier source 0410 0420 1410 texte_SQL1 = "SELECT FUMTRAN FROM [extraction$] WHERE FNOCI=Centre AND FNOCA=0410 " texte_SQL2 = "SELECT FUMTRAN FROM [extraction$] WHERE FNOCI=Centre AND FNOCA=0420 " texte_SQL3 = "SELECT FUMTRAN FROM [extraction$] WHERE FNOCI=Centre AND FNOCA=1410 "   Set Rst1 = New ADODB.Recordset Set Rst2 = New ADODB.Recordset Set Rst3 = New ADODB.Recordset   Set Rst1 = Cn.Execute(texte_SQL1) Set Rst2 = Cn.Execute(texte_SQL2) Set Rst3 = Cn.Execute(texte_SQL3)   Somme = Rst1 + Rst2 + Rst3   'Ecrit le résultat de la requête dans la cellule p14 Range("P14").CopyFromRecordset Somme

---

le sql serait mieux ainsi

Code:

---

1 2 3 4

texte_SQL1 = "SELECT sum(FUMTRAN) as total FROM [extraction$] WHERE FNOCI= " & Centre " & "AND (FNOCA='0410' or FNOCA='0420' or FNOCA='1410' "

---

Code:

---

1 2 3 4

texte_SQL1 = "SELECT sum(FUMTRAN) as total FROM [extraction$] WHERE FNOCI= " & Centre " & "AND (FNOCA='0410' OR FNOCA='0420' OR FNOCA='1410' "

---

J'ai une erreur de syntaxe au niveau & Centre & il me dit attendu fin d'instruction :( Quelqu'un à une idée ?

Ou puis-je trouver de la doc sur la syntaxe à utiliser dans les requêtes SQL VBA ?

Bonjour

Code:

---

1 2 3 4

texte_SQL1 = "SELECT sum(FUMTRAN) as total FROM [extraction$] WHERE FNOCI= " & Centre " & "AND (FNOCA='0410' OR FNOCA='0420' OR FNOCA='1410' "

---

Essaie

Code:

---

1 2 3 4

texte_SQL1 = "SELECT sum(FUMTRAN) as total FROM [extraction$] WHERE FNOCI= " & " Centre " & "AND (FNOCA='0410' OR FNOCA='0420' OR FNOCA='1410' "

---

Cordialement

il manque un espace avant le and et si fnoci est texte cela donnerait

Code:

---

1 2 3 4 5

texte_SQL1 = "SELECT sum(FUMTRAN) as total FROM [extraction$] WHERE FNOCI= '" & Centre " & "' AND (FNOCA='0410' OR FNOCA='0420' OR FNOCA='1410' "

---

il s'agit de placer centre entre ' et '

j'ai toujours la même erreur : attendue fin d'instruction à la fin de la ligne centre

Cordialement,

Bonjour

Simplement en regardant la syntaxe ce ne serait pas

Code:

---

1 2 3 4

texte_SQL1 = "SELECT sum(FUMTRAN) as total FROM [extraction$] WHERE FNOCI= '" & Centre & _ "' AND (FNOCA='0410'" & _ "OR FNOCA='0420'" & _ "OR FNOCA='1410' "

---

Merci de votre aide ma requête fonctionne le problème se trouvait au niveau de la variable Centre que je devais écrire ' " &Centre& " '. Maintenant j'ai une nouvelle erreur, je veux caster le résultat de mon recordset en un Double pour pouvoir faire des opérations dessus mais j'ai le message d'erreur suivant : INCOMPATIBILITE DE TYPE à cause du CDbl. J'ai essayé de le caster en Integer, rien à faire je n'arrive pas à le caster.

Code:

---

1 2 3 4

Set Rst = Cn.Execute(texte_SQL)   Dim Resultat As Double Resultat = CDbl(Rst)

---

Quelqu'un a une idée ?

Merci d'avance !!

essaye comme ca

Code:

---

1 2 3 4 5 6

Set Rst = Cn.Execute(texte_SQL)   Dim Resultat As variant Resultat = rst.[total] Resultat=Cdbl(resultat)

---

J'ai essayé mais je n'ai pas accès au total de la requête SQL? VBA ne reconnait pas le variable. Existe-t-il un moyen de caster le resultat d'un recordset en integer ?

Code:

---

1 2 3 4 5

Set Rst = New ADODB.Recordset Set Rst = Cn.Execute(texte_SQL)   Dim Resultat As Double Resultat = CDbl(Rst)

---

Bonjour,

Il faut dire quel champ de ton RecordSet tu veux utiliser.
Essaie

Code:

---

Resultat = CDbl(Rst("total"))

---