Lire et récupérer du texte dans un fichier txt

Bonjour à tous,

J’ai beau chercher, je ne trouve rien.

Dans un tableau, j’ai une colonne D qui contient une liste de fichier (*.xml ou *.txt) avec un lien hypertexte.

Lorsqu’il s’agit d’un fichier TXT, j’aimerais récupérer le contenu (le fichier est généré automatiquement et ne contient qu’une date) et que cela s’inscrive sur la même ligne, en colonne 5.

Merci à vous,

Seb78

Bonjour,

Essaie (la cellule de la colonne D contient le chemin et le nom du fichier) :

Sub test()
  Dim C As Range, Index, Enrgt As String
  For Each C In Range("D1", Cells(Rows.Count, 4).End(xlUp))
    If LCase(Right(C, 4)) = ".txt" Then
      Index = FreeFile
      Open C.Value For Input As #Index
      Line Input #Index, Enrgt
      C.Offset(, 1) = Enrgt
      Close #Index
    End If
  Next C
End Sub

Daniel

J'ai oublié de préciser qu'il s'agissait d'un lien hypertexte.... Et comme je suis vraiment débutant, je ne sais même pas si c'est possible.

Merci en tout cas !

Seb78

Bonjour,

Ca devrait fonctionner sauf si tu as spécifié un "texte à afficher" différent de l'adresse du fichier. Est-ce le cas ?

Daniel

Bonjour Daniel

Peut-être quelque chose comme ça

Sub test()
  Dim hyp As Hyperlink
  Dim C As Range
  For Each hyp In ActiveSheet.HyperLinks
      Set C = hyp.Range
      C.Offset(, 1) = hyp.TextToDisplay
      C.Offset(, 2) = hyp.Address
  Next
End Sub

Bon, la vérité était entre les deux.

J'ai bien réussis à faire ce que je voulais.

Merci encore à vous !

Seb78