Discussion :

[SfJ5Rpw8]

Il est pénible excel avec ses csv... 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...

[guigui69]

Mon fichier contient 400 lignes max (sur 9 colonnes)


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

Merci

guigui69

[SfJ5Rpw8]

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


inspire toi de cela

Code :

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

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

[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

[SfJ5Rpw8]

pas de Format en VBScript ...


tu peu jouer avec les fonction de chaines

Code :

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

msgbox left("00" & Day(Now),2)

[guigui69]

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


Merci

guigui69