Enregistrer une feuille en .csv en conservant le séparateur ";"

**Reply** · 28/01/2016, 16h19

Bonjour,

Ce sujet a été abordé, mais dans ma recherche je n'ai pas trouvé la solution.

A partir d'un fichier .xlsm (sous Mac) j'ai une feuille que je veux isoler sans un nouveau fichier .csv. avec comme séparateur ";" OBLIGATOIREMENT.
Ce fichier servira à un import dans une web apps.

Le problème que je rencontre, c'est que le fichier .csv s'enregistre avec comme séparateur ",".
Je ne peux pas modifier les paramètres de mon poste, car cette option sera réalisée sur plusieurs machines sans que j'en ai connaissance.
Je vous joins mon code.

Merci de votre assistance.

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
21
22
23
24
25
 
Sub Import()
'
' Import_restaurant Macro
' Création d'un fichier csv pour import Appli
'
    Sheets("IMPORT_HEURES").Select
    Sheets("IMPORT_HEURES").Copy
    Range("A1").Select
 
    'Mise en forme de la colonne de date au format "dd-mm-yyyy"
    Columns("A:A").Select
    Selection.NumberFormat = "dd-mm-yyyy"
    Range("A2").Select
 
    'Chemin d'enregristrement du nouveau fichier au format csv
    ActiveWorkbook.SaveAs Filename:= _
        "Macintosh HD:Users:moi:Desktop:import_restaurant.csv", FileFormat:= _
        xlCSVWindows, CreateBackup:=False
 
   'Fermeture et enregistrement du classeur
        ActiveWorkbook.SaveAs
        ActiveWorkbook.Close savechanges:=True
 
End Sub

**DotNetMatt** · 28/01/2016, 16h47

Le sujet a déjà été traité ici : http://www.developpez.net/forums/d15...v-separateurs/

Utilise la fonction recherche du forum avant de poster, le lien ci-dessus date d'il y a quelques jours à peine... N'oublie pas de marquer cette discussion comme résolue en utilisant le bouton "Résolu" en bas de cette page.

**Reply** · 28/01/2016, 17h49

Dans ce poste je n'ai pas trouvé la réponse à ma question. ( http://www.developpez.net/forums/d15...v-separateurs)
Ces solutions ne fonctionne pas pour moi.
Le fichier est enregistré en csv, mais les données sont séparées par une ",".

**DotNetMatt** · 28/01/2016, 17h55

Je te donne un indice, la réponse se trouve dans l'avant dernier post. Toi tu utilises xlCSVWindows qui correspond au format CSV avec la virgule comme séparateur.

**Reply** · 28/01/2016, 17h59

Envoyé par DotNetMatt

Je te donne un indice, la réponse se trouve dans l'avant dernier post. Toi tu utilises xlCSVWindows qui correspond au format CSV avec la virgule comme séparateur.

J'ai modifié mon code avec XlFileFormat.xlCSV comme ci-dessous, mais pas de changement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveWorkbook.SaveAs Filename:= _
        "Macintosh HD:Users:moi:Desktop:import_restaurant.csv", FileFormat:= _
        XlFileFormat.xlCSV, CreateBackup:=False

**DotNetMatt** · 28/01/2016, 18h25

Hmm bizarre, peut-être que si tu as déjà un fichier existant, il n'est pas remplacé par le nouveau ?

Essaie avec ceci :

Code VB.NET :

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
21
22
23
24
25
Sub Import()
	'
	' Import_restaurant Macro
	' Création d'un fichier csv pour import Appli
	'
    Sheets("IMPORT_HEURES").Select
    Sheets("IMPORT_HEURES").Copy
    Range("A1").Select
 
    'Mise en forme de la colonne de date au format "dd-mm-yyyy"
    Columns("A:A").Select
    Selection.NumberFormat = "dd-mm-yyyy"
    Range("A2").Select
 
	Application.DisplayAlerts = False
 
	'Chemin d'enregristrement du nouveau fichier au format csv
	ActiveWorkbook.SaveAs Filename:= _
		"Macintosh HD:Users:moi:Desktop:import_restaurant.csv", FileFormat:= _
		XlFileFormat.xlCSV, CreateBackup:=False
 
	'Fermeture et enregistrement du classeur
	ActiveWorkbook.Close
 
End Sub

Ca donne quoi ?

**Reply** · 28/01/2016, 18h29

Envoyé par DotNetMatt

Hmm bizarre, peut-être que si tu as déjà un fichier existant, il n'est pas remplacé par le nouveau ?

Essaie avec ceci :

Code VB.NET :

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
21
22
23
24
25
Sub Import()
	'
	' Import_restaurant Macro
	' Création d'un fichier csv pour import Appli
	'
    Sheets("IMPORT_HEURES").Select
    Sheets("IMPORT_HEURES").Copy
    Range("A1").Select
 
    'Mise en forme de la colonne de date au format "dd-mm-yyyy"
    Columns("A:A").Select
    Selection.NumberFormat = "dd-mm-yyyy"
    Range("A2").Select
 
	Application.DisplayAlerts = False
 
	'Chemin d'enregristrement du nouveau fichier au format csv
	ActiveWorkbook.SaveAs Filename:= _
		"Macintosh HD:Users:moi:Desktop:import_restaurant.csv", FileFormat:= _
		XlFileFormat.xlCSV, CreateBackup:=False
 
	'Fermeture et enregistrement du classeur
	ActiveWorkbook.Close
 
End Sub

Ca donne quoi ?

Pas de changement.

**Reply** · 28/01/2016, 18h31

Envoyé par DotNetMatt

Hmm bizarre, peut-être que si tu as déjà un fichier existant, il n'est pas remplacé par le nouveau ?

Je place la nouveau fichier sur le bureau et je m'assure de n'avoir aucun fichier avant d'exécuter la macro. Donc normalement il n'y a pas de remplacement.

**jopopmk** · 29/01/2016, 09h25

Salut,

essaie de mettre le paramètre Local à true dans l'appel à SaveAs,
et le paramètre SaveChanges à false dans l'appel à Close.

J'aimerai bien t'expliquer pourquoi il faut faire comme ça mais j'ai pas vraiment creusé la question (même si j'ai une petite idée).
Je te laisse donc faire cette recherche et revenir nous instruire par la suite

Invité · 29/01/2016, 09h34

http://www.developpez.net/forums/d15...s/#post8512729

**Reply** · 29/01/2016, 09h37

Envoyé par jopopmk

Salut,

essaie de mettre le paramètre Local à true dans l'appel à SaveAs,
et le paramètre SaveChanges à false dans l'appel à Close.

J'aimerai bien t'expliquer pourquoi il faut faire comme ça mais j'ai pas vraiment creusé la question (même si j'ai une petite idée).
Je te laisse donc faire cette recherche et revenir nous instruire par la suite

Bonjour,

Bizarrement sur Mac le paramètre Local n'est pas reconnu.

**Reply** · 29/01/2016, 09h40

Envoyé par rdurupt

http://www.developpez.net/forums/d15...s/#post8512729

Toute la ligne "Dim Wb As Microsoft.Office.Interop.Excel.Workbook = Xls.Workbooks.Add" est en rouge.

**jopopmk** · 29/01/2016, 09h51

Envoyé par Reply

Bonjour,

Bizarrement sur Mac le paramètre Local n'est pas reconnu.

Arf. Perso j'ai fait mes tests en C# (WIN32) et ce paramètre est le dernier de la fonction SaveAs.
Il n'empêche que c'est quand même dommage/bizarre qu'on ne puisse pas choisir son séparateur.

Invité · 29/01/2016, 10h15

Envoyé par Reply

Toute la ligne "Dim Wb As Microsoft.Office.Interop.Excel.Workbook = Xls.Workbooks.Add" est en rouge.

là je n'est pas la réponse car j'ai fait de test avant de posté, mais il est vrai que je ne suis pas sur Mac!

**clementmarcotte** · 29/01/2016, 21h28

Bonjour,

Une partie de la réponse se trouve dans l'aide de VBA Excel :

1) L'énumération XlFileFormat est "née" avec Excel 2007. Pour MAC, je ne sais pas c'est quelle version; mais si c'est un vieux Excel, il faut probablement regarder ailleurs.

2) Il y a 4 constantes pour le format CSV :

xlCSV 6 CSV
xlCSVMac 22 Macintosh CSV
xlCSVMSDOS 24 MSDOS CSV
xlCSVWindows 23 Windows CSV

et même six autres qui pourrait peut-être se trouver d'un certain intérêt:

xlCurrentPlatformText -4158 Texte de la plate-forme actuelle
xlTextMac 19 Texte Macintosh
xlTextMSDOS 21 Texte MSDOS
xlTextPrinter 36 Texte imprimante
xlTextWindows 20 Texte Windows
xlUnicodeText 42 Texte Unicode

Mais bon, tout le monde sait que c'est interdit de regarder dans l'aide ou même sur MSDN

Ou, toujours sur MSDN

Enregistrer une feuille en .csv en conservant le séparateur ";"

VB.NET

Discussions similaires

Partager

Partager