copier feuille dans un nouveau fichier et l'enregistrer en .csv

[arturo]

Bonjour à tous

Est-il possible copier une feuille dans un nouveau fichier et l'enregistrer en format .csv

Merci

 

[kiki29]

Re : copier feuille dans un nouveau fichier et l'enregistrer en .csv

Salut, oui via le macro recorder par exemple puis ensuite en optimisant le code généré manuellement
Ce qui devrait ressembler à qqch comme ceci

Option Explicit

Sub Tst()
    Application.ScreenUpdating = False
    Workbooks.Add
    ThisWorkbook.Sheets("Feuil1").UsedRange.Copy Range("A1")
    
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "Classeur2.csv", FileFormat:= _
        xlCSV, local:=True
    ActiveWindow.Close
    With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
End Sub