65536 ligne un peu juste

Salut Mickmicks,

Il y a des solutions mais, pour en choisir une, il faudrait que tu précises ton objectif.

As-tu besoin de charger tout le fichier ou bien seulement les lignes qui t'intéressent ?
Les lignes ont-elles des données réparties sur plusieurs colonnes et, si oui, quel est le séparateur ?

A+
Horatio

Bonjour mickmicks

il ya quelques temps j'avais eu le meme probleme et myta avait realisé une ptit macro pour passer a la colonne suivant voir le fil suivant


http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=22852&t=22825

@+

En fait, j'ai un fichier avec 100000 données et j'ai besoin de toutes les données au depart aprés je fait un tri mais il me faudrait le fichier sur 2 ou 3 feuilles. Les separateurs sont fait via une macro que je fait a l'ouverture du fichier

Cette macro me semble pas mal mais j'ai du mal a changé le faite de passé a la colonne suivante en passage a la feuille suivante...

Sub lecture_fichier_txt()
cellule = 1: colonne = 1
'Lecture des données contenues dans un fichier texte
Open "C:\poubelle\azerty1.txt" For Input Access Read As 1
Do While Not EOF(1) ' Loop until end of file.
Line Input #1, Textline
'Affiche le fichier lue
With ActiveCell
Cells(cellule, colonne).Activate
.NumberFormat = "@"
.Value = Textline
End With
cellule = cellule + 1
If cellule > 65535 Then
cellule = 1
colonne = colonne + 1
End If
Loop
Close #1
End Sub

------------------------------------------------------------------------------------------------

Salut Mickmicks, Lord Nelson, Hurricane et le Forum

Essaye avec ceci

Sub lecture_fichier_txt()
Dim Ligne As Long
Dim Textline
Ligne = 1
'Lecture des données contenues dans un fichier texte
Open "C:\poubelle\azerty1.txt" For Input Access Read As 1
Do While Not EOF(1) ' Loop until end of file.
Line Input #1, Textline
'Affiche le fichier lue
Cells(Ligne, 1).Activate
With ActiveCell
.NumberFormat = "@"
.Value = Textline
End With
Ligne = Ligne + 1
If Ligne > 65535 Then
Sheets.Add after:=ActiveSheet
Ligne = 1
End If
Loop
Close #1
End Sub

Mytå

Bonsoir le forum,

J'ai refait quelque modif sur le code que myta m'avais passé...

Par contre pour l'ouverture du fichier text , j'utilise ce morceau de code pour faire la mise en page dans les colonnes :

Workbooks.OpenText Filename:=fichier, Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(10 _
, 1), Array(19, 1), Array(23, 1), Array(35, 1), Array(66, 1))


et j'utilise le code suivant pour ouvrir le fichier text sur plusieur feuilles :

je voudrais ouvrir le fichier sur plusieur feuille toute en ayant la mise en forme dans les colonnes.

Merci d'avance

====================================================
Sub lecture_fichier_txt()
cellule = 1: colonne = 1

'Lecture des données contenues dans un fichier texte

Dim fichier
Dim Ligne As Long
Dim Textline
Ligne = 65536


nom_fichier = Application.GetOpenFilename(Title:="Quel est le fichier que vous voulez ouvrir?")

fichier = nom_fichier

Open fichier For Input Access Read As 1

Sheets(1).Select

Do While Not EOF(1) ' Loop until end of file.
Line Input #1, Textline
'Affiche le fichier lue

Cells(Ligne, 1).Activate
With ActiveCell
.NumberFormat = "@"
.Value = Textline
End With
Ligne = Ligne + 1
If Ligne > 65 Then
Sheets.Add after:=ActiveSheet
Ligne = 1
End If
Loop
Close #1
End Sub