MS query dans VBA

[Cedos]

bonjour,

je cherche à savoir comment mettre en variable une date dans un code VBA portant sur une MS Query.

voici le code :

With Selection.QueryTable
.Connection = _
'ODBC;DSN=AmisPerf;UID=ccf_select;PWD=ccf_select;SRVR=APIBACKUP;DB=amissuivi_prod_db'
.CommandText = Array( _
'SELECT PR_INSTRUMENT_COURS.PR_ICO_DATE, PR_INSTRUMENT_COURS.PR_INS_ID, PR_INSTRUMENT_COURS.PR_ICO_COURS, PR_INSTRUMENT_COURS.PR_ICO_TAUX, PR_INSTRUMENT_COURS.PR_ICO_COURS_BRUT, PR_INSTRUMENT_COURS.PR_' _
, _
'ICO_COURS_SPLIT, PR_INSTRUMENT_COURS.PR_ICO_COUPON, PR_INSTRUMENT_COURS.PR_ICO_NBTITRE, PR_INSTRUMENT_COURS.PR_ICO_CAPI, PR_INSTRUMENT_COURS.PR_ICO_FRAIS, PR_INSTRUMENT_COURS.PR_ICO_STATUT' & Chr(13) & '' & Chr(10) & 'FROM amiss' _
, _
'uivi_prod_db.dbo.PR_INSTRUMENT_COURS PR_INSTRUMENT_COURS' & Chr(13) & '' & Chr(10) & 'WHERE (PR_INSTRUMENT_COURS.PR_ICO_DATE={ts '2005-09-30 00:00:00'}) AND (PR_INSTRUMENT_COURS.PR_INS_ID=21730)' _
)
.Refresh BackgroundQuery:=False
End With

je cherche donc à mettre la date en variable par exemple en la nomant date_repo mais je n'arrive pas à trouver comment l'insérer dans ce code SQL adapter à VBA.

Merci

 

[PascalXLD]

Bonjour

Pas sûr mais essaies

'WHERE (PR_INSTRUMENT_COURS.PR_ICO_DATE={ts '' & format(DateVar,'yyyy-mm-dd hh:mm:ss') & ''})

Bon courage

 

[Cedos]

génial Pascal, un grand merci :: ça marche !!!!!!