Problème d'importation fichier
M
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 ?
M
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