Export csv Local:=True ne marche pas

Bonjour,

J'ai quelques soucis à exporter ma feuille excel en csv malgré l'aide des internautes. Pour ne pas avoir de "," à la place de ";" dans le fichier csv, le paramètre Local:=True est censé régler ce problème. Aucun succés chez moi :

Code:

---

1 2 3

FinalWorkbook.SaveAs Filename:= _ "C:\SortieCastor\RPFOND-" & ParamFond & ".csv", FileFormat _ :=xlCSV, CreateBackup:=False, Local:=True

---

Ce que je souhaite faire c'est juste exporter dans un fichier texte mes colonnes espacé d'un caractère " ". Néanmoins en testant tous les formats je n'obtiens pas ce que je souhaite (soit des tabulation soit des virgules..). Ma solution a donc était d'exporter en csv avec des ";" et de les remplacer par " " avec Remplacer Tout... Mais en automatique sous une macro, le ";" se transforme en ",".

Si quelqu'un a une sollution.. Merci d'avance.

Laurent

Bonjour,

As-tu essayé le SaveAs avec

Code:

---

FileFormat:=xlCSVMSDOS

---

?

Oui. J'obtiens également que des ","....

Bon, ben sinon tu peux créer toi même ton fichier csv et ainsi mettre ce que tu veux comme séparateur;)
Exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim Tableau, ligne As String, i As Long, j As Long, f As Integer 'A modifier en fonction du séparateur voulu : Const strSéparateur As String = ";" f = FreeFile Tableau = FinalWorkbook.Worksheets(1).UsedRange Open "C:\SortieCastor\RPFOND-" & ParamFond & ".csv" For Output As #f For i = LBound(Tableau, 1) To UBound(Tableau, 1) ligne = Tableau(i, LBound(Tableau, 2)) For j = LBound(Tableau, 2) + 1 To UBound(Tableau, 2) ligne = ligne & strSéparateur & Tableau(i, j) Next Print #f, ligne Next Close f

---

Dans cet exemple, si le fichier existe déjà, il faut rajouter du code pour le supprimer avant de pouvoir le recréer.

Ecoute moi! C'est parfait! Merci bien pour ce bout de code que je garderai dans un coin!

A+

Laurent

Bonjour,

Pareil j'ai tout essayé pour enregistrer en CSV

J'ai vérifié les paramètre régionaux de Windows j'avais bien le ;
quand j'enregistre dans excel manuellement j'ai aussi le point virgule mais quand je passe par la macro impossible j'ai pourtant rajouter le Local:=True j'avais vu sur d'autre forum de rajouter savechanges:=False mais rien à faire
avec xlCSV, xlCSVMSDOS et xlCSVWindows même résultats

Code:

---

1 2 3

ActiveSheet.SaveAs Filename:="C:\Users\blabla\Documents\test-" + date_du_jour + "-01.csv", FileFormat:=xlCSVMSDOS, CreateBackup:=True, Local:=True ActiveSheet.Parent.Close savechanges:=False

---

Merci à zenpbb pour sa solution bien que j'aimerai bien avoir le fin mot de l'histoire :)

Bonjour,


Je me permets de faire remonter ce sujet, car j'ai ce problème et recherche inlassablement une solution depuis 3 jours sous Excel 2013.

Je cherche a enregistrer via une macro un fichier csv, et j'ai exactement la meme ligne de code que "viscere" en précisant bien true pour le local (windows FRANCE dans les paramètres régionaux + excel francais) et malgé tout j'ai comme séparateur de colonne virgule au lieu de point-vigule et le séparateur de décimal point au lieu de virgule.

J'ai recopié code de "zenpbb", mais sur la ligne
Tableau = FinalWorkbook.Worksheets(1).UsedRange

J'ai Erreur d’exécution '424' : Objet requis.

Pourriez vous m'aider

merci