Bonjour
Je sais que ma question n'a rien d'originale car c'est un probleme soulevé un grand nombre de fois tant que excel etait limitée à 65536 lignes.
Mais ça fait 2 jours que je cherche vainement une macro VBA fonctionnelle pour pouvoir lire des fichiers texte de plus de 65536 lignes (macro realisant une repartition dans x feuille de 65536 lignes d'un fichier excel).
Toutes les macros que j'ai trouvé sur les differents forums, du type de celle ci dessous ou de celle du forum microsoft
<http://support.microsoft.com/default.aspx/kb/120596/en-us>
finissent par me renvoyer une "erreur d'execution 7 memoire insuffisante" :
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
J'utilise Win 2000 pro ou win XP pro avec soit excel 2000 soit excel 2003, et j'ai toujours ce meme type d'erreur.
le fichier texte utilisé est de la forme :
13 lignes de commentaires puis les données de ce type
1;02/09/2009 10:00:33:612;00:00:00:00:000;-0,33007196;0;-0,30962396;0;-0,30754698;0;0,69060999;0
2;02/09/2009 10:00:43:508;00:00:00:09:896;-0,32999873;0;-0,30957514;0;-0,30749483;0;0,69123685;0
3;02/09/2009 10:00:53:508;00:00:00:19:896;-0,32993216;0;-0,30953631;0;-0,30746266;0;0,69061442;0
4;02/09/2009 10:01:03:508;00:00:00:29:896;-0,32995435;0;-0,30958623;0;-0,30750593;0;0,69061775;0
5;02/09/2009 10:01:13:508;00:00:00:39:896;-0,33001205;0;-0,30967056;0;-0,30758914;0;0,69061775;0
QQun a t'il une solution...
Merci d'avance.
Denis
Je sais que ma question n'a rien d'originale car c'est un probleme soulevé un grand nombre de fois tant que excel etait limitée à 65536 lignes.
Mais ça fait 2 jours que je cherche vainement une macro VBA fonctionnelle pour pouvoir lire des fichiers texte de plus de 65536 lignes (macro realisant une repartition dans x feuille de 65536 lignes d'un fichier excel).
Toutes les macros que j'ai trouvé sur les differents forums, du type de celle ci dessous ou de celle du forum microsoft
<http://support.microsoft.com/default.aspx/kb/120596/en-us>
finissent par me renvoyer une "erreur d'execution 7 memoire insuffisante" :
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
J'utilise Win 2000 pro ou win XP pro avec soit excel 2000 soit excel 2003, et j'ai toujours ce meme type d'erreur.
le fichier texte utilisé est de la forme :
13 lignes de commentaires puis les données de ce type
1;02/09/2009 10:00:33:612;00:00:00:00:000;-0,33007196;0;-0,30962396;0;-0,30754698;0;0,69060999;0
2;02/09/2009 10:00:43:508;00:00:00:09:896;-0,32999873;0;-0,30957514;0;-0,30749483;0;0,69123685;0
3;02/09/2009 10:00:53:508;00:00:00:19:896;-0,32993216;0;-0,30953631;0;-0,30746266;0;0,69061442;0
4;02/09/2009 10:01:03:508;00:00:00:29:896;-0,32995435;0;-0,30958623;0;-0,30750593;0;0,69061775;0
5;02/09/2009 10:01:13:508;00:00:00:39:896;-0,33001205;0;-0,30967056;0;-0,30758914;0;0,69061775;0
QQun a t'il une solution...
Merci d'avance.
Denis
