Discussion :

[viscere]

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 :

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

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

[zenpbb]

Bonjour,

As-tu essayé le SaveAs avec

Code :

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

FileFormat:=xlCSVMSDOS

?

[viscere]

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

[zenpbb]

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 :

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

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.

[viscere]

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

A+

Laurent

[Immortalis]

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 :

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

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