Lire un fichier txt ou équivalent avec vba

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Lire un fichier txt ou équivalent avec vba

jujuf1

Je suis un chat

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

Publicité

mechkurt

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

jujuf1

Je suis un chat

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

patrice33740

Avec la réponse, c'est facile.

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

kiki29

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Lire un fichier txt ou équivalent avec vba

Sujets relatifs
Exporter fichier .rtf en php et ouverture avec libreoffice writer	Ouvrir fichier .odb avec Python
Récupérer date de déplacement d'un fichier	[VBA] UPnP : « Lire sur l’appareil » : comment pousser un fichier?
ouverture de fichier en python 3 : erreur	[POWERSHELL]Creation fichier ps1
Recuperation des données d'un fichier texte	Python Request et Android HttpURLConnection équivalent
Macro copie vers un autre fichier
Plus de sujets relatifs à : Lire un fichier txt ou équivalent avec vba

Page générée en 0.041 secondes