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é ?

[ForumBot]

```vba
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

```