Le bouton Exporter ressemblera à ceci:
Private Sub ExporterClients_Click()
If IsNull(Me!Depuis) Then MsgBox " veullez renseigner les dates", , Me.Caption: Exit Sub
If IsNull(Me!JusquAu) Then MsgBox " veullez renseigner les dates", , Me.Caption: Exit Sub
If Me!Depuis = " " Then MsgBox " veullez renseigner les dates", , Me.Caption: Exit Sub
If Me!JusquAu = " " Then MsgBox " veullez renseigner les dates", , Me.Caption: Exit Sub
If Me!Depuis > Me!JusquAu Then MsgBox " veullez vérifier les dates", , Me.Caption: Exit Sub
Crit$ = " [DATE FACTURE]>= #" & Format(Me!Depuis, " mm/dd/yyyy") & " #"
Crit$ = Crit$ & " and [DATE FACTURE]<= #" & Format(Me!JusquAu, " mm/dd/yyyy") & " #"
GlobalDateDéb = Me!Depuis: GlobalDateFin = Me!JusquAu
DoCmd.TransferSpreadsheet [acExport], [acSpreadsheetTypeExcel9], " CLIENTS_POUR_EXPORTATION", CheminExportationClients & " CLIENTS.XLS", True
Dim MyDb As Database, MyCl As Recordset
Set MyDb = CurrentDb()
Set MyCl = MyDb.OpenRecordset("CLIENTS_POUR_EXPORTATION", dbOpenSnapshot)
If Not MyCl.EOF Then MyCl.MoveLast
MsgBox " Fichier clients exporté vers " & CheminExportationClients & " CLIENTS.XLS" & Chr(10) & Chr(13) & " Nombre de clients = " & MyCl.RecordCount, , " EXPORTATION FICHIER CLIENTS"
MyCl.Close: Set MyCl = Nothing: Set MyDb = Nothing
End Sub