XL 2019 VBA problematique transormation xls en csv

  • Initiateur de la discussion Initiateur de la discussion JoyceD
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

JoyceD

XLDnaute Nouveau
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
20
Affichages
3 K
Réponses
1
Affichages
1 K
Retour