Import fichier .txt très lourd dans excel 2010
Fermé
mick5012
Messages postés
3
Date d'inscription
mercredi 13 août 2014
Statut
Membre
Dernière intervention
14 août 2014
-
13 août 2014 à 16:02
Raymond PENTIER Messages postés 58389 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 18 avril 2024 - 15 août 2014 à 05:46
Raymond PENTIER Messages postés 58389 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 18 avril 2024 - 15 août 2014 à 05:46
A voir également:
- Fichier excel devient volumineux
- Fichier rar - Guide
- Liste déroulante excel - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Rendre un fichier moins volumineux - Guide
3 réponses
Raymond PENTIER
Messages postés
58389
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
18 avril 2024
17 090
14 août 2014 à 02:54
14 août 2014 à 02:54
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
mick5012
Messages postés
3
Date d'inscription
mercredi 13 août 2014
Statut
Membre
Dernière intervention
14 août 2014
14 août 2014 à 12:45
14 août 2014 à 12:45
Bonjour et merci Maurice,
je suis navré de ne pas pouvoir utiliser ta macro, mes connaissances sont trop insuffisantes pour l'intégrer dans Excel.
En fait je voulais juste savoir si ce qui existait sous excel 2003 avait été reporté sous 2010.
Merci encore et peut-être à plus tard.
je suis navré de ne pas pouvoir utiliser ta macro, mes connaissances sont trop insuffisantes pour l'intégrer dans Excel.
En fait je voulais juste savoir si ce qui existait sous excel 2003 avait été reporté sous 2010.
Merci encore et peut-être à plus tard.
14 août 2014 à 12:51
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.
15 août 2014 à 05:46
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.