[VBA-E]Enregistrement csv séparateur:";"

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:

---

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!

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+

Bonjour!!

Citation:

---

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 ";"

Citation:

---

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 !!!

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 ;

Citation:

---

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!

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:

---

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

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:

---

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

---

C'est tout !

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:

---

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

---