Bonjour antho19, sabV,
Je propose ce code VBA :
Option Explicit
Sub ReadVoiture()
On Error GoTo ErrFile
Dim chn$, lig&: lig = 1
Open "C:\Documents\0_Travail\0_VOITURE\1_2018\2_RECAP\voiture.txt" For Input As #1
Application.ScreenUpdating = 0: Columns(1).Clear
Do While Not EOF(1)
Line Input #1, chn: lig = lig + 1: Cells(lig, 1) = chn
Loop
Close #1: Exit Sub
ErrFile:
MsgBox "Fichier voiture.txt non trouvé.", 48, "Erreur"
End Sub
⚠ Le début du chemin sera peut-être plutôt : C:\Users\Antho\Documents
et si les 4 « chiffre_ » sont des erreurs, ça pourrait être :
"C:\Users\Antho\Documents\Travail\VOITURE\2018\RECAP\voiture.txt"
dhany