Dim str_Req as String
Dim d_DateInf as Date
Dim d_DateSup as Date
d_DateInf = cdate(Worksheets("Dossiers").Range("H1").value)
d_DateSup = cdate(Worksheets("Dossiers").Range("H2").value)
str_Req = "select ""XXXX"" as c_le_nom_de_la_Requete,db_name() as c_le_Num_Dossiers, ppu_createur Collaborateur, count(ppu_salarie) NbPaie from paieencours where ppu_datecreation >=" & cstr(d_DateInf) & " AND ppu_datecreation<=" & cstr(d_DateSup) & " group by ppu_createur order by ppu_createur"