ouvrir plusieurs fichiers texte [Résolu]

[Matt.husalem]

Bonjour,

Je suis comme Shintoo dans cette discussion je bloque sur l'erreur '53'
j'ai pourtant bien changer le répertoire de destination du code.

Par contre je l'ai mis sur un bouton pour l'utiliser mais je ne pense pas que ça vienne de là quand même ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub CommandButton1_Click()
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 = 1
 
Set Fso = CreateObject("Scripting.FileSystemObject")
Set FsoRepertoire = Fso.GetFolder("C:\Users\LaMouketta\Desktop\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
End Sub

Si tu as trouvé la solution

Cordialement,

[ZebreLoup]

Je prends le truc en cours, mais juste pour être sûr : FsoFichier.Name renvoie bien le chemin complet ou seulement le nom du fichier ?
Le problème vient peut-être de là ?

Essaie avec FsoFichier.Path

[Matt.husalem]

Impec en changeant le

Code :

Open FsoFichier.Name

par

Code :

Open FsoFichier.Path

et ça fonctionne niquel merci

Par contre est-ce qu'il serait possible que le fichier se charge dans une feuille différente plutôt que dans les colonnes ?
Ou c'est difficilement gérable ? :s

Cordialement,

[jfontaine]

Par contre est-ce qu'il serait possible que le fichier se charge dans une feuille différente plutôt que dans les colonnes ?

Peux tu nous éclairer !!

[ZebreLoup]

Ce sera assez simple.
Regarde du coté de

Code :

Worksheets.Insert

[Matt.husalem]

Envoyé par jfontaine

Peux tu nous éclairer !!

Et bien là, si dans mon répertoire j'ai 4 fichier texte, dans mon fichier excel quand j’exécute la macro, j'ai 4 colonne qui se remplissent.(la 1 avec le contenu du premier fichier .txt du répertoire, la 2 ...)

Et là je demandais si c'était possible d'ouvrir les fichiers .txt sur des feuilles différentes du document excel. (la première cellule de la feuille un remplie par le contenu du premier fichier, le première cellule de la feuille deux remplie par le contenu du deuxième fichier, ...)

[ZebreLoup]

Désolé, je voulais dire

Code :

Worksheets.Add

tu peux essayer ça

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub CommandButton1_Click()
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 = 1
 
Set Fso = CreateObject("Scripting.FileSystemObject")
Set FsoRepertoire = Fso.GetFolder("C:\Users\LaMouketta\Desktop\test")
 
Dim ws As Worksheet
'Boucle sur fichiers du repertoire
iCopie = 2
For Each FsoFichier In FsoRepertoire.Files
 
    str = Split(FsoFichier.Name, ".")
    Set ws = Worksheets.Add
    ws.Name = "fichier" & c
 
    If str(UBound(str)) = "txt" Then
 
        Open FsoFichier.Name For Input As #1
        i = 1
        Do While Not EOF(1)
 
            Line Input #1, strLigne
            ws.Cells(i, 1).Value = strLigne
            i = i + 1
 
        Loop
 
        c = c + 1
        Close #1
 
    End If
 
Next
End Sub

[Matt.husalem]

Nop ça me met une 'tite erreur '53'

[ZebreLoup]

C'était pour voir si tu suivais ! lol

J'ai pris ton premier code et j'ai oublié de remplacer Name par Path comme indiqué plus haut.

[Matt.husalem]

Je n'ai rien dit pardon :s
ça fonctionne nikel merci =)

edit : (oui je l'ai remarqué ^^)

Yeah tout ça fonctionne nikel c'est cool
et si je voulais sélectionner le contenu de mon fichier .txt qu'à partir de la deuxième ligne ce serait envisageable ? ^^

cordialement,

[ZebreLoup]

Tu fais un Line Input dans le vide, non ?

[Matt.husalem]

J'ai pas testé avec le input line dans le vide ^^
Faut que je refasse des tests demain dans la matinée (du coup j'aurais peut-être d'autre(s) question(s) :p)

je vous tiens au courant