Discussion :

[doudou1]

bonjour

voila je voudrai savoir s'il est possible parcourir un fichier txx en vbs et d'extraire quelque donnée du fichier txt vers un fichier excel .

mon fichier txt est de la sorte

char , num , num
char , num , num


et je voudrais que mon fichier excel se presente comme ceux ci

1 er cellule , 2 eme cellule , 3 eme cellule
char num num
char num num


je vous met un code en vbs qui m'extrait bien les données mais qui me met chaque ligne du fichier txt en commentaire d'une cellule

SourceFile = "C:\Documents and Settings\etiennee\Desktop\200615maiaujuin6H.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set Stream = fs.OpenTextFile(SourceFile)
WBFile = "C:\Documents and Settings\etiennee\Desktop\Cible.xls"
SheetName = "Feuil1"
Set Application = CreateObject("Excel.Application")
Set WB = Application.Workbooks.Open(WBFile)
Set S = WB.Worksheets(SheetName)
While Not Stream.AtEndOfStream
C = C + 1
S.Cells(1, C).AddComment Stream.ReadLine
Wend
WB.close
Stream.close
Set Application = Nothing
Set fs = Nothing

merci d'anvance

doudou

[Nesejet]

C'est ton : S.Cells(1, C).AddComment Stream.ReadLine

[doudou1]

bonjour

merci il faut que je le change en quoi pour qu'il ajoute les donnée dans la cellule

merci a toi

doudou

[Nesejet]

ça marche avec ça :

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
17
18
19
20
SourceFile = "C:\test.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set Stream = fs.OpenTextFile(SourceFile)
WBFile = "C:\test.xls"
SheetName = "Feuil1"
Set Application = CreateObject("Excel.Application")
Set WB = Application.Workbooks.Open(WBFile)
Set S = WB.Worksheets(SheetName)
While Not Stream.AtEndOfStream
  c = c + 1
  S.Cells(1, c).Value = Stream.ReadLine
  montab = Split(S.Cells(1, c).Value, ",")
  For i = 0 To 2
     S.Cells(c, i + 1).Value = montab(i)
  Next
Wend
WB.Close
Stream.Close
set Application = Nothing
Set fs = Nothing

Mais le "FOR" doit être modifié selon le nombre de colonne que tu veux remplir.

[doudou1]

salut


j'ai une erreur a la lihne 14

c'est cette ligne

Code :

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

S.Cells(c, i + 1).Value = montab(i)

et l'erreur est

line : 14
char : 3
erreor : indice en dehor de la plage 'i'
code : 800A00009
source : erreur d'execution microsofts vbscript

[Nesejet]

tu peux me donner une ligne de ton fichier txt ?

[doudou1]

salut


voila en fait je vient de voir le fichier txt , il contient un petit texte au debut du fichier

si non le script fonctionne bien apart que dans la premiere ligne du fichier xls pour chaque cellule et et chaque colone il me met toute la ligne du fichier texte et apres il met correctement dans cellule et chaque collone les champs que je veux

je sais pas si l'on peut executer le script a partir de la 4 emme ligne ?

voici le debut du fichier txt

Ce fichier fait le calcul de tous les Tests réalisés sur les deux Dimension.

Automates, Code Test, Total tous Tests, Total Tests Patient, Total Tests Patient Repassés, Total CQ
Barnabé,AHDL,26,9,0,17,
Barnabé,ALC,37,23,0,14,
Barnabé,ALP,93,76,0,17,

[Nesejet]

Tu peux essayer ça...

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
17
18
19
20
21
22
SourceFile = "C:\test.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set Stream = fs.OpenTextFile(SourceFile)
WBFile = "C:\test.xls"
SheetName = "Feuil1"
Set Application = CreateObject("Excel.Application")
Set WB = Application.Workbooks.Open(WBFile)
Set S = WB.Worksheets(SheetName)
While Not Stream.AtEndOfStream
	c = c + 1
	if c >= 4 then
		S.Cells(1, c).Value = Stream.ReadLine
		montab = Split(S.Cells(1, c).Value, ",")
		For i = 0 To 5
			S.Cells(c, i + 1).Value = montab(i)
		Next
	end if
Wend
WB.Close
Stream.Close
set Application = Nothing
Set fs = Nothing

[doudou1]

salut


il me fait pas d'erreur mais il a toujours dans la 1 er ligne du fichier xls dans chaque cellule et chaque colone chaque ligne du fichier excel


merci a toi

[doudou1]

salut


pardon je me suis trompé il me fait d'erreur mais il me met dans chaque cellule de la 1 ligne du fichier excel chaque ligne du fichiet texte



1 er colonne 2 eme colonne 3em colonne
1 er ligne xxx x1x1x1 x2x2x2
2 ligne x x x
3ligne x1 x1 x1
4ligne x2 x2 x2

voila engros ce qui me fait

merci a tous

doudou

[doudou1]

bonjour ,

je voudrai savoir s'il est possible lors de l'exportation de copier les données dans le fichier excel mais a partir de la 3e colonne .
Sachant que le script me copie deja les données a partir de la 4 eme ligne

merci d'avance

doudou