Création fichier csv

Version imprimable

Bonjour à tous,

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

j'ai deja trouvé un code:
Code:

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:

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

27/05/2009, 09h51
ced600

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.
27/05/2009, 14h35
guigui69
Merci, mais il est deja à 6
Code:

1 2 Const xlCSV = 6
il n'y aurait pas un autre xlCSV qui est en point virgule ?

Merci

guigui69
27/05/2009, 23h20
SfJ5Rpw8

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

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

essai

Code:

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

Attention au nombre de virgule .... ;)

Citation:

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).
28/05/2009, 10h40
guigui69

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
28/05/2009, 11h09
SfJ5Rpw8

Citation:

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é !
28/05/2009, 11h33
guigui69

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
28/05/2009, 11h56
ced600

j'aurais dit plutot :

Code:

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
28/05/2009, 14h07
guigui69

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

guigui69
28/05/2009, 14h18
SfJ5Rpw8

Citation:

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 )
28/05/2009, 16h20
ced600

Tu peux essayer :
xlCSVWindows = 23

Mais j'y crois moyen.

Je pense plutôt que bbil pose la bonne question.
28/05/2009, 16h34
guigui69

voici les options:

http://www.monsterup.com/image.php?u...3521258906.jpg
28/05/2009, 16h46
SfJ5Rpw8

bouton personnaliser
29/05/2009, 08h33
guigui69

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

guigui69
29/05/2009, 10h18
SfJ5Rpw8

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:

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

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

Code:

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:

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

29/05/2009, 12h09
SfJ5Rpw8

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..
01/06/2009, 08h58
guigui69
Merci pour ta réponse:

voila ce la ligne dans une vba excel:
Code:

1 2 ThisWorkbook.SaveAs "C:\Documents and Settings\fguillot\Bureau\kkkkkk.csv", xlCSV, , , , , , , , , , True
Quand je rajoute ceci dans mon vbs:
Code:

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
01/06/2009, 09h34
SfJ5Rpw8

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...

Comme ceci:
Code:

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

01/06/2009, 10h28
SfJ5Rpw8

Il est pénible excel avec ses csv... :aie: sur mon 2002 c'est ok...

Il y as beaucoup de données dans ta page excel ???

tu ne peu pas faire ton format "à la main" en parcourant les cellules ... et écrivant directement ton fichier csv grace à FileSystemObject...
01/06/2009, 11h59
guigui69

Mon fichier contient 400 lignes max (sur 9 colonnes)

Peux-tu m'expliquer ta méthode pour créer mon fichier.

Merci

guigui69

ben la méthode il me semblait te l'avoir donné dans mon précédent post...

inspire toi de cela

Code:

1
2
3
4
5
6
7
8
9
10
11
12
  Const ForReading = 1, ForWriting = 2
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set oFile = fso.OpenTextFile(srccsvfile &"essai-"&  Day(Now) &"-" & Month(Now)& "-" & Year(Now)  & ".csv", ForWriting, True)
   dim r,c ' r = ligne, c = cellule
   for each r in objWorksheet.range("A1").currentRegion.rows
      st = ""   
       For Each c in r.cells
	     st = st & c.value & ";"
	   next
	  oFile.Writeline st
   next
	oFile.close

à mettre à la place de ton saveAS

01/06/2009, 14h53
guigui69

Merci je regarde ca,

petite question (toute simple) dans le nom du fichier je demande le jour mois et année comment faire pour faire apparaitre le 0 devant le jour et mois.

Exemple actuellement 1 juin 2009 = 1-6-2009 En fait je voudrait 01-06-2009

Merci

guigui69
01/06/2009, 15h40
SfJ5Rpw8

pas de Format en VBScript ...:cry:

tu peu jouer avec les fonction de chaines

Code:

msgbox left("00" & Day(Now),2)
02/06/2009, 17h00
guigui69

Merci pour ta réponse, ça à l'air d'être bon.

Merci

guigui69