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]

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