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]

Bonsoir

Vérifies si l'un des points suivants est la source du problème
(Voir ici pour les détails)

 

[matlatarte]

le problème c'est que cela a marché ! sans rien toucher au code ! j'ai essayer plusieurs emplacement différents et s'il n'y a pas de fichier txt pas de bug !

 

[Staple1600]

Re

Tu as été lire le lien que je t'ai mis?
Si il y a une erreur 53, ce n'est pas pour rien

 

[matlatarte]

oui j'ai été voir mais à priori je ne comprend pas ce qui peut être en cause car si le fichier n'existe pas je n'ai pas d'erreur ! ce n'est que lorsqu'il existe un fichier à importer que cela bug (et ça a marché pourtant !) il m'indique
Open FsoFichier.Name For Input As #1
comme ligne qui bug...
J'ai essayé plusieurs casse pour le nom de répertoire rien n'y fait, viré la compression windows sur le fichier, pas ça non plus bug excel ? ça marche chez vous ?

 

[Staple1600]

Re

Chez moi, cela marche... mais avec ceci
Open FsoFichier For Input As #1
(ce qui n'est pas ce qu'on lit dans ton code)

 

[matlatarte]

youhouuuu CA MARCHE (je n'aurais jamais trouvé seul !) MERCI

 

[Staple1600]

Re

Tu as du être victime d'un erreur inopinée de copier/coller dans VBE

 

[matlatarte]

ça devait être ça !
au passage j'ai un souci qui ressemble: une formule qui marchait et qui ne marche plus (dans un module 2 --- en module 1 la même formule marche bien pour un autre dossier...)

si pas de txt pas d'erreur si un txt erreur chemin/accès fichier erreur 75...

Dim Fic As String
Fic = Dir("C:\test\*.txt")

Do While Fic <> ""
Kill "C:\test\" & Fic

Fic = Dir
Loop

une idée ?

 

[Staple1600]

Re

Oui.
Celle-ci

Sub SupprTXT()
Dim Fic
Fic = Dir("C:\Users\STAPLE1600\TEST\*.txt")
Do While Fic <> ""
Kill "C:\Users\STAPLE1600\TEST\" & Fic
Fic = Dir
Loop
'EFFACE APRES
'Sheets("Collecte").Range("B1:BZ60000").ClearContents
'Sheets("Transpose").Rows("2:1000").ClearContents
End Sub

PS: Ne pas oublier de remettre le bon chemin du répertoire et de dé-commenter les 2 dernières lignes.

 

[matlatarte]

même erreur 75...

 

[Staple1600]

Bonsoir

Pas d'erreur chez moi.
Quelle est ta version d'Excel?

NB: Tu as bien remis le chemin initial du dossier où se trouve les fichiers *.txt ?

 

[matlatarte]

EXCEL 2013... oui bon chemin... c'est bizarre pour du fichier .log ca marche pas d'erreur pour du txt erreur... alors que cela a marché avant aussi... je pense a du bug quelque part...

 

[Staple1600]

Re

Egalement sous Excel 2013, et je répète, pas d'erreur chez moi.
L'erreur 75 est tout aussi explicite que l'erreur 53

Erreur d'accès au chemin/fichier (Erreur 75)

Rubrique de référence sur Office VBA

docs.microsoft.com

 

[matlatarte]

et je répète :

Dim Fic
Fic = Dir("C:\xampp\htdocs\QuizResults\result\*.log")

Do While Fic <> ""
Kill "C:\xampp\htdocs\QuizResults\result\" & Fic

Fic = Dir
Loop

cela fonctionne
et

Dim Fic
Fic = Dir("C:\xampp\htdocs\QuizResults\result\*.txt")

Do While Fic <> ""
Kill "C:\xampp\htdocs\QuizResults\result\" & Fic

Fic = Dir
Loop

erreur 75... comprend pas... peut être parce que ce sont les fichiers que j'importe dans excel ? Il les bloque ?

lignes d'importation:

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:\xampp\htdocs\QuizResults\result")

'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 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