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

**SfJ5Rpw8** · 28/05/2009, 11h09

Envoyé par guigui69

...
J'ai enlevé plusieurs virgule,...

il ne faut pas compte les virgule dans l'aide ne ligne, c'est le dernier paramètre qui doit être modifié !

**guigui69** · 28/05/2009, 11h33

ben justement, en

recopiant ta ligne (j'ai compté le nombre de virgule) le compte y est.

Mais si je le rajouter dans mon script il me retourne le message (l'image du précédent message).

Guigui69

**ced600** · 28/05/2009, 11h56

j'aurais dit plutot :

Code :

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

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

(nombre de , différente).

D'après :
http://msdn.microsoft.com/en-us/library/bb214156.aspx

**guigui69** · 28/05/2009, 14h07

Merci pour ta réponse mais c'est toujours des virgules qui sépare.

guigui69

**SfJ5Rpw8** · 28/05/2009, 14h18

Envoyé par guigui69

Merci pour ta réponse mais c'est toujours des virgules qui sépare.

guigui69

et ta configuration windows c'est quoi (paramètres régionaux )

**ced600** · 28/05/2009, 16h20

Tu peux essayer :
xlCSVWindows = 23

Mais j'y crois moyen.

Je pense plutôt que bbil pose la bonne question.

**guigui69** · 28/05/2009, 16h34

voici les options:

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

**SfJ5Rpw8** · 28/05/2009, 16h46

bouton personnaliser

**guigui69** · 29/05/2009, 08h33

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

guigui69

**SfJ5Rpw8** · 29/05/2009, 10h18

il y as bien le ; ....

essai donc c'est peu-être un problème de nombre de paramètre ...

dans excel, fenêtre exécution de l'éditeur VBA ( ALT-F11 puis CTRL G )

essai de vérifier la syntaxe du genre

Code :

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

Thisworkbook.SaveAs "Monfichier.csv", xlCSV ,,,,,,,true

et vérifie grâce que true correspond bien au paramètre Local

**guigui69** · 29/05/2009, 11h01

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
16
 
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 07/04/2009
'
 
'
 
Application.DisplayAlerts = False
 
ActiveWorkbook.Worksheets("essai_facture").Select
 
ThisWorkbook.SaveAs "C:\Documents and Settings\fguillot\Bureau\kkkkkk.csv", xlCSV, , , , , , , Local:=True
ActiveWorkbook.Close
End Sub

Avec ceci, le fichier kkkkk.csv est bien composé de point virgule ";"

j'ai copier coller dans mon script (script.vbs):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Const xlCSV = 6
srccsvfile = "C:\Documents and Settings\fguillot\Bureau\"
srcxlsfile = "C:\Documents and Settings\fguillot\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, , , , , , , Local=True
objExcel.Quit

(j'ai enlever les : dans Local:=True, sinon il me retourne une erreur)

Le fichier généré est composé de virgule ","

Pourquoi ???

guigui69

**SfJ5Rpw8** · 29/05/2009, 12h09

tu ne peu pas utiliser des paramètres nommés en VBS enlève le local=1 ..., enlève le aussi dans tes tests sous Excel ... il faut mettre le true à la bonne place, sans utiliser les paramétres nommés..

**guigui69** · 01/06/2009, 08h58

Merci pour ta réponse:

voila ce la ligne dans une vba excel:

Code :

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

1
2
ThisWorkbook.SaveAs "C:\Documents and Settings\fguillot\Bureau\kkkkkk.csv", xlCSV, , , , , , , , , , True

Quand je rajoute ceci dans mon vbs:

Code :

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

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

il me retourne l'erreur:
Nombre d'arguments ou affectation de propriété incorrects:'objWorksheet.SaveAs'

Pourquoi?

Merci

guigui69

**SfJ5Rpw8** · 01/06/2009, 09h34

arf ... j'avais pas vu dans ton script tu n'applique pas la méthode saveAS à ton classeur mais tu l'applique à ta feuille...

c'est pas le même nombre de paramètres...il faut 7 virgules entre xlCsv et true...

**guigui69** · 01/06/2009, 10h17

Comme ceci:

Code :

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

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

Pas de code erreur, mais c'est toujours des virgules.

Ou peut se situer le problème?

guigui69

Création fichier csv

VBScript

Discussions similaires

Partager

Partager