Ce site est optimisé pour être consulté depuis un navigateur moderne dans lequel JavaScript est activé.

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

ayi

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