XL 2019 VBA problematique transormation xls en csv

[JoyceD]

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

 

[Hasco]

Bonjour,

Essayez ce remplacer la ligne :
xcsvFile = location & file & ".csv"

Par
xcsvFile =location& replace(file,".xlsx",".csv")

Cordialement

 

[JoyceD]

c'est parfait 🙂

Merci Hasco

Au passage j'utilise une seconde macro pour supprimer les fichiers en XSLX juste après le lancement du premier script qui transforme en CSV une solution permet de combiner dans la VBA du csv ?