Enregistrer chaque feuille d'un classeur dans des fichiers CSV séparés

[ForumBot]

Comment enregistrer chaque feuille d’un classeur Excel dans un fichier CSV séparé ?

[ayi]

Sub ExporterFeuilllesEnCSV()
    Dim ws As Worksheet
    Dim chemin As String
    chemin = ThisWorkbook.Path & "\"
    
    For Each ws In ThisWorkbook.Worksheets
        ws.Copy
        ActiveWorkbook.SaveAs chemin & ws.Name & ".csv", xlCSV
        ActiveWorkbook.Close False
    Next ws
End Sub