Discussion :

[jgresse1025]

Bonjour,

J'ai un fichier de suivi de fabrication fait sur excel qui marche bien et je voudrais l'améliorr.
Pour cela, il faudrait que je compare la date de lancement avec les dates d'autre fichier et ne sélectionner que les dates qui sont supérieures à la date de lancement.

Je ne sais pas comment faire.
J'ai essayer de modifier mes requètes mais ça ne marche pas.

Je vous joint un fichier word pour expliquer mon problème

J'ai cette requête

Code :

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

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

Et j'ai ça

Code :

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

1
2
 
Nb = RetournNb(mrs2, "[Lancé le]<>Null")

Je voudrais faire ça mais ça ne marche pas.

Code :

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

1
2
 
Nb = RetournNb(mrs2, "[Lancé le]>Workbooks("Monclasseur.xlsm).Sheets("Mafeuille").Range("Celluleavecladatedelancement")")

Ou essayer ça mais je ne sais pas comment l'écrire

Code :

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

1
2
 
Sql = "Select * from [2015$A6:J500] where [Lancé le]>Workbooks("Monclasseur.xlsm).Sheets("Mafeuille").Range("Celluleavecladatedelancement") & [Txx-xxxxx]='" & Me.ComboBox1.Text & "' and [Référence pièce Timex]='" & Me.ComboBox2.Text & "' and Description='" & Me.ComboBox3.Text & "' "

Merci de votre aide.

Julien

[Menhir]

http://www.developpez.net/forums/d84...s-discussions/

[Invité]

Bonjour,
Si Monclasseur.xlsm est également un classeur fermé! Là on est complètement dans les choux!

Code :

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

1
2
 
Sql = "Select * from [2015$A6:J500] where [Lancé le]>" & format(Workbooks("Monclasseur.xlsm").Sheets("Mafeuille").Range("Celluleavecladatedelancement") ,"yyyy-mm-dd") & " AND [Txx-xxxxx]='" & Me.ComboBox1.Text & "' and [Référence pièce Timex]='" & Me.ComboBox2.Text & "' and Description='" & Me.ComboBox3.Text & "' "

[jgresse1025]

Bonjour,

J'ai testé le code et ça ne marche pas.
Le classeur Monclasseur.xlsm est ouvert pourtant.

Je ne comprends pas pourquoi ça ne compare pas bien.
J'ai des dates inférieures à la date de lancement dans les fichiers dont je viens lire et ça n'en tient pas compte.

Avez-vous une idée de pourquoi ça ne marche pas?

[Invité]

Bonjour,

Code :

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

1
2
 
Sql = "Select * from [2015$A6:J500] where format([Lancé le],'yyyy-mm-dd')>'" & format(Workbooks("Monclasseur.xlsm").Sheets("Mafeuille").Range("Celluleavecladatedelancement") ,"yyyy-mm-dd") & "' AND [Txx-xxxxx]='" & Me.ComboBox1.Text & "' and [Référence pièce Timex]='" & Me.ComboBox2.Text & "' and Description='" & Me.ComboBox3.Text & "' "

[jgresse1025]

Ca marche

Merci bien