Tri sur une colonne puis export en CSV avec nom et chemin

Bonjour à tous,

j'ai trouvé des posts sur le tri, d'autres sur l'export, mais je n'arrive pas à regrouper le tout,

je met mon fichier excel en pièce jointe

Le but recherché est de générer un fichier CSV, trier par fournisseur et dont le nom serait le nom de la feuille en cours, et le chemin nous allons dire \\text\

Merci pour votre aide

Bonsoir,

une proposition, à tester

Sub test()
    With ActiveSheet.UsedRange
        .Sort key1:=Range("E1"), order1:=xlAscending, Header:=xlYes
        fn = "f:\test\" & ActiveSheet.Name & ".csv" ' adapter le nom du fichier et du chemin 
    End With
    ActiveSheet.SaveAs fn, xlCSV
End Sub

Bonsoir

Merci pour ta réponse, deux petit point cependant est il possible d'avoir le séparateur ; au lieu de ,

est il possible egalement que le fichier ce génère sans qu'il s'ouvre, du moins je vois que le fichier est renommer en csv mais je dispose toujours de mes autres onglets jusqu'a la fermeture de ce dernier.

Merci encore

Re Bonsoir,

j'ai modifié à partir d'une autre macro trouvée, cela donne

Sub test()
    With ActiveSheet.UsedRange
        .Sort key1:=Range("E1"), order1:=xlAscending, Header:=xlYes

Dim Plage As Object, oL As Object, oC As Object, Tmp As String, Sep$
Sep = ";"
Set Plage = ActiveSheet.Range("A1:AJ" & ActiveSheet.Range("K65000").End(3).Row)
Open "C:\Users\Morgan\Desktop\" & ActiveSheet.Name & ".csv" For Output As #1
For Each oL In Plage.Rows
Tmp = ""
For Each oC In oL.Cells
Tmp = Tmp & CStr(oC.Text) & Sep
Next
Print #1, Tmp
Next
   End With
Close
End Sub

cela n'est peut etre pas très propre mais la macro fonctionne.

Merci pour votre aide