vba - Conversion xls / csv : point virgule

Bonjour,

Beaucoup de posts parlent du problème de conversion d'un xls vers csv avec comme délimiteur le point virgule.

Certains disent que le "secret" est d'ajouter Local:=True au moment de la conversion afin de récupérer les options régionales :

Code:

---

wbk.SaveAs Filename:="C:\monfichier.csv", FileFormat:=xlCSV, CreateBackup:=False, Local:=True

---

Cela ne fonctionne pas alors même que mon délimiteur de champs par défaut est bien le point virgule.

D'autres proposent des solution abracadabrantesques...

Quelqu'un a-t-il une solution simple et propre qui fonctionne ?

Merci mille fois.

Bonjour,

Il faut essayer de prendre l'habitude d'afficher le code complet et pas seulement des petits morceaux, le problème ne vient pas toujours de là où l'on pense.

Le code ci-dessous transforme bien mon classeur excel en fichier csv et lorsque tu ouvres ce fichier csv avec le bloc note, le séparateur est bien le ;

Code:

---

1 2 3 4 5 6 7

Sub Export_CSV() Dim NomFichier As String   NomFichier = "test_exportation_csv.csv" ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & NomFichier, FileFormat:=xlCSV   End Sub

---

En espérant que cela puisse t'aider ;)

Bonjour,

Je n'ai mis qu'un bout car le reste est simplissime :

Code:

---

1 2 3 4 5 6 7 8

Sub test()   Dim wbk As Workbook Set wbk = Workbooks.Open("C:\Test1.xls") wbk.SaveAs Filename:="C:\Test1.csv", FileFormat:=xlCSV, CreateBackup:=False, Local:=True wbk.Close savechanges:=True   End Sub

---

Visiblement il y a un autre paramètre (en dehors du code et des paramètres régionaux) qui rentre ne compte.

Merci.

Bonjour,

Alors e fait, le coupable est :

Code:

---

wbk.Close savechanges:=True

---

Si je le remplace par :

Code:

---

wbk.Close savechanges:=False

---

Ca marche.

Merci beaucoup.

Je viens de voir ta réponse : Le pb n'est pas là ! Tu l'as réglé ainsi, c'est bien mais si tu modifies le classeur et que tu as à faire la même chose, la solution passe par DoEvents

Code:

---

1 2 3 4 5 6

Dim wbk As Workbook Set wbk = Workbooks.Open("C:\Test1.xls") DoEvents wbk.SaveAs Filename:="C:\Test1.csv", FileFormat:=xlCSV, CreateBackup:=False, Local:=True Doevents wbk.Close savechanges:=True

---

Un coup d'oeil dans l'aide te donnera une explication. Toute manipulation de fichier (ouverture, fermeture, sauvegarde...) sollicite le système et DoEvents est là pour lui donner le temps de faire ses petites affaires
A toute fin utile... ou inutile ;)

Chez moi, les DoEvents n'ont rien changé, mais la solution est bien

Code:

---

wbk.Close savechanges:=False

---

En effet, lors du SaveAs, le paramètre Local:= True va permettre d'utiliser le séparateur des regional settings.

Mais si juste après ça, on réenregistre avec savechanges:=True, l'enregistrement se fera avec la valeur Local par défaut, soit False, et le séparateur sera donc la virgule.
CQFD

Merci à tous :D