Extraire contenu d'un fichier texte vers Excel

Question

Bonjour à tous, Je débute en VBA (du moins je pense..) . J'ai besoin d'aide pour extraire les lignes d'un fichier texte pour ensuite les coller dans un fichier excel. Il faudrait que puisse automatiser le système car j'ai beaucoup de fichier texte!! Mes fichiers textes ont tous cette forme là : 19991118 42.87 47.11 37.69 41.46 47483544 19991119 40.46 40.52 37.51 38.05 11565357 19991122 38.92 41.46 37.75 41.46 4993743 19991123 40.04 41.11 37.69 37.69 4536525 ...etc...etc... J'aimerais que chaque ligne du fichier texte se retrouve en ligne dans le fichier excel. Ensuite, je pense spliter les données par le séparateur "espace".. J'ai essayer quelques code du type:

PublicFunction OuvrirTextRapide(ByVal Fichier AsString) AsString

Dim a AsInteger

a = FreeFile

Open Fichier For Input As #a

OuvrirTextRapide = Input(LOF(a), a)

Close #a

EndFunction

OuvrirTextRapide("C:\Fichier.txt")

alors la macro copie bien une partie du fichier mais la forme obtenue est inexploitable!! même pour la conversion des données. Si une bonne âme peut m'aider, ce serait vraiment sympa!!! VBax

NHenry · Answer

Bonjour,

Il faut que tu split d'abort sur les sauts de lignes (VbCrLf) puis pour chaque lignes les espaces (" ")

http://nhen0039.chez-alice.fr/index.php

VBax · Answer

Ok merci beaucoup pour la réponse NHenry mais justement comment je fais pour spliter sur les lignes?  

Spliter les données sur des colonnes séparées je m'en sortirais mais là mon problème c'est que toutes les lignes du texte se mettent dans la première ligne du tableur (j'espère que je parviens à me faire comprendre...). Du coup, je m'en sors pas. Si tu peut me préciser comment spliter sur les lignes ce serait vraiment cool!!.. (commande VbCrLf) c'est ça?

Merci encore pour ta réponse 

VBax

bonjourcheval · Answer

En fait, c'est la Commande Split.

Dim maChaine as string
dim ChaineSplitter() as string

maChaine = "bon / test / de / split"
ChaineSplitter = Split(maChaine,"/")

Donc, dans ton cas, Il faut que tu fasses d'abord un split avec VbCrlf. C'est la constante pour les "enter" ou retour de chariot comme disait mon prof d'info ^^

'Cette commande donnera un vecteur avec chaques lignes de ton fichier
UneLigneDuFichier= Split(TachainecontenantTouteLesLignes, vbCrlf)

ensuite

'Cette command donnera un vecteur avec chaque info d'une ligne
LesDonnéesd'uneLigne = Split(UneLigneDuFichier(0), vbTab)

VbTab est la constant de tabulations. Si ça fonction pas, essaie de mettre une espace comme caractère de séparation Split ( uneChaine, " ")

Voilà

"C'est pas parce qu'ils sont nombreux à avoir tort qu'ils ont raison!"
(Coluche / 1944-1986 / Pensées et anecdotes)

VBax · Answer

Merci bonjourcheval... je vais essayer. J'ai l'impression que c'est exactement ce qu'il me fallait!! 

Je te tiens au courant.

VBax

Extraire contenu d'un fichier texte vers Excel

4 réponses

Votre réponse

Discussions similaires