Discussion :

[h12enri]

Bonjour à tous,

Voilà, j'ai presque que 2000 fichiers .txt sur le pc dont je souhaiterais en récupérer le contenu dans un fichier Excel. Chacun de ces fichiers notepad contient 9 caractères, donc ça rentre aisément dans une cellule Excel, pas d'inquiétude .

Ce que j'ai déjà dans mon fichier Excel c'est tous les hyperliens vers les fichiers, mais je ne sais pas comment dire à Excel "ouvre le fichier de l'hyperlien et copie le contenu dans la cellule stp".

Quelqu'un sait-il m'aider à résoudre mon problème ?
Merci beaucoup d'avance et bon appétit si vous passez à table


Henri

[Philippe Tulliez]

Bonjour,
Les liens hypertextes sont le résultat de la formule LIEN.HYPERTEXTE ou bien est-ce une propriété de la cellule ?

[h12enri]

Bonjour Corona,

Je ne suis pas certain de bien comprendre votre question.

Si je clique sur la cellule où se trouve l'hyperlien, le fichier .txt s'ouvre et j'en vois son contenu.
Mais plutôt que de devoir faire ce clic, copier les 9 caractères puis les coller dans la cellule voisine, j'aimerai utiliser une macro qui se chargerait de le faire pour moi.
Mais je ne sais pas si c'est possible ...

Est-ce que je me suis montré plus clair ?

[Philippe Tulliez]

Bonjour,
Voici un exemple à adapter bien entendu.
Lecture des cellule B2 à B10 de la feuille nommée Feuil1 qui contient des liens hypertexte fichier (ex z:\test\toto.txt), qui ouvre le fichier en question et écrit la première ligne dans la cellule de la colonne D de la même ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Lecture()
 Dim l As Long, dv As Byte, TextLine As String
 Dim sht As Worksheet
 Set sht = ThisWorkbook.Worksheets("Feuil1")
 For l = 2 To 10
  dv = FreeFile: Open sht.Cells(l, 2) For Input As #dv
  Line Input #dv, TextLine:   sht.Cells(l, 4) = TextLine
  close #dv
 Next
End Sub

[h12enri]

C'est exemplaire !!!

Merci merci beaucoup

J'avais commencé manuellement pensant que ça n'irait pas.

Bravo, encore merci et bon aprèm