Discussion :

[imparator_42]

Suite à la discussion :

http://www.developpez.net/forums/sho...00#post2674200

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub ImportFileF2()
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SourceFile = FSO.OpenTextFile("C:\Documents and Settings\user\Bureau\Macro\Source.txt", ForReading)
Set DestFile = FSO.CreateTextFile("C:\Documents and Settings\user\Bureau\Macro\GeneratedTextFile.txt", ForWriting)
While Not SourceFile.AtEndOfStream
     DestFile.WriteLine SourceFile.Readline
     DestFile.WriteLine("")
Wend
Set DestFile = Nothing
Set SourceFile = Nothing
Set FSO = Nothing
End Sub

est ce que pour : SourceFile ....
on peut aussi mettre un lien internet?