import fichiers txt excel bug

[matlatarte]

Bonjour en recoupant plusieurs méthodes j'ai réussis (non sans mal) à importer des fichiers txt dans des colonnes excel. Le code fonctionnait bien MAIS en ressortant du fichier excel et en rerentrant plus rien de fonctionne erreur 53 fichier introuvable alors que rien n'a changé ! BUG ? Je n'y connais pas grand chose...

Quelqu'un pourrait m'aider à trouver un code qui ne bug pas, qui récupère le contenu des txt du dossier cible et les copie / colle dans les colonnes de mon fichier excel (ici à partir de c2) ?

Il y a aussi dans le tableur tout un tas de petits codes pour m'organiser les données. N'y faite pas attention...cela doit pas être beau à voir !

voici le code qui bug:
Open FsoFichier.Name For Input As #1

et plus généralement

Dim Fso As Object
Dim FsoRepertoire As Object
Dim FsoFichier As Object

Dim str() As String
Dim strLigne As String

Dim i As Long
Dim c As Integer

c = 2

Set Fso = CreateObject("Scripting.FileSystemObject")
Set FsoRepertoire = Fso.GetFolder("C:\TEST")

'Boucle sur fichiers du repertoire
iCopie = 2
For Each FsoFichier In FsoRepertoire.Files

str = Split(FsoFichier.Name, ".")

If str(UBound(str)) = "txt" Then

Open FsoFichier.Name For Input As #1
i = 1
Do While Not EOF(1)

Line Input #1, strLigne
Cells(i, c).Value = strLigne
i = i + 1

Loop

c = c + 1
Close #1

End If

Next

Set Fso = Nothing: Set FsoRepertoire = Nothing: Set FsoFichier = Nothing

ci joint mon fichier excel pour illustrer avec un txt.

Ça fait tout l'après midi que je cherche j'en peux plus !

 

[Staple1600]

Re

Remplace (pour test)
Kill "C:\xampp\htdocs\QuizResults\result\" & Fic
par
MsgBox Fic

Qu'affiche alors le MsgBox?

 

[matlatarte]

j'ai essayé

Set MonFichierSupp = CreateObject("Scripting.FileSystemObject")
MonFichierSupp.DeleteFile ("C:\xampp\htdocs\QuizResults\result\*.txt")

il m'a indiqué permission refusé

j'ai donc vérifié en manuel la suppression dans le dossier et 1 fichier txt m'a demandé la permission administrateur ?! à priori cela venait de là !

 

[matlatarte]

merci !