Ouvrir un fichier TXT

Bonjour à tous,

Je cherche à commencer une macro en ouvrant un fichier txt (voiture.txt) qui est toujours au même endroit.

C:\Documents\0_Travail\0_VOITURE\1_2018\2_RECAP

Ensuite je souhaite sélectionner le contenu et le coller en cellule A2 de ma feuille Excel.

Merci à vous pour votre aide par avance

Antho

Bonjour Antho,

Est ce que la valeur cherchée est toujours sur la même ligne du fichier texte ?

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

Bonjour parfait merci beaucoup

Merci pour ton retour ! merci aussi pour le et pour avoir passé le sujet en résolu !

dhany

Rechercher des sujets similaires à "ouvrir fichier txt"