Import fichier .txt très lourd dans excel 2010
mick5012
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
Raymond PENTIER Messages postés 58990 Date d'inscription Statut Contributeur Dernière intervention -
Raymond PENTIER Messages postés 58990 Date d'inscription Statut Contributeur Dernière intervention -
j'ai un fichier .TXT de 1.300.000 lignes, donc plus long que la capacité maxi d'une feuille.
sous excel 2003 il m'était proposé de découper sur plusieurs feuilles le dit fichier, mais sous 2010 cela ne semble pas être le cas.
existe-t-il une fonction sous 2010 qui permet d'éclater le fichier sur plusieurs feuilles ?
merci d'avance pour vos réponses.
sous excel 2003 il m'était proposé de découper sur plusieurs feuilles le dit fichier, mais sous 2010 cela ne semble pas être le cas.
existe-t-il une fonction sous 2010 qui permet d'éclater le fichier sur plusieurs feuilles ?
merci d'avance pour vos réponses.
A voir également:
- Fichier excel devient volumineux
- Comment réduire un fichier trop volumineux - Guide
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Fichier .dat - Guide
3 réponses
Bonjour (oui, c'est la tradition dans CCM ...).
Une première question est de savoir à quoi servira de répartir les données dans plusieurs feuilles, si on doit ensuite faire sur ces données : tris, filtres, recherches, opérations ?
Une deuxième question, un peu simpliste : Qu'est-ce qui t'empêche de sélectionner les 650.000 premières lignes du fichier txt pour copier dans une feuille, et les 650.000 autres dans une autre feuille (ou dans d'autres colonnes de la même feuille) ?
Une première question est de savoir à quoi servira de répartir les données dans plusieurs feuilles, si on doit ensuite faire sur ces données : tris, filtres, recherches, opérations ?
Une deuxième question, un peu simpliste : Qu'est-ce qui t'empêche de sélectionner les 650.000 premières lignes du fichier txt pour copier dans une feuille, et les 650.000 autres dans une autre feuille (ou dans d'autres colonnes de la même feuille) ?
Boujour
Sans modele de ton fichier Txt ses pas facile
regarde la macro CSV a toi de la modifier
Sub Tst()
ChDir ThisWorkbook.Path
Fichier = Application.GetOpenFilename("Text Files (*.csv), *.csv")
If Fichier <> False Then
LireCsvTxt Fichier
End If
End Sub
Sub LireCsvTxt(ByVal NomFichier As String)
Feuil2.Cells.Delete
Feuil1.Select
Cells.Delete
Application.ScreenUpdating = False
Fin = 65000
Lig = 2
Tag = 0
Open NomFichier For Input As #1
Do While Not EOF(1)
Line Input #1, Chaine
Ar = Split(Chaine, ";")
Col = 1
For i = LBound(Ar) To UBound(Ar)
Cells(Lig, Col) = Ar(i)
Col = Col + 1
Next
Lig = Lig + 1
If Lig = Fin And Tag = 0 Then
Feuil2.Select
Lig = 2
Tag = 1
End If
Loop
Close #1
Application.ScreenUpdating = True
End Sub
A+
Maurice
Sans modele de ton fichier Txt ses pas facile
regarde la macro CSV a toi de la modifier
Sub Tst()
ChDir ThisWorkbook.Path
Fichier = Application.GetOpenFilename("Text Files (*.csv), *.csv")
If Fichier <> False Then
LireCsvTxt Fichier
End If
End Sub
Sub LireCsvTxt(ByVal NomFichier As String)
Feuil2.Cells.Delete
Feuil1.Select
Cells.Delete
Application.ScreenUpdating = False
Fin = 65000
Lig = 2
Tag = 0
Open NomFichier For Input As #1
Do While Not EOF(1)
Line Input #1, Chaine
Ar = Split(Chaine, ";")
Col = 1
For i = LBound(Ar) To UBound(Ar)
Cells(Lig, Col) = Ar(i)
Col = Col + 1
Next
Lig = Lig + 1
If Lig = Fin And Tag = 0 Then
Feuil2.Select
Lig = 2
Tag = 1
End If
Loop
Close #1
Application.ScreenUpdating = True
End Sub
A+
Maurice
merci de m'apprendre la première règle de politesse dans CCM.
Comme je le précise à Maurice, je voulais savoir si la fonction de découpage existante sous 2003 avait été intégrée sous 2010.
Evidemment, on peut toujours prédécoupé le fichier TXT, seulement c'est une manip de plus par rapport à la version précédente d'excel.
Bonne retraite aux antilles.
Je n'ai pas souvenance d'avoir vu une telle fonction à l'époque où j'utilisais Excel 2003 ...
Si tu expliques où elle se trouve, à quoi elle ressemble et comment on l'utilise, peut-être que ça nous permettra de trouver l'équivalent sur Excel 2010.