VBA - Fichiers

Dim monObjetFile As Scripting.FileSystemObject

Dim monFichier As Scripting.File

Dim monFlux As Scripting.TextStream

Set monObjetFile = New Scripting.FileSystemObject

Set monFichier = monObjetFile.GetFile("C:\test.txt")

Set monFlux = monFichier.OpenAsTextStream(ForReading)

With monFlux

While Not .AtEndOfStream

LigneSuivante = .ReadLine

[...]

Wend

End With

monFlux .Close