Sauvegarder d'un Fichier Excel en Fichier csv

Set rs = CurrentDb.OpenRecordset(strsql, dbOpenDynaset)
 Set excl = fExportExcel(chemin, rs, True, 1, 1)
 Path = CurrentProject.Path
Private Sub cmd6_Click()
'---Parcourt de la feuille
     With excl.Sheets(1)
            .Columns("I:I").ColumnWidth = 12 
            .Cells(1, 9).HorizontalAlignment = xlCenter
           .Columns("I:I").VerticalAlignment = xlCenter
           .Columns("I:I").HorizontalAlignment = xlCenter
           .Columns("I:I").WrapText = True

            With .PageSetup
                     .CenterHeader = "&G&18&K&""Comic Sans Ms"" &  " & Ex_Titre    
                     .LeftFooter = "&I&D / &T" 
                     .RightFooter = "&8&P/&N »
                     .Orientation = xlLandscape
                    .zoom = False
                    .
                   .
          End With
      End With

  '--- Sauvegarde d'Excel
        excl.SaveAs Path & "\" & "DOSSIERS\DOSSIERS EXCEL\" & D_Dossier & "" & ".csv"

excl.Application.Quit
        MsgBox "Tableau Excel Terminé"
 Set excl = Nothing
Exit Sub

Set excl = Nothing
Set rs = Nothing
End sub