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