Dim FIO As Integer Dim Data As String Dim cellule As Range Dim ligne As String Set cellule = Range("A1") Filename = "C:\Documents and Settings\...\Output1.txt" FIO = FreeFile Open Filename For Input As FIO Do While Not EOF(FIO) Input #FIO, ligne cellule.Value = ligne Set cellule = cellule.Offset(1, 0) Loop Close FIO
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question