Ouverture d'un très gros fichier

[maraboul]

Bonjour à tous,

Je vous expose mon problème: je voudrais ouvrir un fichier texte (.txt) comportant 600 000 lignes!!!!
Le problème, c'est que Excel ne comporte "que" 65 000 lignes.
Quelqu'un connaît-il le moyen d'ouvrir ce fichier? Est-il possible d'augmenter les capacités d'Excel à plus de 600 000 lignes?

Merci à ceux qui se penchent sur mon problème.

Maraboul

 

[daphné]

salut

pas possible de passer au desuus de 256*256 lignes mais par contre tu peux apres la 65536 eme ligne passer a la colonne suivante et ainsi de suite

@+

 

[Hurricane]

salut marabout et daphnée

je reactive ce fil car j'ai deja eu le probleme de marabout et c'est myta qui avait resolu le probleme

voici la macro de l'epoque faut peut etre la modifier pour ton utilisation

Sub Lire_fichier()
On Error Resume Next
a = Timer
Ligne = 1: Colonne = 1
Cells(Ligne, Colonne).Activate
'Lecture des données contenues dans un fichier texte
Open "C:\Mes Documents\resultat.txt" For Input As #1
Do While Not EOF(1) ' Loop until end of file.
Line Input #1, Textline
If Len(Textline) < 5 Then GoTo Saut
Do Until Asc(Right(Textline, 1)) <> 9
Textline = Mid(Textline, 1, Len(Textline) - 1)
Loop
Textline = Textline + Chr(9) + Chr(9)
'Extraire la chaine de caractères
nbre = 1: compte = 0
longueur = Len(Textline)
For i = nbre To Len(Textline) - 1
If Asc(Mid(Textline, i, 1)) <> 9 Then
compte = compte + 1
Else
Cells(Ligne, Colonne) = CDbl(Mid(Textline, nbre, compte))
Cells(Ligne, Colonne).NumberFormat = "General"
Ligne = Ligne + 1
nbre = nbre + compte + 1
compte = 0
If Ligne > 65534 Then
Colonne = Colonne + 1
Ligne = 1
End If
End If
Next i
Saut:
Loop
Close #1
b = Timer
MsgBox ("Temps d'exécution" & (b - a) & "secondes.")
End Sub

@+

 

[maraboul]

Merci Daphné et Hurricane; je me plonge immédiatement dans cette macro.
Au fait, moi c'est MARABOUL.

A+