Discussion :

[jojo86]

Bonjour,
Je souhaite faire un update d'une feuille excel à partir de la somme d'une autre colonne.
Pour cela, j'ai découvert qu'il fallait utiliser DSum.
Je n'arrive pas à m'en sortir avec le code... J'essaie de placer les guillements ' pour definir mon critère comme texte, mais j'ai toujours une erreur d'execution...
Je tourne en rond et j'arrive à saturation après 3 heures de recherches sur le web je me suis decidé à poster.

Le code ci-dessous semble être digéré car lors du message d'erreur, la chaine t1.`Module` est remplacée par le contenu d'une cellule donc ça fonctionne, mais ça plante car il manque les apostrophes '
Le message est d’ailleurs clair : " Erreur de syntaxe (opérateur absent) dans l'expression " `Module` = module6 "

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
requete = "update [Donnees$] as t1 Left Join [Données_Previsions$] as t2 On t1.`Module` = t2.`Module` " & _
"Set t1.`Prevision` = DSum(""`Prévision`"", ""[Données_Previsions$]"", ""`Module` ="" & t1.`Module`);"

En reprenant le message d'erreur, je comprends bien que le système souhaite l'ajout des apostrophes pour obtenir le resultat suivant :
" Erreur de syntaxe (opérateur absent) dans l'expression " `Module` = 'module6' "
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
requete = "update [Donnees$] as t1 Left Join [Données_Previsions$] as t2 On t1.`Module` = t2.`Module` " & _
"Set t1.`Prevision` = DSum(""`Prévision`"", ""[Données_Previsions$]"", ""`Module` ='"" & t1.`Module` & ""');"

Merci d'avance pour votre aide car là je ne sais plus quoi faire...

[Jean-Philippe André]

Salut;

tu nous confirmes que tu fais une requete sous Access au final ? car DSum n'existe pas sous SQL server ou MySQL...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
requete = "update [Donnees$] as t1 Left Join [Données_Previsions$] as t2 On t1.Module = t2.Module " & _
"Set t1.Prevision = DSum('Prévision','[Données_Previsions$]', 'Module =t1.Module');"

[jojo86]

Bonjour Jean-Philippe,
Je suis sur excel. J'utilise le moteur ADODB pour faire des requetes sur mon classeur.
J'avais déjà essayé en placant les quotes comme tu me l'a conseillé, mais avec cette mise en forme, j'ai le message d'erreur :
"Trop peu de paramètres. 1 attendu."

[jojo86]

Super !!!!!!!
J'ai trouvé !!!!!!!!
Bon j'avoue que c'est super tordu ! Il faut jouer en integrant Chr(34) da

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
requete = "update [" & Feuille.Name & "$] as t1 Left Join [Données_Previsions$] as t2 On t1.`Module` = t2.`Module` " & _
"Set t1.`Prevision` = DSum(""`Prévision`"", ""[Données_Previsions$]"", ""`Module` = "" & Chr(34) & t1.`Module` & Chr(34) & "" AND `Mois` = '" & Mois & "'"");"

[Invité]

Bonsoir,
J'avoue c'est tordu!

Fais ta requête dans Access et après colles le script Sql dans vba : https://mon-partage.fr/f/LoCWKVjq/

"t2. [Module]= t1.[Module] And [Mois]= '" & Mois & "'"Module=t1.module est inutile vue que c'est déjà dans ta jointure!