Discussion :

[House MD]

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 :

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

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.

[fring]

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 :

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

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

[House MD]

Bonjour,

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

Code :

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

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.

[House MD]

Bonjour,

Alors e fait, le coupable est :

Code :

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

wbk.Close savechanges:=True

Si je le remplace par :

Code :

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

wbk.Close savechanges:=False

Ca marche.

Merci beaucoup.

[ouskel'n'or]

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 :

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

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

[Caravelle]

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

Code :

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

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