Exécuter une "Macro EXCEL" sur l’ensemble des fichiers "TEXTE" présents dans un même dossier.

**Bat'ian** · 27/06/2017, 21h43

Bonjour à toutes et à tous.

Voici mon problème : J’aimerai exécuter une "Macro EXCEL" sur l’ensemble des fichiers "TEXTE" présents dans un même dossier.

Explication :

_ Un dossier "Photo" contient 3 fichiers "TEXTE" (1.txt, 2.txt, 3.txt).
_ Chaque fichier ".txt" est constitué exactement de la même façon :
- à la 3ième ligne est renseigné le "Nom"
- à la 6ième ligne est renseigné le "Prenom".

Je voudrai donc que ces informations soient importées dans une feuille EXCEL de la manière suivante :

	A	B
1	Nom (3ième ligne de 1.txt)	Prenom (6ième ligne de 1.txt)
2	Nom (3ième ligne de 2.txt)	Prenom (6ième ligne de 2.txt)
3	Nom (3ième ligne de 3.txt)	Prenom (6ième ligne de 3.txt)

Voici les "Macro" que j’exécute, indépendamment l’une après l’autre, malheureusement!!
J’aimerai justement les synthétiser en "une seule et unique Macro EXCEL" et y rajouter de quoi traiter tous les Fichier ".txt" (présent dans le dossier "Photo") d'un coup !

Pour importer le "Nom"

Pour importer le "Prenom"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Nom()
Dim ifile As Integer
ifile = FreeFile
Dim x As Long
Dim Data As String
Open "D:\Photo\1.txt" For Input As #ifile
x = 1
Do While Not EOF(1)
Line Input #ifile, Data
If x = 3 Then Cells(1, 1) = Data
x = x + 1
Loop
Close #ifile
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Prenom()
Dim ifile As Integer
ifile = FreeFile
Dim x As Long
Dim Data As String
Open "D:\Photo\1.txt" For Input As #ifile
x = 1
Do While Not EOF(1)
Line Input #ifile, Data
If x = 6 Then Cells(1, 2) = Data
x = x + 1
Loop
Close #ifile
End Sub