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