Requete PARAMETRE AVEC LA VALEUR DUNE CELLULE DANS VBA

[dohgba]

Bonjour a tous !
je suis sur un projet pour le quel je dois interoger une base exter pour remplir mon fichier excel

je doit passer en parmetre de la requete une date saisie dans une cellule, mais je galère,
svp help me...
voici la requete :
Set oRS = New ADODB.Recordset
Set oRS = cNx.Execute("SELECT F_DOCLIGNE.AR_REF, F_DOCLIGNE.CT_NUM, F_DOCLIGNE.DO_DATE, F_DOCENTETE.DO_HEURE
FROM F_DOCENTETE F_DOCENTETE, F_DOCLIGNE F_DOCLIGNE
WHERE F_DOCENTETE.DO_PIECE = F_DOCLIGNE.DO_PIECE AND F_DOCENTETE.DO_TYPE = F_DOCLIGNE.DO_TYPE AND ((F_DOCLIGNE.CT_NUM='AIWATCH') AND (F_DOCLIGNE.DO_DATE={d '2017-03-09'}))
ORDER BY F_DOCLIGNE.AR_REF, F_DOCENTETE.DO_HEURE").
la requete fonction, mon proble, je veux remplacer la valeure de la condition date par la value d'une cellule

 

[Bougla972]

Bonjour dohgba,

Peut-être comme ceci, à modifier sur le paramètre de date (F_DOCLIGNE.DO_DATE=):

"#" &  Format(RefCellule,"mm/dd/yyyy") &"#"
'Ou RefCellule = Adresse de la cellule

 

[Bougla972]

dohgba,

En complément voir ici, cela peut être utile.

 

[dohgba]

Bougla972, merci pour ta reponse, mais je ne comprens pas vraiment, stp esque je peux avoir un bout de code pouvant meclairer?

 

[dohgba]

voici le message que jobtien en executant le requete

 

[Bougla972]

Bonjour dohgba,

Il te faut rédiger ta requête en modifiant le paramètre de date et y insérer ce que je te propose en post #2

 

[dohgba]

Bonjour Bougla972, je saisi pas si c'est un souci de " " mais voici le message d'erreur sans les "..." au debut et a la fin.
voici la requete :
"SELECT F_DOCLIGNE.AR_REF, F_DOCLIGNE.CT_NUM, F_DOCLIGNE.DO_DATE, F_DOCENTETE.DO_HEURE FROM F_DOCENTETE F_DOCENTETE, F_DOCLIGNE F_DOCLIGNE WHERE F_DOCENTETE.DO_PIECE = F_DOCLIGNE.DO_PIECE AND F_DOCENTETE.DO_TYPE = F_DOCLIGNE.DO_TYPE AND ((F_DOCLIGNE.CT_NUM='AIWATCH') AND (F_DOCLIGNE.DO_DATE=# " & Format(Cells(3, 2), "mm/dd/yyyy") & " # )) ORDER BY F_DOCLIGNE.AR_REF, F_DOCENTETE.DO_HEURE"

 

[dohgba]

avec les " ..." au debut et a la fin comme tu l'a dit, voici le message d'eurreur

 

[Bougla972]

Bonjour dohgba,

Ecrit ceci:

(F_DOCLIGNE.DO_DATE=#" &  Format(Cells(3,2),"mm/dd/yyyy") &"#))"