Conversion XLS en CSV pb "," et ";"

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Conversion XLS en CSV pb "," et ";"

cat82

Bonjour,

Voici mon code

Code :

Sub SvgCSV()
Dim str
Dim NonFichier
Dim i
i = 1
While Cells(i, 2).Value <> ""
Sheets(1).Select
str = ""
NonFichier = ""
str = Cells(i, 3).Value
NonFichier = Cells(i, 2).Value
If Mid(str, 1, 12) = "Créer un CSV" Then
Sheets(NonFichier).Select
ActiveWorkbook.SaveAs Filename:=NonFichier + ".csv", FileFormat _
:=xlCSV, CreateBackup:=False
MkDir Left(Right(NonFichier, 12), 7)
End If
i = i + 1
Wend
End Sub

La sauvegarde en csv se passe bien. Le seul pb que je recontre est la séparation entre les champs, il me met une "," à la place d'un ";"
Comme dois - je faire ?

Merci

Publicité

tegu

Le format CSV veut dire « Comma-separated values », donc « valeurs séparées par des virgules ».
Si le format est implémenté de manière stricte, tu ne peux pas changer le séparateur.
Sinon, ce séparateur peut dépendre des options régionales car le séparateur de liste français est le point-virgule (comme tu le veux d'ailleurs) alors que c'est la virgule dans le système américain.
Je ne sais pas s'il existe des paramètres Excel permettant de jouer la-dessus.
J'espère que d'autres pourront mieux t'aider.

seniorpapou

Bonsoir,
Trouvé ceci:

Dans Excel 2002 tu as le choix d'utiliser ou non le séparateur défini dans les paramètres
régionaux de ton ordinateur.

ActiveWorkbook.SaveAs Filename:= "C:TEST.csv", FileFormat:=xlCSV, _
CreateBackup:=False, local:=True

Le secret est dans Local:=true.
Ceci permet d'indiquer à excel d'utiliser le séparateur de liste défini dans tes paramètres
régionaux. Par défaut il utilise la virgule.
C'est une nouveauté Excel 2002.

je n'ai pas testé
Cordialement

cat82

merci ça marche

agkklr

Sinon, tu peux sauver comme un fichier texte, en nommant ton fichier en .csv, et en définissant le paramètre delimiter=";"

---------------
"Mon modèle, c'est moi-même."

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Conversion XLS en CSV pb "," et ";"

Sujets relatifs
Php et CSV	Probleme Conversion
[C#] conversion int/long/et autres vers byte[ ]	Content-Type Internet Exlporer, affichage dun .CSV, problème avec XML
[XSLT] Probleme de conversion d'un algorithme vers xsl	[Access] Conversion de date unixtime -> local timezone !!??
Conversion chiffres en lettres	Conversion d'un Excel en PDF
[VBA] conversion ASCII en nombre	Probleme de conversion de types
Plus de sujets relatifs à : Conversion XLS en CSV pb "," et ";"

Page générée en 0.037 secondes