Lire un fichier txt ou équivalent avec vba

Marsh Posté le 06-10-2020 à 15:37:55

Bonjour à tous,

Je cherche un code pour lire un fichier txt qui contient des données séparées par des tabulations. C’est un simple tableau à une colonne que je souhaite avoir.

J’ai fait pas mal de recherches sans trouver la solution,

Mon tableau a vocation à contenir 6 millions de lignes.

D’avance merci.

Message cité 1 fois

Reply

Marsh Posté le 06-10-2020 à 15:37:55

Reply

Marsh Posté le 06-10-2020 à 16:21:01

Je ne fais pas de VBA, mais si tu viens sur ce forum sans code ni message d'erreur explicite, personne ne fera le boulot à ta place...

Commence par regarder ces solutions :
https://www.google.com/search?q=vba [...] abul%C3%A9
ou
https://www.google.com/search?q=vba [...] +text+file
Si tu est suffisamment à l'aise en anglais.

Et si tu n'arrives pas faire fonctionner ces solutions, reviens nous le prouver avec du code et des erreurs et il y'aura surement quelqu'un pour t'aider a avancer.

---------------
D3

Reply

Marsh Posté le 06-10-2020 à 16:26:57

Voici un code. Le problème c’est que ça ne me sépare rien. J’ai juste un tableau avec une ligne.

Code :

Sub a()
Dim test() As Variant
Dim fileName As String, textData As String, textRow As String, fileNo As Integer
fileName = "C:\Fichier.txt"
fileNo = FreeFile 'Get first free file number
Dim i As Double
i = 1
Open fileName For Input As #fileNo
Do While Not EOF(fileNo)
Line Input #fileNo, textRow
textData = textData & textRow
Debug.Print textRow
ReDim Preserve test(i)
test(i) = textRow
i = i + 1
Loop
Close #fileNo
MsgBox (test(1))
MsgBox (i)
End Sub

Message cité 1 fois

Reply

Marsh Posté le 07-10-2020 à 12:23:21

jujuf1 a écrit :

Je cherche un code pour lire un fichier txt qui contient des données séparées par des tabulations. C’est un simple tableau à une colonne que je souhaite avoir.

jujuf1 a écrit :

Le problème c’est que ça ne me sépare rien. J’ai juste un tableau avec une ligne.

A priori, il n'y a qu'une ligne dans ton fichier.
Est-ce que tu voudrais que chaque donnée séparée par une tabulation soit sur une ligne différente ?
Le plus simple est alors de lire le contenu entier du fichier puis de le spliter sur Tab
Par exemple (non testé) :

Code :

Sub a()
Dim test As Variant
Dim fileName As String
Dim textData As String
Dim fileNo As Integer
fileName = "C:\Fichier.txt"
fileNo = FreeFile 'Get first free file number
Open fileName For Binary Access Read As #fileNo
textData = Space$(LOF(n°F))
Get #fileNo, , textData
Close #fileNo
test = Split(textData, vbTab)
MsgBox test(LBound(test))
End Sub

---------------
Cordialement, Patrice

Reply

Marsh Posté le 15-10-2020 à 10:00:28

Salut, toujours consultable : Manipulation des fichiers en VBA https://warin.developpez.com/access/fichiers/

Reply

Lire un fichier txt ou équivalent avec vba

Sujets relatifs:

Leave a Replay