Importation de fichier texte

[Sammy]

Bonjour
Je collicite votre disponibilité et vos connaissances afin de savoir s'il existe une possiblité d'importer dans un tableau Excel(Version 2000 ou XP) des fichiers texte contenant plus de 64000 enregistrements ,nombre au delà duquel il semble imposssible de le faire.
Si vous avez besoin d'information complémentaires n'hesitez pas à me le faire savoir par mail.
En vous remerciant par avance.
Sammy

 

[andré]

Salut Sammy,

Effectivement une feuille XL est limitée à 2^8 colonnes et 2^16 lignes.

Ândré.

 

[Moa]

Il y a une solution simple !

C'est d'ouvrir ton fichier texte avec le bloc-note, de couper en deux ou en trois ton fichier et de l'importer en deux ou trois fois.

@ +

Moa

 

[Sammy]

Moa,
je te remercie pour l'attention que tu as porté à ma question,et il semble bien que ce soit la seul solution.
Encore merci.
Sammy

 

[Vériland]

Bonjour Sammy, André, Moa et toi le forum,

Bon ben à ma connaissance il est possible d'aller jusqu'à 65536 lignes sur une feuille Excel ...donc logiquement d'après ton post les 64000 données pourraient tenir sur celle-ci pour peu que tu commences bien à la première ligne...au delà de 65536 il est clair qu'il faudrait continuer sur une autre feuille, chose que je te propose de faire avec cette macro :

Sub Fichier_TXT_Volumineux()
Dim Resultat, Chemin As String
Dim Lecture As Integer
Dim Compteur As Variant
Chemin = Application.GetOpenFilename
If Chemin = "" Then End
Lecture = FreeFile()
Open Chemin For Input As #Lecture
Application.ScreenUpdating = False
Compteur = 1
Do While Seek(Lecture) <= LOF(Lecture)
Line Input #Lecture, Resultat
ActiveCell.Value = Resultat
If ActiveCell.Row = 65536 Then
ActiveWorkbook.Sheets.Add
Else
ActiveCell.Offset(1, 0).Select
End If
Compteur = Compteur + 1
Loop
Close
Application.ScreenUpdating = True
End Sub

Donc le principe est simple...on sélectionne le fichier TXT en question, on l'ouvre et les données s'inscrivent sur la feuille à partir de la cellule active...

...ensuite si les données arrivent au-delà de 65536 on insère une nouvelle feuille dans ce fichier pour continuer la lecture et l'écriture de TXT...

bon je n'ai pas placé de procédure qui annonce l'état d'avancement, selon certains critères de valeurs ajoutées cela peut durer un petit moment ...

PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...

 

[sammy]

bonjour veriland!
je te remercie bien pour les informations que tu m'as fournies,la macro me sera tres utile.
Bien sincèrement
Sammy

 

[Moa]

Salut sammy et Vériland !

Bien vu Véri...!

En fait, j'avais une macro de ce genre qui fait justement l'import de fichier contenant même jusqu'à 1 500 000 lignes.

Un ami sur un site de foot, m'en avait fait une...héhé...!

Et en fait quand j'ai commencé à répondre au post de Sammy, je comptais la lui donner....mais gros hic.....je ne la retrouve plus....hihihi....!

Alors mille merci à Vériland pour sa macro et à Sammy pour avoir osé demander...

@ + les gars !

Moa