VBA SQL sur classeur, Update/Select DSum?

Bonjour,

Initialement, je voudrais faire une requête Update avec un calcul de somme sur un champ en fonction de certains critères.
J'ai essayé ce genre de requête, mais sous Excel ça ne fonctionne pas alors que sous Access ça doit pouvoir marcher.

Code:

---

1 2	Requete = "UPDATE [Feuil10$A1:I10000] AS t1 Set t1.Somme = Dsum(`MonChamp`, 'Select `Article`, `Qte`, `MonChamp` From [Importation$], MonChamp= 'Critere') Where t1.Cle=Cle"

---

Cette requête ne fonctionne pas du tout. Sous access, Dsum est utilisée avec des guillemets ". Sous Excel, les guillemets servent à ouvrir et fermer une chaîne de caractère, j'ai donc essayé avec des apostrophes ' et aussi avec ce caractère `, mais rien n'y fait, ça ne fonctionne pas...

Avez-vous une idée de comment utiliser DSum?

Merci d'avance.

Bonjour,

Code:

---

Requete = "UPDATE [Feuil10$A1:I10000] AS t1 Set t1.Somme = Dsum([MonChamp], (Select [Article], [Qte], [MonChamp] From [Importation$] in 'C:\MonRep\MonFichier.xlsx' 'excel 8.0;HDR=Yes;IMEX=1;' ), MonChamp= 'Critere') Where t1.Cle=Cle"

---

si Importation est dans le même fichier Excel, pas besoin de in 'C:\MonRep\MonFichier.xlsx' 'excel 8.0;HDR=Yes;IMEX=1;'

Salut, et merci beaucoup de ton aide, je ne pensais pas avoir une réponse.
J'ai adapté ton code, et maintenant j'ai le message suivant : "Vous avez écrit une sous-requête pouvant renvoyer plus d'un champ sans utiliser le mot réservé EXISTS dans la clause FROM de la requête principale. Réviser l'instruction SELECT de la sous-requête pour obtenir un seul champ...

J'en conclu qu'il ne digère pas le Select... Mais si je n’inclus pas ces champs, comment Dsum peut-il fonctionner?

dès que les chose ce complique, on est vite perdu avec ce genre de truc!

fais une requête de sélection et intéresse toi juste qu'au Dsum! après on réfléchira de concert!

Hélas, j'ai le même message d'erreur sur une simple instruction Select...
J'ai essayé de bricoler avec ça, mais rien à faire...:aie:

Code:

---

1 2	Requete = "Select Article, Dsum([Utilisationlibre], (Select [Article], [Utilisationlibre], [Magasin] " & _ "From [Importation$A1:Q20000])) as t2 From [Importation$A1:Q20000]"

---

Code:

---

1 2	Requete = "Select t1.Article, Dsum([Utilisationlibre], (Select [Article], [Utilisationlibre], [Magasin] " & _ "From [Importation$A1:Q20000])) as t2 From [Importation$A1:Q20000] as t1"

---

Code:

---

1 2	Requete = "Select t1.Article, Dsum(t3.[Utilisationlibre], (Select t3.[Article], t3.[Utilisationlibre], t3.[Magasin] " & _ "From [Importation$A1:Q20000] as t3)) as t2 From [Importation$A1:Q20000] as t1"

---

Je crois que je vais lâcher l'affaire et passer par deux requêtes différentes, une select et une update, en stockant le résultat du select dans une table temporaire...
Le SQL sur Excel ca reste quand même très spécifique dès qu'on veut faire un truc un peu plus compliqué...

Je dois avancer sur ma macro, si jamais quelqu'un à une idée je reste preneur.