Ouvrir plusieurs fichiers texte : *texte.txt [Résolu]

[Jenn74]

Bonjour.

Eh bien cela fait un petit moment que je cherche un moyen d'ouvrir plusieurs fichiers textes contenus dans un même dossier qui ont la même extension (par exemple 801memoire.txt, 802memoire.txt, ...). L'idée est de pouvoir ramener le contenu de ces fichiers sous une même et unique feuille de classeur, peu importe les étapes intermédiaires...
J'ai essayé un certain nombre de choses mais je n'arrive toujours à n'ouvrir qu'un seul fichier. Comme je suis complètement débutante (! !) je vous demande votre aide...
Merci d'avance.
Jennifer

[ouskel'n'or]

Montre le code que tu utilises, tu dois pouvoir ouvrir plein de fichiers texte sans pb.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub LectureDunFichierTexte()
Dim Ligne as string
    Open "d:\Fichier1.txt" For Input As #1
    Open "d:\Fichier2.txt" For Input As #2
    Open "d:\Fichier3.txt" For Input As #3
    Open "d:\Fichier4.txt" For Input As #4
    Do While Not EOF(1)
        Line Input #1, Ligne
        MsgBox Ligne 
    Loop
    Close #1
    Do While Not EOF(2)
        Line Input #2, Ligne
        MsgBox Ligne 
    Loop
    Close #2
    'etc...
End Sub

A+

[Jenn74]

Bonjour.

Merci pour ta réponse.
Oui apparemment le code que tu me montre peut me permettre d'en ouvrir pleins mais j'aurais aimé trouver un moyen de ne pas devoir les spécifier à l'avance. D'où l'idée de *texte.txt.
Et c'est donc bien là où je me demande si c'est possible.
Merci encore en tous cas.

[srame]

A explorer la piste du "Application.GetOpenFilename"

Voici un exemple pour un seul fichier.

Code :

1
2
3
4
5
6
7
8
9
10
Sub ouvrirdoc()
 
Dim Fichier As Variant
Dim Wb As Workbook
 
Fichier = Application.GetOpenFilename("Tout types de fichiers (*.*), *.*, Classeurs Excel (*.xls), *.xls, Fichier Texte (*.txt),*.txt", 2)
If Fichier = False Then Exit Sub
 
Set Wb = Workbooks.Open(Fichier)
End Sub

[Jenn74]

J'ai déjà essayé cette solution mais appremment il faut que je spécifie tous les fichiers à l'avance pour en ouvrir plusieurs. En exécutant cette macro il ne me permet d'en ouvrir qu'un seul.

Le mystère continue...

[ouskel'n'or]

Tu as regardé là ? Tu as plusieurs exemples dont l'un paraît faire ce que tu veux... enfin, j'en sais rien
A+

[Jenn74]

C'est en fait la fonction Dir qui permet d'ouvrir plusieurs fichiers dans un dossier.
Merci en tous cas.