[résolu] Corriger ma macro de listage de sous-dossiers

[Prisme]

Bonjour,

J'utilise Excel 2013 sur Windows 8.

Je viens d'écrire une macro dont le but est de lister les fichiers contenus dans un dossier et dans ces sous-dossiers.
Je n'ai pas voulu écrire le nom du dossier en question en dur dans le code. À la place j'ai utilisé la commande
BrowseForFolder
qui demande à l'utilisateur de quel dossier il veut lister le contenu.
Cette partie fonctionne.
Ensuite je liste les fichiers contenus dans le dossier saisi.
Cela fonctionne s'il n'y a pas de sous-dossier.
Mais s'il y a des sous-dossiers alors ma macro ne les voit pas.
Quelqu'un pourrait-il avoir l'obligeance de me dire où je me suis planté ?
Merci,

Voici le texte de ma macro (indentation n'est pas bien reproduite) :

Sub Lister()

Application.ScreenUpdating = False
Dim MonDossier As String, MonFichier As String
Dim objShell As Object, objFichier As Object, objFichierItem As Object
Dim Chemin As String

Set objShell = CreateObject("Shell.Application")
Set objFichier = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)

On Error Resume Next
Set objFichierItem = objFichier.Items.Item
MonDossier = objFichierItem.Path
Cells(1, 1) = repertoire

MonFichier = Dir(MonDossier & "\*", vbDirectory)
i = 2
Do While MonDossier <> ""
if GetAttr(MonDossier & "\" & MonDossier) = vbDirectory Then
Cells(i, 1) = MonDossier
i = i + 1
End If
MonDossier = Dir()
Loop
End Sub

 

[herve62]

Re : Corriger ma macro de listage de sous-dossiers

Bonjour , Bienvenue dans notre "cercle"
1er conseil : fouiner un peu avant de poster donc regarde cela

http://www.excel-downloads.com/forum/126930-vba-liste-dossiers-et-sous-dossiers-dun-dosssier.html

je pense qu'en adaptant ça devrait le faire

 

[Staple1600]

Re : Corriger ma macro de listage de sous-dossiers

Bonsoir à tous

Je plussoie au conseil d'hervé62

Néanmoins je propose ce one-liner rendu possible par les petits plus qu'offre les OS récents

Sub ListeFichiers()
Dim Ret
Ret = Shell("powershell.exe get-childitem C:\temp -recurse | select-object DirectoryName,Name | where { $_.DirectoryName -ne $NULL } | Export-CSV C:\temp\ListFichiers.csv", vbHide)
End Sub

Ensuite on peaufinera avec un petit Données/Convertir pour mettre en forme.

NB: Je vous conseille de découvrir la puissance qu'offre l'utilisation de Powershell.

 

[gilbert_RGI]

Re : Corriger ma macro de listage de sous-dossiers

Bonjour, et bienvenu sur XLD

comme ceci peut-être

 

[Prisme]

Re : Corriger ma macro de listage de sous-dossiers

Merci pour vos aides mais chez moi aucune des macros ne marche

 

[gilbert_RGI]

Re : Corriger ma macro de listage de sous-dossiers

quel est le problème ?

 

[Prisme]

Re : Corriger ma macro de listage de sous-dossiers

Il n'y a pas moyen de me dire quelle ligne déconne dans ma macro ?

J'ai suivi le lien indiqué par Hervé mais là encore, qqch m'échappe.

Merci en tout cas.

 

[Prisme]

Re : Corriger ma macro de listage de sous-dossiers

Ma Macro de Staple ne fait rien.
La tienne Gilbert a un bouton, quand je clique dessus il ne se passe rien, ni résultat, ni erreur...

 

[gilbert_RGI]

Re : Corriger ma macro de listage de sous-dossiers

la sécurité des macro est comment ?

normalement tu devrais obtenir un truc de ce genre

 

[Roland_M]

Re : Corriger ma macro de listage de sous-dossiers

bonjour,

pour les sous dossiers des sous dossiers il faut utiliser la méthode récursive !

voir cet exemple simple !
plus un autre avec fichiers
puis un autre avec arborescence plus complet ! (le menu est dans l'onglet "compléments")

 

[Prisme]

Re : Corriger ma macro de listage de sous-dossiers

OK, merci beaucoup à vous tous,

J'ai recopié les trois fichiers ainsi que les urls.

Je dois faire d'autres choses maintenant et, de plus, j'ai la tête comme une pastèque, moins le jus.

Je lirai vos fichiers et vos liens cette semaine.
Ca ma l'air dur mais très intéressant. On a rien sans rien.

Bonne semaine à vous tous.

Si j'ai d'autres questions j'ouvrirai un autre fil, je clos celui-ci.

 

[Staple1600]

Re : Corriger ma macro de listage de sous-dossiers

Bonsoir à tous

Petite rectification

Ma Macro de Staple ne fait rien.

Prisme
Ma macro fait ce qu'elle doit faire (je le sais, j'ai testé avant de la poster... )
En l’occurrence, lister tous les fichiers du répertoire C:\temp (dossier qui existe sur mon PC)
Donc il fallait adapter le chemin du dossier sur ton PC en modifiant la macro en conséquence

Pour prouver que ma macro fonctionne très bien, voici la version paramétrée (plus simple d'usage normalement)
(Voir les commentaires en vert dans les code)

Sub ListerContenuDossierVersCSV()
'version macro avec paramètres
'1) on indique le chemin du dossier à lister
'2) on indique le nom du fichier de sorti
'Exemple ci-dessous : lister tous les fichiers du répertoire C:\temp et de ses sous-répertoires
'dans un fichier nommé listeALL.csv
ListeFichiers "c:\temp", "listeALL.csv"
End Sub

Private Sub ListeFichiers(sRep$, ListeFic$)
Dim Ret
Ret = Shell("powershell.exe Write-Host (get-childitem " & sRep & " -recurse | select-object DirectoryName,Name | where { $_.DirectoryName -ne $NULL } | Export-CSV " & sRep & "\" & ListeFic & ")", vbHide)
End Sub

 

[Roland_M]

Re : [résolu] Corriger ma macro de listage de sous-dossiers

Bonsoir à tous,

@Staple: je confirme que cela fonctionne !
mais je crois que notre ami n'a pas tout compris !?

en tous cas merci à toi pour cette fonction !

je vais étudier cela, je viens de tomber sur ce site !?
Powershell pour les nuls - SysKB

 

[MB33]

Re : Corriger ma macro de listage de sous-dossiers

Bonjour, et bienvenu sur XLD

comme ceci peut-être

Bonjour Je suis un nouveau membre. Merci beaucoup pour cette macro qui m'a fait gagner beaucoup de temps