Modification requête SQL dans code VBA excel

Bonjour,

Je cherche à modifier les requêtes SQL de mon code afin que ça me résolve le problème expliqué dans le document Word.
Je ne voit pas comment faire.
Je vous mets en pièce jointe les fichiers que j'utilise.

J'avais pensé modifier les requete de ce genre:

Code:

---

Sql = "Select * from [2015$A6:J500] where [Demandé le]=MAX(Demandé le) and [Txx-xxxxx]='" & Me.ComboBox1.Text & "' and [Référence pièce Timex]='" & Me.ComboBox2.Text & "' and Description='" & Me.ComboBox3.Text & "' & [Fait]="" "

---

Mais ça me mets une erreur sur le [Demandé le]=MAX(Demandé le) et sur le [Fait]="".

Comment puis-je faire ?

(C'est le seul moyen que je vois pour le moment pour contourner mon problème.

Merci d'avance pour votre aide
Cordialement

Bonjour,

Je pense qu'il te manque des guillemets pour séparer ta chaîne SQL des variables
Dans ceci, j'imagine que 2015$A6:J500 est une plage de la feuille 2015, c'est ça ? et (Demandé le) est le nom d'une plage , c'est aussi ça ?

Citation:

---

Sql = "Select * from [2015$A6:J500] where [Demandé le]=MAX(Demandé le)

---

Si c'est bien ça, il faudrait écrire quelque chose du genre

Code:

---

Sql = "Select * from [" & 2015!$A6:J500 & "] where [Demandé le]=" & MAX(Demandé le) & ".....

---

Bonjour,

2015$A6:J500 est bien le nom de la plage.
Demandé le est le nom d'une colonne de cette plage comme Txx-xxxxx ou Description ou Référence pièce Timex.

En fait, je veux que la requète sélection toutes les lignes avec les information renseigné dans les combobox et qu'elle me garde que celle avec la date (renseigné dans la colonne demandé le) la plus grande entre ces lignes ayant les même information.

J'ai essayé ce que tu m'as dis et ça ne marche pas.

Je ne vois pas comment faire...

Merci d'avance pour votre aide.
Julien

Bonsoir.

Pour désigner la plage comme source de données, je pense que c'est

Code:

---

... FROM [2015$A6:J500]

---

Ensuite je pense que ta requête ne peut pas fonctionner. Tu fais une requête de sélection et Max() n'a de sens que dans un regroupement. Tu peux t'en tirer avec une sous-requête, mais le plus simple est de faire en 2 étapes.

D'abord chercher la valeur Max

Code:

---

"Select Max([Demande le]) as MaxDemande FROM [2015$A6:J500]; "

---

Puis utiliser la valeur lue dans une nouvelle requête de sélection

Code:

---

Select * FROM [2015$A6:J500] WHERE [Demande le] = ...

---

Attention si Demandé le est une date il faut formater la valeur Max dans la clause WHERE.

En espérant que cela t'aide,

pgz

Bonsoir,
http://www.developpez.net/forums/d15...a/#post8166469

Ou alors

Code:

---

1 2 3 4 5 6

Sql = "select MAX([Demandé le]) as MaxDemande,[Demandé par],[Txx-xxxxx],[Référence pièce Timex],[Description pièce TIMEX],[Description]," Sql = Sql & "[Type],[Quantité],[URGENT],[Fait],[Durée d'usinage UPH-2],[Durée d#usinage UP32j] " Sql = " from [2015$A6:J500] where [Txx-xxxxx]='" & Me.ComboBox1.Text Sql = Sql & "' and [Référence pièce Timex]='" & Me.ComboBox2.Text & "' and Description='" & Me.ComboBox3.Text & "' " Sql = Sql & "Group By [Demandé par],[Txx-xxxxx],[Référence pièce Timex],[Description pièce TIMEX]," Sql = Sql & "[Description] , [Type], [Quantité], [URGENT], [Fait], [Durée d'usinage UPH-2], [Durée d#usinage UP32j]"

---