File Input
k
Bonjour
je souhaiterai avoir votre aide concernant ce debut de code que j' ai fait mais par contre lorsque j'importe les numero situe dans le fichier txt il me les colles tous en meme temps
donnees dans le fichier txt:
212866205208
212866205219
212866205220
212866205230
je voudrais faire importer un numero apres l'autre afin que je puise rajouter le reste de mon code
Merci
sub test
Open "C:\Users\252100\Documents\joblog.txt" For Input As #1 ' Open file.
Do While Not EOF(1) ' Loop until end of file.
Line Input #1, TextLine ' Read line into variable.
.TransmitAnsi TextLine
Loop
Close #1 ' Close file.
End Sub
Bonjour,
Sub test_lire()
Dim oFl As Scripting.file
Dim oTxt As Scripting.TextStream
Dim i As Integer
fileName = "C:\MonFichier_test_lire.txt" '<--à adapter
Set oFSO = New Scripting.FileSystemObject
Set oFl = oFSO.GetFile(fileName)
Set oTxt = oFl.OpenAsTextStream(ForReading)
While Not oTxt.AtEndOfStream
i = i + 1
Range("A" & i) = oTxt.ReadLine
Wend
End Sub