Bonsoir à tous,
Tout d'abord, je précise que je suis novice en terme de macro et VBA.
Je cherche à convertir plusieurs fichier.csv au format .xls via Macro.
Mes fichiers sont au format .csv, lorsque je les ouvre avec Excel, ils s'affichent organisés en colonnes comme un fichier .xls.
Lorsque j'utilise le code ci-dessous, le fichier est bien converti en ".xls" , mais il prend le format d'un fichier .csv avec séparateur cette fois-ci
Lorsque je réalise l'opération à la main, pas de soucis : Ouvrir => Enregistrer sous => au format .xls = OK
Sub try()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim myPath As String, myFile As String, aa As String
myPath = ThisWorkbook.Path
myFile = Dir(myPath & "\*.csv")
c = 1
Do Until myFile = ""
aa = Mid(myFile, 1, Len(myFile) - 4)
Workbooks.Open Filename:=myPath & "\" & myFile
ActiveWorkbook.SaveAs Filename:=myPath & "\" & aa & ".xls", FileFormat:=xlExcel8
ActiveWorkbook.Close
myFile = Dir
c = c + 1
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Il s'agit d'une macro que j'ai récupéré sur un forum et que j'ai tenté de modifier en vain
Je joins un des fichiers CSV que je dois convertir.
Auriez-vous une idée ?