[VBA][Excel] - récupérer liste fichiers "xls" un répertoire

Répondre
Avatar du membre
LM2I_Laurent
Administrateur - Site Admin
Messages : 279
Enregistré le : jeu. 27 août 2009 17:00

[VBA][Excel] - récupérer liste fichiers "xls" un répertoire

Message par LM2I_Laurent »

récupérer la liste des fichiers "xls" d'un répertoire:

Code : Tout sélectionner

ChDir CHEMIN
    FICHIER = Dir(CHEMIN & "*.xls")
    Do While FICHIER <> ""
        If FICHIER <> "." And FICHIER <> ".." And FICHIER <> COMPIL And FICHIER <> "Modele.xls" Then
            ActiveCell.Value = Left(FICHIER, Len(FICHIER) - 4)
            Range("I" & ActiveCell.Row + 1).Select
            compteur = compteur + 1
        End If
        FICHIER = Dir
    Loop


@+
Laurent
Image
Webmaster
http://www.lm2i.fr
http://www.lm2i.eu

Image Image Image Image
.
Répondre