Discussion :

[philatex]

Bonjour a tous

voila je suis bloqué et panique je dois analyser pour demain matin 156 fichiers texte, je cherche désespérément le moyen de pouvoir ouvrir chaque fichier et insérer les donnée de chaque fichier dans une nouvelle colonne d'excel

s'il vous plait aidez moi

merci encore

[jfontaine]

Bonjour,

Ci dessous un code qui boucle sur chaque fichier d'un répertoire, ouvre les fichiers txt et insere les données dans une colonne de la feuille contenant ce code. On change de colonne a chaque chargement de fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub a()
 
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:\Documents and Settings\jerome.fontaine\Bureau\Excel\FSO multi texte")
 
'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

[philatex]

Bonjour

merci de t'interresser a mon probleme, je n'ai vu ton message que ce matin et j'essaye de le faire fonctionner mais j'ai une erreur execution 53

fichier introuvable sur cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Open FsoFichier.Name For Input As #1

j'ai modifier la ligne : ( repertoire ou sont contenu mes fichiers txt)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set FsoRepertoire = Fso.GetFolder("C:\mes fichiers")

je debute et j'avoue ne pas tout comprendre

merci de ton aide

[jfontaine]

Ce code fonctionne comme suit

- Pour chaque fichier dans le repertoire

- Test l'extension du fichier
- Si txt alors on ouvre le fichier
- On boucle sur toutes lignes du fichier et on insere les données dans la colonne numero c (variable)
- on fermer le fichier, on ajoute 1 au numero de la prochaine colonne et on passe au fichier suivant

[philatex]

Super merci en faite ca marche j'ai modifier le chemin différemment et ca fonctionne

tu me tires une sacrée épine du pied

merci encore