Convertir chaque Classeur en un fichier CSV Séparé

Bonsoir à tous,

J'ai un fichier Excel que je veux convertir chaque classeur en un fichier CSV séparé et nommé avec son ancien nom du classeur source, et les mettre tous dans un nouveau repertoire nommé avec le nom du fichier Excel.

Merci

Bonjour,

j'ai l'impression qu'il y a un problème de vocabulaire dans ta demande.

J'ai un fichier Excel que je veux convertir chaque classeur en un fichier CSV séparé

Un fichier excel est un classeur, pas plusieurs. Et il est composé de feuilles.

A tester :

Sub copieCSV()
    Dim sh As Worksheet, ch As String
    ch = ActiveWorkbook.Path & "\" & Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)
    If Dir(ch, vbDirectory) = "" Then MkDir ch
    Application.ScreenUpdating = False
    For Each sh In Worksheets
        sh.Copy
        With ActiveWorkbook
            .SaveAs Filename:=ch & "\" & sh.Name & ".csv", FileFormat:=xlCSV
            Application.DisplayAlerts = False
            .Close
            Application.DisplayAlerts = True
        End With
    Next sh
End Sub

eric

Merci eric,

et désolé pour les fautes vocabulaire.

le code et testé avec réussite.

Merci encore