Problème d'importation fichier

Bonjour,

J'importe un gros fichier txt sur excel mais une erreur survient

Sub lire()

    Fichier = Application.GetOpenFilename("Fichiers txt, *.txt")
    If Fichier = False Then Exit Sub

    N = FreeFile
    Open Fichier For Input As #N

    i = 0
    Do While Not EOF(1)
        Line Input #N, Contenu
        i = i + 1

        Table = Split(Contenu, ";")
        For j = 0 To UBound(Table)
            Cells(i, j + 1).Value = "'" & Replace(Table(j), """", "")
        Next j

    Loop

    Call CopieData
    Call SauvegardeFichier

    Close #N

End Sub

lorsque le txt est court, aucun problème tout fonctionne correctement, mais quand il est trop long le chargement reste indéfiniment et quand j'appuie sur echap et que je clique sur le debug, il m'indique que le "next j" pose probleme

quelqu'un sait ce qu'il se passe ?

Je pense avoir à peu prêt cerner le probleme,

mon code ne s'arrete pas à la premiere cellule de la colonne A non vide,

comment j'insere dans mon code un k (la derniere ligne nn vide) qui permet de stopper la boucle for à la derniere cellule non vide ?

Sub lire()

    Dim k As Long
    Fichier = Application.GetOpenFilename("Fichiers txt, *.txt")
    If Fichier = False Then Exit Sub

    N = FreeFile
    Open Fichier For Input As #N

    i = 0
    Do While Not EOF(1)
        Line Input #N, Contenu
        i = i + 1

        Table = Split(Contenu, ";")

        'For j = 0 To k --> Le k que je voudrais mettre 

         For j = 0 To UBound(Table)

            Cells(i, j + 1).Value = "'" & Replace(Table(j), "", "") --> ici que ca bug et que je dois remplacer
            Next j
        'k = Range("A" & Rows.Count).End(xlUp).Row --> me donne la derniere ligne nn vide 
    Loop

    Call CopieData
    Call SauvegardeFichier

    Close #N

End Sub

Si quelqu'un peut y jeter un coup d'oeil

Rechercher des sujets similaires à "probleme importation fichier"