créer une liste à partir de fichier

Version imprimable

09/03/2010, 20h40
Rico75

créer une liste à partir de fichier

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
09/03/2010, 21h01
ESVBA

bonsoir Rico75 et le forum,

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

ESVBA

l'aide en ligne d'excel donne une solution

Code:

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:

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

16/03/2010, 19h35
Rico75

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

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.
17/03/2010, 15h11
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
17/03/2010, 19h01
Qwazerty

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

A++
Qwaz