XL 2019 VBA problematique transormation xls en csv

Bonjour à tous

j'utilise depuis peu un code vba qui pour précision ne m'appartient pas

mon problème est que le code génère bien le fichier en csv mais garde dans le renommage le nom de l'ancienne extension

Exemple

joyce.xlsx devient joyce.xlsx.csv

avez vous apercu une anomalie dans le script ci-dessous ?


Sub ExportSheetsToCSV()

Dim xWb As Workbook
Dim xWs As Worksheet
Dim xcsvFile As String, location As String
Dim fileDir As Variant

location = "C:\test\test\"
file = Dir(location & "*.xlsx*")

Do While (file <> "")
Set xWb = Workbooks.Open(FileName:=location & file)
Application.DisplayAlerts = False
For Each xWs In xWb.Worksheets
xcsvFile = location & file & ".csv"
Application.ActiveWorkbook.SaveAs FileName:=xcsvFile, _
FileFormat:=xlCSV, CreateBackup:=False, Local:=True
Next xWs
xWb.Close
file = Dir
Loop
End Sub


Merci à vous

Joyce