Importer un fichier texte dans Excel

Question

J'essaie d'importer un fichier texte de 16 000 lignes par 9 colonnes (délimitées par un espacement) dans Excel... La macro que j'utilise fonctionne, mais elle est lente car elle lit ligne par ligne. Dim WordArray() As String Dim RL As TextStream Dim Line As String Dim Column As Long Dim Row As Long Dim Word As Variant Set RL = FSO.OpenTextFile("C:\Users\Frédérik\Desktop\RL.txt") Row = 4 Column = 2 Do Until RL.AtEndOfStream Line = RL.ReadLine Column = 2 WordArray() = Split(Line, " ") For Each Word In WordArray() Worksheets(SheetName).Cells(Row, Column) = Word Column = Column + 1 Next Word Row = Row + 1 Loop RL.Close J'aimerais plutôt savoir s'il existe une commande qui permet de faire l'équivalent d'un Ctrl-A , Ctrl-C dans un fichier texte puis Ctrl-V dans Excel. Merci pour vos réponses, Frédérik...

dhany · Answer

Bonjour Frédérik , À part les lignes de Dim, voici ton code VBA modifié : Set RL = FSO.OpenTextFile("C:\Users\Frédérik\Desktop\RL.txt") Row = 4: Column = 2: Application.ScreenUpdating = False With Worksheets(SheetName) Do Until RL.AtEndOfStream Line = RL.ReadLine Column = 2: WordArray() = Split(Line, " ") For Each Word In WordArray() .Cells(Row, Column) = Word: Column = Column + 1 Next Word Row = Row + 1 Loop End With RL.Close Application.ScreenUpdating = True ⚠ Ta variable SheetName n'est pas déclarée et n'a pas de valeur ! tu t'en serais aperçu avec Option Explicit en début de module ! tu dois régler ce problème avant d'exécuter le code VBA ! Cordialement...

dhany · Answer

Pour le 3), après avoir validé mon message, j'ai compris que Column = 2 est obligatoire dans la boucle Do, c'est pourquoi j'ai modifié mon message et enlevé la remarque correspondante (nos messages à ce sujet se sont croisés).

Mais regarde le With Worksheets(SheetName) en dehors de la boucle Do, qui est utilisé par le .Cells() de For .. Next : est-ce que ça n'améliore pas un peu la vitesse ? car ça n'a plus besoin de chercher à chaque fois quelle est la feuille concernée.

À part ça, je n'ai pas d'autre idée, mais un autre intervenant aura sûrement mieux à te proposer, donc continue de surveiller les futures réponses.

Invité · Answer

Essaye ce code, basé sur 2 de mes fonctions génériques réutilisables dans d'autres projets Option Explicit Sub lire() Dim T As Variant T = Tinit("C:\Users\Frédérik\Desktop\RL.txt", " ") ActiveSheet.Range("A1").Resize(UBound(T, 1)+1, UBound(T, 2)+1) = T End Sub ' ***** Code PierreP56 **************************************************************************** Function Tinit(Ndf As String, Delim As String) As Variant Dim Txt As String Dim T As Variant, T1 As Variant, T2 As Variant Dim lg As Long, i As Long, j As Long Txt = Lire_Txt(Ndf) T1 = Split(Txt, vbCrLf) T2 = Split(T1(0), Delim) lg = UBound(T1) ReDim T(lg, UBound(T2)) For i = 0 To lg T2 = Split(T1(i), Delim) For j = 0 To UBound(T2) T(i, j) = T2(j) Next j Next i Tinit = T End Function Function Lire_Txt(Ndf As String) As String Dim f As Integer On Error GoTo errhdlr: f = FreeFile() Open Ndf For Binary Access Read As #f Lire_Txt = Space$(LOF(f)) Get #f, , Lire_Txt Close #f Exit Function errhdlr: Close #f Lire_Txt = "" End Function...

Invité · Answer

Est-ce que ton fichier texte commence par une ou plusieurs lignes vides? Si c'est le cas, il suffit de remplacer le zéro par la première ligne significative : par exemple : T2 = Split(T1(1), Delim) nb : 1 étant ici la 2ème ligne du txt (le comptage commence par 0)...

Invité · Answer

Tu peux aussi écrire Function Tinit(Ndf As String, Delim As String) As Variant Dim Txt As String Dim T As Variant, T1 As Variant, T2 As Variant Dim lg As Long, i As Long, j As Long On Error Resume Next Txt = Lire_Txt(Ndf) T1 = Split(Txt, vbCrLf) 'T2 = Split(T1(0), Delim) lg = UBound(T1) ReDim T(lg, 10) For i = 0 To lg T2 = Split(T1(i), Delim) For j = 0 To 10 T(i, j) = T2(j) Next j Next i Tinit = T End Function...

Invité · Answer

Il n'y a pas uniquement que le "on error ..." comme modif.

Si ton "RL.txt" est structuré en 9 colonnes délimitées par un espace, le code précédent devrait être fonctionnel.

Dans le cas contraire, il serait utile de poster un extrait (anonymisé, de quelques lignes) de ton "RL.txt"

Invité · Answer

Avec cet extrait du Rl.txt, le code proposé est parfaitement fonctionnel sur mon PC. Pour tester, les 2 fichiers de l'archive sont à dézipper dans "Mes Documents"...