Création fichier csv

**guigui69** · 26/05/2009, 15h24

Bonjour à tous,

Je voudrait réaliser un script qui me transforme un fichier excel en fichier csv

j'ai deja trouvé un code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
Const xlCSV = 6
srccsvfile = "C:\Documents and Settings\x\Bureau\"
srcxlsfile = "C:\Documents and Settings\x\Bureau\essai_facture.xls"
 
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(srcxlsfile)
objExcel.DisplayAlerts = FALSE
objExcel.Visible = TRUE
 
Set objWorksheet = objWorkbook.Worksheets("essai_facture")
objWorksheet.SaveAs srccsvfile &"essai-"&  Day(Now) &"-" & Month(Now)& "-" & Year(Now)  & ".csv", xlCSV
 
objExcel.Quit

Ce script me créé bien mon fichier csv mais avec des virgule et il me faudrait des point virgule.

En macro dans excel il faut rajouter ceci:

Code :

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

1
2
3
ActiveWorkbook.SaveAs Filename:="J:x\Facture-factor" & Format(Date, "d\-mm\-yy") & ".csv", 
FileFormat:=xlCSV, CreateBackup:=False, Local:=True

J'ai essayer de rajouter ceci avec xlCSV mais cela ne change pas. Quel parametre me manque t-il ? Quel erreur est-je commis?

Merci

guigui69

**ced600** · 27/05/2009, 09h51

Essaye avec sa valeur (6) directement.
Sinon regarde ici:
http://msdn.microsoft.com/en-us/library/bb241279.aspx

Mais je crois que le séparateur par défault sur excel est , pour le CSV.

**guigui69** · 27/05/2009, 14h35

Merci, mais il est deja à 6

Code :

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

1
2
 
Const xlCSV = 6

il n'y aurait pas un autre xlCSV qui est en point virgule ?

Merci

guigui69

**SfJ5Rpw8** · 27/05/2009, 23h20

Qu'elle est ta version d'excel ...

je crois qu'une nouvelle option est apparu avec Excel 2002

essai

Code :

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

objWorksheet.SaveAs srccsvfile &"essai-"&  Day(Now) &"-" & Month(Now)& "-" & Year(Now)  & ".csv", xlCSV ,,,,,,,,,,true

Attention au nombre de virgule ....

Envoyé par aide en ligne Excel

expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
(...)
Local Argument de type Variant facultatif. La valeur True enregistre les fichiers en fonction de la langue de Microsoft Excel (y compris les paramètres du Panneau de configuration). La valeur False (valeur par défaut) enregistre les fichiers en fonction de la langue de Visual Basic pour Applications (VBA) (qui est généralement l'anglais des États-Unis, sauf si le projet VBA où Workbooks.Open est exécuté est un ancien projet VBA XL5/95 de niveau international).

**guigui69** · 28/05/2009, 10h40

Merci pour ton aide je suis sous office 2003 (SP3)

Si j'ai essayé ta ligne mais il me retourne une erreur:

http://www.monsterup.com/image.php?u...3499947631.jpg

J'ai enlevé plusieurs virgule, et ça ne fait plus erreur mais toujours en" ,".

Merci d'avance

guigui69