Remplacer les virgules par des points-virgules dans un fichier .csv

Bonjour,

Avec le code d'exportation d'un fichier en .csv, peut-on remplacer les ',' par des ';" et ajouter la date d'extraction (du jour) au nom du fichier:

Merci!

Sub Export()
    ActiveWorkbook.RefreshAll
    Sheets("Export").Select
    ActiveWorkbook.SaveAs Filename:=Left(Range("Fichier"), Len(Range("Fichier")) - 4) & "csv", FileFormat:=xlCSV, CreateBackup:=False
    ThisWorkbook.Close SaveChanges:=False
    MsgBox "Exportation terminé"
End Sub