1 2 3 4 5 6 7 8
|
Private Sub Export_suivi_excel_Click()
Dim qd As QueryDef
Set qd = CurrentDb.CreateQueryDef("Requete_Temporaire", "Select numero_bordereau,numero_OT,Nom_tech_sly,Nom_batiment,Description,Numero_chantier,Avenant,Somme_cout_total,Date_pose,Date_demande_pose,Date_depose,Date_demande_depose,Date_rapp_compt,Commentaire From T_Bordereau ORDER BY numero_bordereau, avenant ASC")
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Requete_Temporaire", "C:\Users\Feuille_suivi_" & Format(Date, "dd.mm.yyyy") & ".xls"
DoCmd.DeleteObject acQuery, "Requete_Temporaire"
End Sub |
Partager