macro d'importation 100 000 lignes texte dans excel
5 réponses
McSyme
Bonjour,
Je dispose d'un fichiers texte contenant plus de 200 000 lignes et je
voudrais importer ces lignes dans excel.
Quelle macro peut me permettre d'importer en générant autant de feuilles
qu'il est nécessaire pour contenit toutes les lignes dans Excel.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LSteph
Bonjour,
le plus simple AMHA serait sans macro: à l'aide d'un éditeur subdivise ton fichier texte en 4 ouvre ces 4 fichiers depuis excel menu fichier ouvrir type de fichier:Fichier texte (txt;csv),
Tu peux ensuite regrouper tes feuilles en un seul classeur.
Cordialement.
lSteph
Bonjour, Je dispose d'un fichiers texte contenant plus de 200 000 lignes et je voudrais importer ces lignes dans excel. Quelle macro peut me permettre d'importer en générant autant de feuilles qu'il est nécessaire pour contenit toutes les lignes dans Excel.
Merci pour vos réponses
Bonjour,
le plus simple AMHA serait sans macro:
à l'aide d'un éditeur
subdivise
ton fichier texte en 4
ouvre ces 4 fichiers depuis excel
menu fichier ouvrir
type de fichier:Fichier texte (txt;csv),
Tu peux ensuite regrouper tes feuilles en un seul classeur.
Cordialement.
lSteph
Bonjour,
Je dispose d'un fichiers texte contenant plus de 200 000 lignes et je
voudrais importer ces lignes dans excel.
Quelle macro peut me permettre d'importer en générant autant de feuilles
qu'il est nécessaire pour contenit toutes les lignes dans Excel.
le plus simple AMHA serait sans macro: à l'aide d'un éditeur subdivise ton fichier texte en 4 ouvre ces 4 fichiers depuis excel menu fichier ouvrir type de fichier:Fichier texte (txt;csv),
Tu peux ensuite regrouper tes feuilles en un seul classeur.
Cordialement.
lSteph
Bonjour, Je dispose d'un fichiers texte contenant plus de 200 000 lignes et je voudrais importer ces lignes dans excel. Quelle macro peut me permettre d'importer en générant autant de feuilles qu'il est nécessaire pour contenit toutes les lignes dans Excel.
Merci pour vos réponses
Daniel
Bonjour. En supposant que les champs des enregistrements de ton fichier texte soient séparés par des ";", essaie : (il faut changer le nom et le répertoire du fichier)
Sub test() Dim Ctr As Long, shIndex As Integer, Enrgt As String Dim Tablo, Col As Integer Open "e:donneesdanieltest.txt" For Input As #1 i = 1 With Sheets(i) Do While Not EOF(1) Ctr = Ctr + 1 If Ctr > 65536 Then Ctr = 1 i = i + 1 End If Line Input #1, Enrgt Tablo = Split(Enrgt, ";") Col = 1 For Each Item In Tablo Cells(Ctr, Col) = Item Col = Col + 1 Next Item Loop End With Close #1 End Sub
"McSyme" a écrit dans le message de news:
Bonjour, Je dispose d'un fichiers texte contenant plus de 200 000 lignes et je voudrais importer ces lignes dans excel. Quelle macro peut me permettre d'importer en générant autant de feuilles qu'il est nécessaire pour contenit toutes les lignes dans Excel.
Merci pour vos réponses
Bonjour.
En supposant que les champs des enregistrements de ton fichier texte soient
séparés par des ";", essaie :
(il faut changer le nom et le répertoire du fichier)
Sub test()
Dim Ctr As Long, shIndex As Integer, Enrgt As String
Dim Tablo, Col As Integer
Open "e:donneesdanieltest.txt" For Input As #1
i = 1
With Sheets(i)
Do While Not EOF(1)
Ctr = Ctr + 1
If Ctr > 65536 Then
Ctr = 1
i = i + 1
End If
Line Input #1, Enrgt
Tablo = Split(Enrgt, ";")
Col = 1
For Each Item In Tablo
Cells(Ctr, Col) = Item
Col = Col + 1
Next Item
Loop
End With
Close #1
End Sub
"McSyme" <McSyme@discussions.microsoft.com> a écrit dans le message de news:
A3643A73-C1DA-4EB4-BE42-2844D7A6F2B8@microsoft.com...
Bonjour,
Je dispose d'un fichiers texte contenant plus de 200 000 lignes et je
voudrais importer ces lignes dans excel.
Quelle macro peut me permettre d'importer en générant autant de feuilles
qu'il est nécessaire pour contenit toutes les lignes dans Excel.
Bonjour. En supposant que les champs des enregistrements de ton fichier texte soient séparés par des ";", essaie : (il faut changer le nom et le répertoire du fichier)
Sub test() Dim Ctr As Long, shIndex As Integer, Enrgt As String Dim Tablo, Col As Integer Open "e:donneesdanieltest.txt" For Input As #1 i = 1 With Sheets(i) Do While Not EOF(1) Ctr = Ctr + 1 If Ctr > 65536 Then Ctr = 1 i = i + 1 End If Line Input #1, Enrgt Tablo = Split(Enrgt, ";") Col = 1 For Each Item In Tablo Cells(Ctr, Col) = Item Col = Col + 1 Next Item Loop End With Close #1 End Sub
"McSyme" a écrit dans le message de news:
Bonjour, Je dispose d'un fichiers texte contenant plus de 200 000 lignes et je voudrais importer ces lignes dans excel. Quelle macro peut me permettre d'importer en générant autant de feuilles qu'il est nécessaire pour contenit toutes les lignes dans Excel.
Merci pour vos réponses
Daniel
Oups.
Sub test() Dim Ctr As Long, shIndex As Integer, Enrgt As String Dim Tablo, Col As Integer Open "e:donneesdanieltest.txt" For Input As #1 i = 1 Do While Not EOF(1) Ctr = Ctr + 1 If Ctr > 65536 Then Ctr = 1 i = i + 1 End If Line Input #1, Enrgt Tablo = Split(Enrgt, ";") Col = 1 For Each Item In Tablo Sheets(i).Cells(Ctr, Col) = Item Col = Col + 1 Next Item Loop Close #1 End Sub
Cordialement. Daniel "LSteph" a écrit dans le message de news:
Bonjour,
le plus simple AMHA serait sans macro: à l'aide d'un éditeur subdivise ton fichier texte en 4 ouvre ces 4 fichiers depuis excel menu fichier ouvrir type de fichier:Fichier texte (txt;csv),
Tu peux ensuite regrouper tes feuilles en un seul classeur.
Cordialement.
lSteph
Bonjour, Je dispose d'un fichiers texte contenant plus de 200 000 lignes et je voudrais importer ces lignes dans excel. Quelle macro peut me permettre d'importer en générant autant de feuilles qu'il est nécessaire pour contenit toutes les lignes dans Excel.
Merci pour vos réponses
Oups.
Sub test()
Dim Ctr As Long, shIndex As Integer, Enrgt As String
Dim Tablo, Col As Integer
Open "e:donneesdanieltest.txt" For Input As #1
i = 1
Do While Not EOF(1)
Ctr = Ctr + 1
If Ctr > 65536 Then
Ctr = 1
i = i + 1
End If
Line Input #1, Enrgt
Tablo = Split(Enrgt, ";")
Col = 1
For Each Item In Tablo
Sheets(i).Cells(Ctr, Col) = Item
Col = Col + 1
Next Item
Loop
Close #1
End Sub
Cordialement.
Daniel
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OJtNtKx5HHA.5980@TK2MSFTNGP04.phx.gbl...
Bonjour,
le plus simple AMHA serait sans macro:
à l'aide d'un éditeur
subdivise
ton fichier texte en 4
ouvre ces 4 fichiers depuis excel
menu fichier ouvrir
type de fichier:Fichier texte (txt;csv),
Tu peux ensuite regrouper tes feuilles en un seul classeur.
Cordialement.
lSteph
Bonjour,
Je dispose d'un fichiers texte contenant plus de 200 000 lignes et je
voudrais importer ces lignes dans excel.
Quelle macro peut me permettre d'importer en générant autant de feuilles
qu'il est nécessaire pour contenit toutes les lignes dans Excel.
Sub test() Dim Ctr As Long, shIndex As Integer, Enrgt As String Dim Tablo, Col As Integer Open "e:donneesdanieltest.txt" For Input As #1 i = 1 Do While Not EOF(1) Ctr = Ctr + 1 If Ctr > 65536 Then Ctr = 1 i = i + 1 End If Line Input #1, Enrgt Tablo = Split(Enrgt, ";") Col = 1 For Each Item In Tablo Sheets(i).Cells(Ctr, Col) = Item Col = Col + 1 Next Item Loop Close #1 End Sub
Cordialement. Daniel "LSteph" a écrit dans le message de news:
Bonjour,
le plus simple AMHA serait sans macro: à l'aide d'un éditeur subdivise ton fichier texte en 4 ouvre ces 4 fichiers depuis excel menu fichier ouvrir type de fichier:Fichier texte (txt;csv),
Tu peux ensuite regrouper tes feuilles en un seul classeur.
Cordialement.
lSteph
Bonjour, Je dispose d'un fichiers texte contenant plus de 200 000 lignes et je voudrais importer ces lignes dans excel. Quelle macro peut me permettre d'importer en générant autant de feuilles qu'il est nécessaire pour contenit toutes les lignes dans Excel.
Merci pour vos réponses
Daniel
Mes excuses LSteph, le posteur fou a encore frappé ! "Daniel" a écrit dans le message de news:
Oups.
Sub test() Dim Ctr As Long, shIndex As Integer, Enrgt As String Dim Tablo, Col As Integer Open "e:donneesdanieltest.txt" For Input As #1 i = 1 Do While Not EOF(1) Ctr = Ctr + 1 If Ctr > 65536 Then Ctr = 1 i = i + 1 End If Line Input #1, Enrgt Tablo = Split(Enrgt, ";") Col = 1 For Each Item In Tablo Sheets(i).Cells(Ctr, Col) = Item Col = Col + 1 Next Item Loop Close #1 End Sub
Cordialement. Daniel "LSteph" a écrit dans le message de news:
Bonjour,
le plus simple AMHA serait sans macro: à l'aide d'un éditeur subdivise ton fichier texte en 4 ouvre ces 4 fichiers depuis excel menu fichier ouvrir type de fichier:Fichier texte (txt;csv),
Tu peux ensuite regrouper tes feuilles en un seul classeur.
Cordialement.
lSteph
Bonjour, Je dispose d'un fichiers texte contenant plus de 200 000 lignes et je voudrais importer ces lignes dans excel. Quelle macro peut me permettre d'importer en générant autant de feuilles qu'il est nécessaire pour contenit toutes les lignes dans Excel.
Merci pour vos réponses
Mes excuses LSteph, le posteur fou a encore frappé !
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OQXhmOx5HHA.5844@TK2MSFTNGP02.phx.gbl...
Oups.
Sub test()
Dim Ctr As Long, shIndex As Integer, Enrgt As String
Dim Tablo, Col As Integer
Open "e:donneesdanieltest.txt" For Input As #1
i = 1
Do While Not EOF(1)
Ctr = Ctr + 1
If Ctr > 65536 Then
Ctr = 1
i = i + 1
End If
Line Input #1, Enrgt
Tablo = Split(Enrgt, ";")
Col = 1
For Each Item In Tablo
Sheets(i).Cells(Ctr, Col) = Item
Col = Col + 1
Next Item
Loop
Close #1
End Sub
Cordialement.
Daniel
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OJtNtKx5HHA.5980@TK2MSFTNGP04.phx.gbl...
Bonjour,
le plus simple AMHA serait sans macro:
à l'aide d'un éditeur
subdivise
ton fichier texte en 4
ouvre ces 4 fichiers depuis excel
menu fichier ouvrir
type de fichier:Fichier texte (txt;csv),
Tu peux ensuite regrouper tes feuilles en un seul classeur.
Cordialement.
lSteph
Bonjour,
Je dispose d'un fichiers texte contenant plus de 200 000 lignes et je
voudrais importer ces lignes dans excel.
Quelle macro peut me permettre d'importer en générant autant de feuilles
qu'il est nécessaire pour contenit toutes les lignes dans Excel.
Mes excuses LSteph, le posteur fou a encore frappé ! "Daniel" a écrit dans le message de news:
Oups.
Sub test() Dim Ctr As Long, shIndex As Integer, Enrgt As String Dim Tablo, Col As Integer Open "e:donneesdanieltest.txt" For Input As #1 i = 1 Do While Not EOF(1) Ctr = Ctr + 1 If Ctr > 65536 Then Ctr = 1 i = i + 1 End If Line Input #1, Enrgt Tablo = Split(Enrgt, ";") Col = 1 For Each Item In Tablo Sheets(i).Cells(Ctr, Col) = Item Col = Col + 1 Next Item Loop Close #1 End Sub
Cordialement. Daniel "LSteph" a écrit dans le message de news:
Bonjour,
le plus simple AMHA serait sans macro: à l'aide d'un éditeur subdivise ton fichier texte en 4 ouvre ces 4 fichiers depuis excel menu fichier ouvrir type de fichier:Fichier texte (txt;csv),
Tu peux ensuite regrouper tes feuilles en un seul classeur.
Cordialement.
lSteph
Bonjour, Je dispose d'un fichiers texte contenant plus de 200 000 lignes et je voudrais importer ces lignes dans excel. Quelle macro peut me permettre d'importer en générant autant de feuilles qu'il est nécessaire pour contenit toutes les lignes dans Excel.
Merci pour vos réponses
Daniel
Oups.
Sub test() Dim Ctr As Long, shIndex As Integer, Enrgt As String Dim Tablo, Col As Integer Open "e:donneesdanieltest.txt" For Input As #1 i = 1 Do While Not EOF(1) Ctr = Ctr + 1 If Ctr > 65536 Then Ctr = 1 i = i + 1 End If Line Input #1, Enrgt Tablo = Split(Enrgt, ";") Col = 1 For Each Item In Tablo Sheets(i).Cells(Ctr, Col) = Item Col = Col + 1 Next Item Loop Close #1 End Sub
Cordialement. Daniel
"Daniel" a écrit dans le message de news:
Bonjour. En supposant que les champs des enregistrements de ton fichier texte soient séparés par des ";", essaie : (il faut changer le nom et le répertoire du fichier)
Sub test() Dim Ctr As Long, shIndex As Integer, Enrgt As String Dim Tablo, Col As Integer Open "e:donneesdanieltest.txt" For Input As #1 i = 1 With Sheets(i) Do While Not EOF(1) Ctr = Ctr + 1 If Ctr > 65536 Then Ctr = 1 i = i + 1 End If Line Input #1, Enrgt Tablo = Split(Enrgt, ";") Col = 1 For Each Item In Tablo Cells(Ctr, Col) = Item Col = Col + 1 Next Item Loop End With Close #1 End Sub
"McSyme" a écrit dans le message de news:
Bonjour, Je dispose d'un fichiers texte contenant plus de 200 000 lignes et je voudrais importer ces lignes dans excel. Quelle macro peut me permettre d'importer en générant autant de feuilles qu'il est nécessaire pour contenit toutes les lignes dans Excel.
Merci pour vos réponses
Oups.
Sub test()
Dim Ctr As Long, shIndex As Integer, Enrgt As String
Dim Tablo, Col As Integer
Open "e:donneesdanieltest.txt" For Input As #1
i = 1
Do While Not EOF(1)
Ctr = Ctr + 1
If Ctr > 65536 Then
Ctr = 1
i = i + 1
End If
Line Input #1, Enrgt
Tablo = Split(Enrgt, ";")
Col = 1
For Each Item In Tablo
Sheets(i).Cells(Ctr, Col) = Item
Col = Col + 1
Next Item
Loop
Close #1
End Sub
Cordialement.
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uvN5iMx5HHA.4584@TK2MSFTNGP03.phx.gbl...
Bonjour.
En supposant que les champs des enregistrements de ton fichier texte
soient séparés par des ";", essaie :
(il faut changer le nom et le répertoire du fichier)
Sub test()
Dim Ctr As Long, shIndex As Integer, Enrgt As String
Dim Tablo, Col As Integer
Open "e:donneesdanieltest.txt" For Input As #1
i = 1
With Sheets(i)
Do While Not EOF(1)
Ctr = Ctr + 1
If Ctr > 65536 Then
Ctr = 1
i = i + 1
End If
Line Input #1, Enrgt
Tablo = Split(Enrgt, ";")
Col = 1
For Each Item In Tablo
Cells(Ctr, Col) = Item
Col = Col + 1
Next Item
Loop
End With
Close #1
End Sub
"McSyme" <McSyme@discussions.microsoft.com> a écrit dans le message de
news: A3643A73-C1DA-4EB4-BE42-2844D7A6F2B8@microsoft.com...
Bonjour,
Je dispose d'un fichiers texte contenant plus de 200 000 lignes et je
voudrais importer ces lignes dans excel.
Quelle macro peut me permettre d'importer en générant autant de feuilles
qu'il est nécessaire pour contenit toutes les lignes dans Excel.
Sub test() Dim Ctr As Long, shIndex As Integer, Enrgt As String Dim Tablo, Col As Integer Open "e:donneesdanieltest.txt" For Input As #1 i = 1 Do While Not EOF(1) Ctr = Ctr + 1 If Ctr > 65536 Then Ctr = 1 i = i + 1 End If Line Input #1, Enrgt Tablo = Split(Enrgt, ";") Col = 1 For Each Item In Tablo Sheets(i).Cells(Ctr, Col) = Item Col = Col + 1 Next Item Loop Close #1 End Sub
Cordialement. Daniel
"Daniel" a écrit dans le message de news:
Bonjour. En supposant que les champs des enregistrements de ton fichier texte soient séparés par des ";", essaie : (il faut changer le nom et le répertoire du fichier)
Sub test() Dim Ctr As Long, shIndex As Integer, Enrgt As String Dim Tablo, Col As Integer Open "e:donneesdanieltest.txt" For Input As #1 i = 1 With Sheets(i) Do While Not EOF(1) Ctr = Ctr + 1 If Ctr > 65536 Then Ctr = 1 i = i + 1 End If Line Input #1, Enrgt Tablo = Split(Enrgt, ";") Col = 1 For Each Item In Tablo Cells(Ctr, Col) = Item Col = Col + 1 Next Item Loop End With Close #1 End Sub
"McSyme" a écrit dans le message de news:
Bonjour, Je dispose d'un fichiers texte contenant plus de 200 000 lignes et je voudrais importer ces lignes dans excel. Quelle macro peut me permettre d'importer en générant autant de feuilles qu'il est nécessaire pour contenit toutes les lignes dans Excel.
