Enregister sous au format CSV

Question

Salut,

Je souhaite enregistrer une feuille Excel dans un format CSV avec le point-virgule comme séparateur.

Je ne comprends pas pourquoi l'enregistrement se fait avec une virgule comme séparateur.

Voici le bout de code :

ActiveWorkbook.SaveAs FileName:=nom_fichier, FileFormat:=xlCSV  , CreateBackup:=False

Merci d'avance pour votre aide

cs_Jack · Answer

Salut france93 
Comme d'habitude pour le VBA sous Excel ou Word, crée une macro qui enregistre ce que tu fais quand tu fais cette sauvegarde à la main et ouvre la macro pour voir le code.
Il y a surement un paramètre supplémentaire à la commande SaveAs pour spécifier le séparateur !

Vala
Jack

cs_france93 · Answer

J'ai trouvé la solution sur votre site : je vous l'indique, ça peut servir :

Dim sLigne As String
Dim i As Integer, j As Integer

Open nom_fichier_csv For Output As #1

For i = 1 To ActiveSheet.UsedRange.Rows.Count
For j = 1 To ActiveSheet.UsedRange.Columns.Count
sLigne = sLigne & CStr(ActiveSheet.Cells(i, j).Text) & ";"
Next j
Print #1, sLigne
sLigne = ""
Next i

Close #1

A+
France93

Enregister sous au format CSV

2 réponses

Discussions similaires