Discussion :

[Eco419]

Bonjour à tous,

J'ai besoin de concaténer un certain nombres de fichiers .txt, possédant tous exactement la même structure, dans un nouveau fichier .txt. Tous les fichiers sont sauvegardés dans le même répertoire, et je voudrais que mon fichier final soit également dans ce même répertoire.

J'ai par exemple :

1 fichier .txt contenant "AAAAA"
1 fichier .txt contenant "BBBBB"

Mon objectif est d'obtenir, dans un nouveau fichier texte :
AAAAA
BBBBB

Je souhaite aussi éventuellement compter le nombre de lignes contenues dans le nouveau fichier.

Après quelques essais et recherches sur le net, j'ai bricolé le code suivant :

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
44
45
46
47
48
49
50
51
52
53
54
 
Option Explicit
 
Sub Compilation_Fichier_Texte()
 
Dim k As Integer
Dim Temp As String, T As String
Dim Chemin As String, Fichier As String
Dim X As Long, FichierCompilation As String
Dim Lignes As Long
 
'Endroit où sont regroupés les fichiers texte à compiler
Chemin = "R:\Data\"
 
'Le nom du fichier où doivent être compilés les fichiers
FichierCompilation = "Compilation.txt"
 
On Error Resume Next
'Suppprime le fichier de compilation s'il existe
Kill Chemin & FichierCompilation
 
X = FreeFile
T = ""
 
Fichier = Dir(Chemin & "*.txt")
 
Do While Fichier <> ""
 
    If Fichier <> FichierCompilation Then
 
        Open Fichier For Binary Access Read As #X
        Temp = String(LOF(X), Chr(0))
        Get #X, , Temp
        T = T & Temp
        k = k + 1
        Close #X
 
    End If
 
    Fichier = Dir()
 
Loop
 
Lignes = Len(T) - _
Len(Application.WorksheetFunction.Substitute(T, Chr(10), ""))
T = Left(T, Len(T) - 2)
 
Open Chemin & FichierCompilation For Output As #X
Print #X, T
Close #X
 
MsgBox k & " fichiers ont été concaténés dans " & FichierCompilation & """ pour un total de " & Lignes & " lignes."
 
End Sub

Le code s'exécute bien, et parcourt le bon nombre de fichiers, mais le fichier généré est...Vide ! Après plusieurs tentatives et modifications, le fichier final reste vierge.
Je pense qu'il ne manque pas grand chose, est-ce-que quelqu'un aurait la bonté d'âme de m'apporter la petite correction qu'il manque :o) ?

Je précise que j'ai un niveau moyen en vba, mais c'est la première fois que je m'en sers pour manipuler des fichiers texte... Je ne suis pas trop à l'aise avec les méthodes appropriées dans ce cas.

Merci beaucoup d'avance pour votre aide.

[illight]

Salut !

Etrange, je viens de faire un test avec ta macro : la compilation des fichiers textes s'est faite correctement.
par contre, la variable "Lignes" n'a par contre pas la bonne valeur chez moi, car elle me dit que j'ai qu'une ligne alors que j'en ai 2...

[Eco419]

Hello,

Merci beaucoup pour ta réponse. Le fait que cela fonctionne bien sur ton poste est assez étrange ! Pourrais-tu stp me dire sur quelle version tu es ?
Sinon, le problème pourrait également venir de mes fichiers .txt, ils sont relativement volumineux : environ 20Mo en moyenne... Est-ce-que cela peut influencer la bonne lecture / écriture des fichiers txt ?

Merci pour ton aide

[kiki29]

Salut, je commencerai par supprimer le On Error Resume Next qui peut masquer certaines choses.

[illight]

Ah oui, ça peut venir de là, car la variable T est une variable String, je sais pas si ce n'est pas limité en un certain nombre de caractères quand même.

En te lisant, j'ai l'impression que tu as plus que 2 fichiers textes. As-tu essayer d'en compiler déjà 2 pour voir si ça fonctionne ?

Et j'ai Excel 2010

[Eco419]

Merci pour vos réponses !

@kiki29 j'ai essayé également en supprimant le On Error Resume Next qui est parfois un peu traître, mais cela n'a rien changé. La macro plante uniquement s'il n'y a pas de fichier de compilation présent initialement, mais si c'est le cas j'obtiens le même résultat : un fichier vierge

@illight : j'ai essayé de faire fonctionner le module dans un contexte simplifié : juste 2 fichiers texte cible, ne contenant chacun qu'une dizaine de caractères : même résultat...

J'ai pensé à quelque chose : peut-être y a-t-il quelque chose de mal configuré / manquant dans les références de ma version ? J'ai jeté un œil à Outil\Références dans le menu de la page de l'éditeur, ça donne :

Si vous avez une autre piste, je suis preneur !

Merci d'avance :o)

[SfJ5Rpw8]

Bonjour,


attention DIR ne renvoi que le nom de fichier et pas son chemin ...

ici :

Code :

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

Fichier = Dir(Chemin & "IRIS*.log")

du coup il faut remettre le chemin lorsque tu as besoin du nom complet ..:

Code :

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

 Open Chemin & Fichier For Binary Access Read As #X