Créer des fichiers csv à partir de PQ / macro

Bonjour,

J'ai fait une PQ qui me génère une petite dizaine d'onglet excel.

Est-ce qu'il est possible d'automatiser l'enregistrement de chacun de ces onglets en autant de fichiers csv (UTF8 séparés par des virgules) ?

Par PQ ou macro?

Si c'est quelque chose de faisable, je peux construire un fichier excel d'exemple.

Via macro j'imagine que quelque chose de ce genre pourrait tenir la route?

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets("Position").Select
    ChDir _
        "C:\XXXXX"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\XXXXXPosition.csv" _
        , FileFormat:=xlCSVUTF8, CreateBackup:=False
End Sub

Bonjour,

Pour enregistrer tous les onglets, macro à adapter selon le nom de vos onglets. Dans l'exemple suivant, ils s'appelleront tous "Position " suivit d'un n°.

Sub Enregistrer_CSV()
    Dim i As Long
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For i = 1 To Sheets.Count
        Sheets(i).Select
        ChDir "C:\XXXXX"
        ActiveWorkbook.SaveAs Filename:="C:\XXXXXXXX\" & "Position" & i & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False
    Next i
End Sub

Cdlt