Voila g fait un petit script en vbs ki permet de recuperer la 1° ligne d un fichier excel et de la stocker dans un fichier texte :
Dim F , TS
const TristateUseDefault = -2 , ForReading = 1 , ForAppending = 8
Set fso = CreateObject("Scripting.FileSystemObject")
Set F = Fso.GetFile("C:\WINNT\Profiles\stagiaire\Bureau\trace\france\Mosaique0519.xls")
Set TS = F.OpenAsTextStream(ForReading,TristateUseDefault )
TS.ReadLine
Set Monfic = Fso.OpentextFile("C:\WINNT\Profiles\stagiaire\Bureau\Trace\Test.txt", ForAppending, true )
MonFic.writeline TS.ReadLine
Mais je voudrai incrementer le readline enfait pour passer otomatikement a la 2° ligne ect ... et je ne sais pas comment faire ! incrementer le readline est un grand mot je sais ^^