Discussion :

[amandon]

Bonjour à tous ,

Voila j'ai creer un code mais je bloque pour un import automatique je vous explique :

j'ai un formulaire ci dessous :

Private Sub importer_Click()

et pour l'instant le code en cliquant sur importer alimente la zone de liste à coter avec les chemin de fichier que je choisi manuellement.

Code :

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

1
2
3
4
5
6
fichierchoisi = Application.GetOpenFilename("Fichier Excel (*.xls),*.xls", , "Séléctionner un fichier Excel")
 
If (LCase(fichierchoisi) <> "faux" And fichierchoisi <> "0") Then
    liste_fichier.AddItem (fichierchoisi)
End If
End Sub

l'objectif que je cherche a avoir c'est qu'en cliquant sur importer la liste de fichier soit alimenter en scannant le dossier et les sous dossier du repertoire ou ce trouve le classeur executant en ne remontant que les fichier dont le nom compte un partie de texte spécifique.

Merci d'avance pour votre aide .

[Invité]

Bonjour,

Regardez ce tuto de Christophe WARIN, notamment la partie concernant la recherche récursive : https://warin.developpez.com/access/fichiers/#LIII-A

[amandon]

visiblement la fonction file search n'est plus disponible dans les version supérieur a 2007

[Philippe Tulliez]

Bonjour,
Un complément FileSearch pour Excel 2007

[Invité]

Si j'ai bien compris ce que vous souhaitez faire, c'est le principe de la recherche récursive qu'il faut retenir.
La procédure Explorer au paragraphe III-A est à adapter pour aller chercher non pas un fichier mais une série de fichiers Excel.

[amandon]

j'ai reussi à faire ceci

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
Sub importer_Click()
Dim Chemin As String, fichierchoisi As String
 Dim i As Integer
  Chemin = ActiveWorkbook.Path & "\"
 
    'Boucle sur tous les fichiers xls du répertoire.
    fichierchoisi = Dir(Chemin & "*amplicon.cov*" & "*.xls")
    'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers :
    'Fichier = Dir(Chemin & "*.*")
    Do While fichierchoisi <> ""
     i = i + 1
    liste_fichier.AddItem (fichierchoisi)
    fichierchoisi = Dir
Loop
MsgBox fichierchoisi
End Sub

mais il ne recherche pas dans les sous dossier et je ne sais pas ou mettre .fullname pour qu'il me renvoie le nom complet du fichier avec chemin

[amandon]

je n'arrive pas a adapter ce que vous me proposez en III.A avec ce que j'ai fait

[Invité]

Une variante :

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
 
Option Explicit
 
Private Fso As Object, Liste As Variant, IndexListe As Integer
 
Sub ListerLesFichiers()
 
Dim Debut As String
 
    Debut = ActiveWorkbook.Path ' A adapter
    Set Fso = CreateObject("Scripting.FileSystemObject")
    IndexListe = 0
    ReDim Liste(1, IndexListe)
    ListeRecursive Fso.GetFolder(Debut), ".xls"
 
    Application.DisplayAlerts = False
    If IndexListe Then
       For IndexListe = LBound(Liste, 2) To UBound(Liste, 2)
           Debug.Print "Fichier : " & Liste(0, IndexListe) & ", répertoire : " & Liste(1, IndexListe)
       Next
    End If
    Application.DisplayAlerts = True
 
    Set Fso = Nothing
 
End Sub
 
Sub ListeRecursive(ByVal f As Object, ByVal ChaineATrouver As String)
 
Dim Sf As Object, Fich As Object
 
    For Each Sf In f.SubFolders
        For Each Fich In Fso.GetFolder(Sf).Files
            If InStr(1, LCase(Fich.Name), ChaineATrouver, vbTextCompare) > 0 Then
                ReDim Preserve Liste(1, IndexListe)
                Liste(0, IndexListe) = Fich.Name
                Liste(1, IndexListe) = Fich.Path
                IndexListe = IndexListe + 1
            End If
        Next Fich
        ListeRecursive Fso.GetFolder(Sf), ChaineATrouver
    Next Sf
 
End Sub