Lister les fichiers dans un dossier

Bonjour,

J'aimerai lister les fichiers dans un dossier. J'ai trouvé ceci sur le net :

Sub ListingFichiers()
Dim Rep As String, Fichier As String
Dim i As Integer

Rep = "AdresseDossierMettreICI"
Fichier = Dir(Rep)
Do While Fichier <> ""
    i = i + 1
    Sheets("Feuil1").Range("A" & i) = Fichier
    Fichier = Dir
Loop
End Sub

J'aimerai :

Dans la colonne A me lister les fichiers (ce qui es déjà fait).

Dans la colonne B me mettre le lien hypertexte du même fichier renommé par un X.

Dans la Colonne C me mettre le poids du fichier.

Pourriez vous me donner un petit coup de mains?

Merci

Bonne journée

Bonjour,

voici un de mes outils

Bonjour,

Merci Steelson, c'est vraiment super.

Le programme à planté à 1380 fichiers et après j'ai relancé et çà a finis le boulot pour totaliser 1790 fichiers(j'ai 300Go dedans).

J'aimerai séparer l'extension du fichier dans une colonne pour pouvoir filtrer.

Est ce possible aussi au départ de choisir quelles extensions de fichier on recherche?

Merci pour ton aide.

Arakis a écrit :

J'aimerai séparer l'extension du fichier dans une colonne pour pouvoir filtrer.

Je vais voir sur la sélection de l'extension, mais attention aux homonymes (jpg, jpeg, JPG etc...)

Bonjour,

Pour ne récupérer que l'extension, j'ai trouvé ceci :

Mid(NomFichierAvecExtension, InStrRev(NomFichierAvecExtension, ".") + 1)

Absolument

J'ai employé une autre méthode à base de split

voir fichier non encore téléchargé posté ci-avant

Bonjour,

Merci

J'ai aussi cherché

J'ai mis une colonne le nom de fichier sans son extension et une colonne pour l'extension.

J'ai mis une fonction sous.total pour compter le nombre de fichier et quand je filtre une colonne.

La je regarde pour faire un choix des le départ de l'extension de fichier. Mais je demande si le fait de filtrer à la fin est suffisant?

Bonjour,

Je me penche de nouveau sur mon problème, pour pouvoir choisir le type d'extension de fichier que l'on recherche des le départ.

Si une personne peux me dépanner

Bonne journée.

je vais regarder mais plutôt ... demain !

Coucou,

Merci steelson

Bonjour,

voici

Bonjour,

Merci Steelson, cela marche niquel.

Si je veux que .avi je mets avi

Si je veux toutes les extension, je mets * ?

Arakis a écrit :

Si je veux toutes les extension, je mets * ?

je m'attendais à cela, mais ce n'est pas sûr, fais un test et donne moi le résultat !

si pas conforme je modifierai

Bonjour,

J'ai testé çà fonctionne pas si mon mets *

Bonjour,

Tu peux modifier la ligne :

If Mid(fichier.Name, InStrRev(fichier.Name, ".") + 1) = extension Then

en :

If Mid(fichier.Name, InStrRev(fichier.Name, ".") + 1) Like extension & "*" Then

et dans le cas où tu veux tous les fichiers, dans la boite de message demandant l'extension, tu ne mets rien (laisser vide)

voici

j'ai mis aussi extension en public et déplacé l' InputBox pour éviter de l'interroger à chaque sous-dossier

Merci pour tout ,

je regarde çà

Bonjour;

Je suis repartis sur la version ou on recherche tous type fichier en même temps.

J'ai fais quelques boulettes.

J'aimerai :

1) Effacer toutes les données au démarrage de la macro à partir de la ligne 5 Range("A5").

2) Écrire dans la cellule A3 : l'adresse ou à débuter ma recherche récupérée par la boite de dialogue.

3) Ensuite insérer mes nouvelles données sur la ligne 5, sur ce point je me suis planter et çà ne m’écrit pas tous les fichiers dans les dossiers et le suivant dans la ligne en dessous etc

4) A la fin ajuster la largeur des colonnes suivant la taille du texte dedans.

Merci pour votre aide.

Bonne journée.

Bonsoir,

J'ai avancé et réparé une partie.

Cela boucle bien sur tous les fichiers dans mon dossier.

1) Comment m'assurer de nettoyer toutes les lignes à partir de la ligne 5 qui contiennent des données pour repartir à neuf?

2) Comment écrire l'adresse du Dossier de recherche dans la cellule A3?

3) A la fin ajuster la largeur des colonnes suivant la taille du texte dedans.

Merci pour votre aide.

Bonne soirée.

Beau travail !!

Arakis a écrit :

1) Comment m'assurer de nettoyer toutes les lignes à partir de la ligne 5 qui contiennent des données pour repartir à neuf?

2) Comment écrire l'adresse du Dossier de recherche dans la cellule A3?

3) A la fin ajuster la largeur des colonnes suivant la taille du texte dedans.

Pour le 1 :

Passe k comme ceci

Option Explicit
Public k As Long

puis

Dim der As Long

et

    k = 5
    der = Range("A3").End(xlDown).Row
    If der > 4 Then Range("A5:I" & der).ClearContents

Pour le 2 :

    If Repertoire.SelectedItems.Count > 0 Then
        MonRepertoire = Repertoire.SelectedItems(1)
        Range("A3") = MonRepertoire
    End If

Pour le 3 :

    Columns("A:I").EntireColumn.AutoFit
    MsgBox "Fin de la recherche"

Cela devrait fonctionner ...