Fichier Texte 1 500 000 lignes

[GillOz]

Bonjour le forum,
bon je me permets de vous contacter car votre talent n'est plus à démontrer j'ai déjà testé il y quelques moi quand j'étais en stage à Barcelone.
Bon voilà mon problème:

- Je possède un fichier texte de données de capteurs qui fait au mois 1 500 000 lignes et 4 collones, seules les 2 premières colonnes m'interressent et j'aimerai coller les valeurs de ces 2 premières colonnes dans une feuille excel en les mettant les unes à côté des autres j'usqu'à arriver à la dernière colonne, c'est clair???

Voilà est ce que quelqu'un a une idée???

MERCI LES PRO

GillOz

 

[dg62]

Bonjour Gilloz


un bout de code à tester sur ton fichier.


Sub litfichier()
Dim i As Double
i = 1
decal = 0
Open 'c:\\ficdonnees.txt' For Input As #1 '
Do While Not EOF(1)
Input #1, d1, d2, d3, d4
If i = 65537 Then
i = 1
decal = decal + 2
End If
Range('A' & i).Offset(0, decal).Value = d1
Range('B' & i).Offset(0, decal).Value = d2
i = i + 1
Loop
Close #1

End Sub

 

[compta]

Salut,
si tu ne veux pas t'emcombrer des codes vba,
tente ceci.
ouvrir une feuille de calcul excel.
suivre les étapes suivantes:
1- dans le menu, choisir 'Données'
2- puis, 'Données externes'
3- ensuite, 'Importez le fichier texte'
4- Dans la fenetre qui s'affiche, entrer dans l'explorateur pour choisir le fichier texte à partir duquel tu veux importer les données
5- Un assistant s'ouvre
6- Suivre les étapes que te propose l'assistant d'importation des données.
7- Choisir la feuille et la cellule tu veux placer tes données.
8- Tes données sont importées, y compris les colonnes non voulues.
9- supprimmer simplement les colonnes indésirables.
10- Fin

 

[GillOz]

MMMMEEEERRRRCCCIIIIIIIIIIIIIIIIIIII

C'est une énorme épine du pied car des fichiers de cette taille j'en ai 10 à analyser.


MERCI Encore

GillOz

 

[GillOz]

Désolé mais je préfère le code car je viens de le mettre à ma sauce et c'est Nickel.

Merci

GillOz en direct d'Australie