Discussion :

[mmmxtina]

Bonjour tous le monde!!!!

Je viens en quête de votre savoir une fois de plus!!!

Alors, j'aimerai savoir comment faire pour :
- ouvrir un dossier, c'est-à-dire la fonction qui ouvre une fenêtre te demandant de sélectionner le dossier qu'il faut ouvrir
- puis lister tous les fichier .txt de ce dossier, une fois qu'il a été sélectionner

En fait j'aimerai qu'ils soient listés un par un, car je dois récupérer des informations à l'interieur de ces fichiers txt.

Voilà. une idée?

Merci beaucoup à tous!

[Krovax]

Pour choisir un répertoire j'utilise (le code viens d'une contribution mais je n'ai pas noté laquelle)

Code :

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

1
2
3
4
5
6
7
8
9
Dim objShell As Object, objFolder As Object, oFolderItem As Object
 
 
 Set objShell = CreateObject("Shell.Application")
 Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
 
 
 Set oFolderItem = objFolder.Items.Item
 chemin = oFolderItem.Path

Ensuite pour lister les fichier (je liste les .dat)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
   Dim chemin As String, Fichier As String
    Dim i As Integer
    Dim tableau() As String
 
        Fichier = Dir(chemin & "\" & "*.dat")
 
        Do While Len(Fichier) > 0
            i = i + 1
            'écrit le résultat dans le tableau.
            ReDim Preserve tableau(1 To i)
            tableau(i) = Fichier
            Fichier = Dir()
        Loop

Voila tableau contient tout tes fichiers


Edit un un bloc avec la gestion du bouton annuler

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
 
Dim objShell As Object, objFolder As Object, oFolderItem As Object
Dim chemin As String, Fichier As String
Dim i As Integer
Dim tableau() As String
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
On Error Resume Next
Set oFolderItem = objFolder.Items.Item
If Err <> 0 Then Exit Sub
On Error GoTo 0
chemin = oFolderItem.Path
Fichier = Dir(chemin & "\" & "*.dat")
Do While Len(Fichier) > 0
    i = i + 1
    'écrit le résultat dans le tableau.
    ReDim Preserve tableau(1 To i)
    tableau(i) = Fichier
    Fichier = Dir()
Loop

[mmmxtina]

PARFAIT!!!!!
Merci et bonne journée Krovax!