Sheet saved in CSV but all the data are in one column

[Gwhaou]

Hi recently i tried by using one macro to save a particular sheet in CSV by asking the user the path and the name of the file that I want to save using Dialog box (Save As)

This is the code :

Public Sub Save_sheet_CSV()

Dim FileName As String
FileName = Application.GetSaveAsFilename(FileFilter:="Excel Files (*.csv), *.csv")

If FileName = "False" Then
MsgBox "No filename specified!", vbExclamation
Else
Sheets("DATA_SHEET").Select
ActiveSheet.Copy

Call Formatage_Export


Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:=FileName, FileFormat:=xlCSV
ActiveWorkbook.Close SaveChanges:=False
Application.DisplayAlerts = True

End If

End Sub

The specified sheet is correctly saved but, when i open the CSV file all the information are on the first column.
Is possible to fix that at the same time that the sheet is saving.

 

[Kerryx]

import the CSV file rather than just open it, as in some countries local settings the default seperator can be ";" instead of a comma

You can cheack as follows:

Go to Start > Settings > Control Panel > Regional and Language Options.
Click “Customize”.
Enter “,” for “List Separator”

 

[Kerryx]

Check what you have here

 

[Gwhaou]

Ok thank you so much for you help, i'm gonna do that right away

 

[Gwhaou]

Check what you have here
View attachment 73563

I tried and exported another time the "DATA_SHEET" in CSV but the format is still the same all the data are on the first cell.

 

[Fluff]

Duplicate to: Saving a specific worksheet in csv by using Dialog box Save As, so that the user can choose the path

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.