[XL-2016] [VBA] Exporter des données en csv avec point virgule en utilisant Application.GetSaveAsFilename

Bonjour tout le monde,

J'ai ce code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub ExportCsv()
    Dim fileName As String
    Fichier = "var_lst"
    Range("Ewon_csv[[#Headers],[Id]]").Select
    Selection.CurrentRegion.Select
    Application.CutCopyMode = False
    Selection.Copy
    Workbooks.Add
    'ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
    f = Application.GetSaveAsFilename(Fichier, Filefilter:="CSV (*.csv), *.csv")
    If f = False Then
        ActiveWindow.Close False
    Else
        ActiveWorkbook.SaveAs fileName:=f
    End If
End Sub

Malheuresement, ne tranforme pas le fichier XML en fichier CSV avec ";"
Sinon j'ai bien une fenetre d'enregistrement où l'on peut modifier le chemin et/ou le nom de fichier

Comment résoudre/contourner ce problème?
Merci d'avance.