Discussion :

[illidan05]

Bonjour tout le monde,

Je vous explique mon problème :

J'ai un dossier qui contient mon fichier excel de regroupement nommé "HC2008" et deux autres dossiers "Devis" et "Factures".

Je voudrais insérer une fonction dans mon fichier "HC2008" qui scanne les dossiers et sous dossiers de "devis" et "factures" et qui me répertorie tous les fichiers contenus dans ces 2 dossiers et me les classes dans 2 colonnes :
1 colonne devis où tous les fichiers du dossier "devis" seront contenus et une colonne facture ou tous les fichiers du dossier "factures" seront contenus avec à chaque fois un lien vers ces fichiers.

merci pour votre aide
a+

PS : je ne connais rien en macros^^

[ouisansdoute]

Bonjour il faut pourtant passer par du code.

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
Sub ListeFic()

    Dim ScanFic As Office.FileSearch
    Dim NomFic  As Variant
    Dim Diag    As String
    Dim Nbr     As Long
    Dim I       As Long
    
    Set ScanFic = Application.FileSearch
    
    With ScanFic
        .NewSearch
        .LookIn = "c:\repertoire"      ' adapter le nom du lecteur
        .SearchSubFolders = True
        .FileType = msoFileTypeAllFiles
        Nbr = .Execute
        Diag = Format(Nbr, "0 ""fichiers trouvés""")
        
        I = 0
        For Each NomFic In .FoundFiles
            I = I + 1
            Sheets("Feuil1").Cells(I, 1).Value = NomFic ' adapter le nom de la feuille
        Next
        
        MsgBox Diag
        
    End With
        
End Sub

Copie ce code dans l'éditeur visual basic, modifier le chemin du répertoire de recherche.

Puis lance la macro (Outil/Macro/macros/Listfic)