Discussion :

[Rico75]

Bonjour,
Pour mon travail, j'ai un dossier intitulé aaaa_mm_jj
Dans ce dossier, se trouvent des fichiers au format .xls

J'aimerai savoir s'il est possible de créer une liste des ces fichiers (peu importe du format soit .doc, soit .xls).
Merci d'avance de votre aide

[ESVBA]

va voir dans les contributions par exemple là http://www.developpez.net/forums/d20...feuille-excel/

ESVBA

[Daranc]

l'aide en ligne d'excel donne une solution

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub AfficherListeDossiers (specdossier)
    Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(specdossier)
    Set fc = f.Files
    For Each f1 in fc
        s = s & f1.name 
        s = s & vbCrLf
    Next
    MsgBox s
End Sub

le code est facilement peut s'adapter à la pose

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
Sub AfficherListeDossiers()
specdossier = ActiveWorkbook.Path
    Dim fs, f, f1, fc, s(), i
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(specdossier)
    Set fc = f.Files
    For Each f1 In fc
       ReDim Preserve s(i)
    s(i) = f1.Name
         i = i + 1
    Next
    With Sheets(1)
    .Range("A1:a" & UBound(s, 1)).Value = Application.WorksheetFunction.Transpose(s)
    End With
End Sub

[Rico75]

Salut,
merci de votre aide mais pour moi c'est du charabia

J'ai essayé de recopier vos propositions (Daranc) et lorsque j'éxécute il y a une erreur.
Peut-être qu'il faut spécifier le nom du dossier quelque part !?!
Je pense avoir compris que la 2ème proposition de Daranc, le dossier contenant les fichiers .xls doit être actif, ouvert.

Par exemple; le dossier nommé 2010-03-15 contient les fichiers (Mme DUPONT Madeleine - pad1.xls, Mr BERNARD Alain - pad 2.xls, Mr POIREAU Stephane - pad 3.xls, ..... jusqu'à pad 16 maximum).
Que dois-je écrire exactement?

Merci d'avance d'aider un noob avec ce langage.

[Daranc]

le deuxieme code
il suffit d'enregistré le classeur dans le répertoire que l'on veut lister
(specdossier = ActiveWorkbook.Path)
la variable specdossier étant =au chemin du classeur actif

[Qwazerty]

Salut
J'avais mis ceci y'a peu de temps dans la section contribuez.

A++
Qwaz