Bonjour,

Voici mon problème:
J'ai un dossier rempli de fichier .CSV. J'aimerais convertir tous ces fichiers en .XLSX et les envoyer vers un autre dossier.
Ma contrainte: Les .CSV ont des ";" en guise de délimitation...

Voici mon code, qui d'après moi est bon, mais ne prend pas en compte le format 4 de delimiter qui devrait etre les";".
La macro me les converti mais en prenant les "," comme delimiter....

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub CSVtoXls()
 
 Dim CSVfolder As String
 Dim XlsFolder As String
 Dim fname As String
 Dim wBook As Workbook
 
 CSVfolder = "C:\Users\Desktop\TEST\"
 XlsFolder = "C:\Users\Desktop\TEST_XLSX\"
 
 fname = Dir(CSVfolder & "*.csv")
 
 Do While fname <> ""
    Set wBook = Workbooks.Open(CSVfolder & fname, Format:=4)
    wBook.SaveAs XlsFolder & Replace(fname, ".csv", ""), ThisWorkbook.FileFormat
    wBook.Close False
 fname = Dir
 Loop
 
End Sub
Ai-je oublié quelques choses ?

(Ps: dsl pour les fautes s'il y en a, c'est certainement la fatigue...)