Discussion :

[Yolak]

Bonjour à tous!

J'ai un petit problème pas bien compliqué en soit:
Je voudrais enregistrer automatiquement une feuille Excel existante en format *.csv avec un point virgule comme séparateur.

J'utilise la fonction FileFormat avec le paramètre xlFileFormat suivant : xlCSV

Code :

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

ActiveWorkbook.SaveAs Filename:="mon_fichier_csv_pt_virgule", FileFormat:=xlCSV

Le problème, c'est que le séparateur est une virgule!

J'ai essayé plusieurs paramètre xlFileFormat (xlCSVwindows, xlCSVMSDOS) mais rien n'y fait, c'est toujours une virgule comme séparateur

Je pourrais m'amuser a remplacer automatiquement toute les virgules par des point virgule par un code qui ressemblerait à une usine a gaz mais je préfèrerais quelque chose de plus logique.

J'ai déjà cherché sur le forum et dans les tutoriels mais je ne suis pas satisfait de mes trouvailles...

Merci à vous!

[ouskel'n'or]

Si tu as la version anglaise d'Excel, le séparateur de données est une virgule, c'est normal.
Le point-virgule, c'est dans la version française.
Par contre, tu peux essayer de l'enregistrer en txt, tu auras une tabulation comme séparateur de données.
Quelles contraintes as-tu ?
On peut parfaitement ouvrir un csv avec "," comme séparateur si on l'ouvre en tant que txt.
Ouvert en tant que txt, il est possible de préciser le séparateur.
Tu dis
A+

[Yolak]

Bonjour!!

On peut parfaitement ouvrir un csv avec "," comme séparateur si on l'ouvre en tant que txt.

Mes contraintes:
Mon fichier DOIT impérativement être enregistré automatiquement en csv avec séparateur ";" parce qu'ensuite, je dois l'intégrer dans un logiciel de GPAO qui n'accepte QUE le cvs séparateur ";"

Ouvert en tant que txt, il est possible de préciser le séparateur.

Comment procéder?

Je rappelle que la macro sera utilisée par des gens qui ne savent même pas ce qu'est qu'un fichier csv...
En gros, la macro doit tout faire en auto!

Merci encore pour votre aide !!!

[ouisansdoute]

Bonjour,

Pour changer le séparateur utilisé par le csv :
Aller dans le panneau de configuration
Options régionales et linguistiques
Personnaliser
Dans la zone séparateur de liste, remplacer , par ;

[Yolak]

Bonjour,

Pour changer le séparateur utilisé par le csv :
Aller dans le panneau de configuration
Options régionales et linguistiques
Personnaliser
Dans la zone séparateur de liste, remplacer , par ;

Il faudrait que je fasse ça pour une dizaine de poste séparés de plusieurs centaines de km.
Je pourrais utiliser VNC mais j'ai trouvé mieux:
http://www.developpez.net/forums/sho...=xlTextWindows

Merci asxasx !!!!!
Merci a vous tous !!!

Mon pb est donc résolu!

[BlakSun]

hello,

Saveas à une option qui se nomme local, par défaut cette option est à false et utilise le système américain c'est a dire la ',' comme séparateur.

Code :

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

xlBook.SaveAs path_csv, FileFormat:=xlCSV,  Local:=True

si tu la met à true tu utilisera comme séparateur celui de tes paramètres régionaux.

Bonne journée.
F.Lecamp

[bigtexas68]

Bonjour, il suffit de rajouter : "Local:=True" à la fin de la ligne et vérifier que nous avons bien les ";" comme séparateur dans les paramètres régionaux de Windows.

Code :

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

ActiveWorkbook.SaveAs Filename:="mon_fichier_csv_pt_virgule", FileFormat:=xlCSV, Local:=True

C'est tout !

[Patrice_31]

Bonjour

j'ai trouvé une solution sans devoir aller changer le séparateur de liste du système

Pour cela j'écris directement le ";" dans le texte.
Ensuite je sauvegarde le fichier au format Texte

exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Newbook as workbook
Dim chemin as string
dim var (1 to 2) as integer
dim Texte as variant
 
Set Newbook = Workbooks.Add
chemin = le nom du fichier de sortie avec le répertoire
var(1) = 12
var(2) = 25555
Cells(1,1) = "-1;3"
Texte = var(1) &";" & var(2)
Cells(1,2) = Texte
Newbook.SaveAs Filename:=chemin, FileFormat:=xlCSV, local:=False, CreateBackup:=False, ConflictResolution:=xlLocalSessionChanges