Lister repertoires et sous-répertoires.

[patinator]

Bonjour,

Je suis à la recherche d’un classeur Excel, avec une macro qui me permettrai de lister le contenu d’un répertorie et de ses sous répertoire.

Un bouton parcourir mes permettrait de choisir le répertoire à lister.

La liste des fichiers serai insérer en colonne A et ligne débuterai en ligne 2. L’extension des noms de fichier n’apparaitrait pas.

Chaque non de fichier, serait un lien qui me renverra vers le dossier ou se trouve le fichier.

Je ne sais pas écrire les macros, je joins le fichier que j’aimerai améliorer.

Merci beaucoup pour votre aide.

Bonne fin de journée.

Patinator

 

[gilbert_RGI]

Re : Lister repertoires et sous-répertoires.

Bonjour,

comme ceci peut-être 😎 ou comme ça ?

 

[Roland_M]

Re : Lister repertoires et sous-répertoires.

Bonjour,

voir aussi:

 

[patinator]

Re : Lister repertoires et sous-répertoires.

Bonjour,

Merci beaucoup.

Une erreur se produit, lorsque je fais lance le fichier :

Range("A2").ResiztNmzBkU2e(UBound(Tableau) + 1) = _
Application.Transpose(Tableau)

Comment peux ton faire pour ne pas afficher l'extension et que se soit tous type de fichier pris en compte.

Merci et bonne fin de journée.

Patinator

 

[patinator]

Re : Lister repertoires et sous-répertoires.

Bonjour,

Merci pour ce tableau, il es super mais trop compliquer pour moi.

Peux ton supprimer le menu et le remplacer par des boutons et n'avoir qu'une seule colon rempli avec le nom des fichier d'un répertoire et sans extasions.

Merci beaucoup.

Patinator

 

[Roland_M]

Re : Lister repertoires et sous-répertoires.

bonjour,

tu t'adresses à qui ? à Gilbert ou à Roland ?

 

[patinator]

Re : Lister repertoires et sous-répertoires.

Re bonjour,

Toutes mes excuses, je ne suis pas un expert, le premer message :

Une erreur se produit, lorsque je fais lance le fichier :

Range("A2").ResiztNmzBkU2e(UBound(Tableau) + 1) = _
Application.Transpose(Tableau)

est pour Gilbert

Et le second pour Roland.

Merci et bonne fin de journée.

Patinator

 

[gilbert_RGI]

Re : Lister repertoires et sous-répertoires.

Bonjour,

ce n'est pas le code que j'ai placé

voici le mien

Sub Voir()
    Dim Tableau()
    Dim Chemin As String
    Chemin = "c:\" 'modifier le chemin ici

    x = Dir(Chemin & "*.xl*") 'modifier l'extension de recherche ici

    Do While Len(x) > 0
        ReDim Preserve Tableau(Compteur)
        Tableau(Compteur) = x
        Compteur = Compteur + 1
        x = Dir()
    Loop
    Sheets(1).Select
    Range("A2").Resize(UBound(Tableau) + 1) = _
    Application.Transpose(Tableau)

End Sub

😎

 

[gilbert_RGI]

Re : Lister repertoires et sous-répertoires.

voilà le code sans les extensions

Sub Voir()
    Dim Tableau()
    Dim Chemin As String
    Dim lx As Integer
    Chemin = "c:\"

    x = Dir(Chemin & "*.xl*")

    Do While Len(x) > 0
        ReDim Preserve Tableau(Compteur)
        lx = InStr(1, x, ".", 0) - 1
        Tableau(Compteur) = Left(x, lx)
        Compteur = Compteur + 1
        x = Dir()
    Loop
    Sheets(1).Select
    Range("A2").Resize(UBound(Tableau) + 1) = _
    Application.Transpose(Tableau)

End Sub

 

[patinator]

Re : Lister repertoires et sous-répertoires.

Gilbert,

Merci, mais ce code ne fonctionne pas, lorsque je lance la macro, il me dit erreur d’exécution 5, erreur d'argument.

j'ai bien collé le code dans un module.

merci.

Patinator

 

[gilbert_RGI]

Re : Lister repertoires et sous-répertoires.

si le code fonctionne parfaitement

c'est sur votre ordi qu'il y a un blème

 

[Roland_M]

Re : Lister repertoires et sous-répertoires.

re

salut gilbert !
malheureusement il a raison, il y a erreur si le Compteur = 0 !?

Sub Voir()
    Dim Tableau()
    Dim Chemin As String, Compteur&
    Dim lx As Integer
    Chemin = "c:\"

    x = Dir(Chemin & "*.xl*")

    Do While Len(x) > 0
        ReDim Preserve Tableau(Compteur)
        lx = InStr(1, x, ".", 0) - 1
        Tableau(Compteur) = Left(x, lx)
        Compteur = Compteur + 1
        x = Dir()
    Loop
    If Compteur > 0 Then
       Sheets(1).Select
       Range("A2").Resize(UBound(Tableau) + 1) = _
       Application.Transpose(Tableau)
    End If

End Sub

 

[gilbert_RGI]

Re : Lister repertoires et sous-répertoires.

merci Roland ben voilà je supposais que compteur soit >0

comme ta modif ou alors au dessous du loop

If compteur <= 0 Then Exit Sub

 

[patinator]

Re : Lister repertoires et sous-répertoires.

Bonsoir a tous,

j'ai retesté, mais je n'arrive pas a faire marché la macro.

Pouvez vous m'aider je ne m'en sort pas.

Merci.

Patinator

 

[Roland_M]

Re : Lister repertoires et sous-répertoires.

re

peux tu expliquer ce qui bloque ?
car il n'y a aucune raison !?

pourrais tu nous montrer dans quel environnement tu utilises cette macro !