Combiner ces 2 macros dressant la liste des fichiers dans"c:\!!!"

[IFFIC]

Bonsoir à tous qui passeront par là.
Et Merci à ceux qui m'ont tant aidé.

Le souci est qu'avec cette macro, je n'entre pas dans les sous-dossiers
pour en analyser les propriétés.

Sub SOLUTION_GET()
Set OBJET = CreateObject("Shell.Application")
Set DOSSIER = OBJET.Namespace(ActiveWorkbook.Path)

For Each FICHIERS_EXISTANTS In DOSSIER.Items
On Error Resume Next

LIGNE = LIGNE + 1

Worksheets("DRESSE").Cells(LIGNE, 1).Value = DOSSIER.GetDetailsOf(FICHIERS_EXISTANTS, 0)
Worksheets("DRESSE").Cells(LIGNE, 10).Value = DOSSIER.GetDetailsOf(FICHIERS_EXISTANTS, 9)

Next FICHIERS_EXISTANTS

End Sub

Je dois avouer avoir un peu de mal à
formuler ma question au-delà du p'tit fichier joint.

Merci d'avance; si un peu d'aide…

Bonne soirée à tous

IFFIC

 

[Bebere]

Re : Combiner ces 2 macros dressant la liste des fichiers dans"c:\!!!"

bonsoir Iffic
je t'ai mis du code dans les modules 2,3,4
explication dans code,et à adapter
à bientôt

 

[IFFIC]

Re : Combiner ces 2 macros dressant la liste des fichiers dans"c:\!!!"

bonsoir Iffic
je t'ai mis du code dans les modules 2,3,4
explication dans code,et à adapter
à bientôt

Pour du "Code"? Vingt Dieux les CODES !!!

Si nous étions Vendredi, j'y aurais passé la nuit...

Demain Boulot, alors pas Dodo trop tard.

Merci Bébère.

Je soupçonne là plein de choses intéressantes.

Merci à toi d'avoir pris la peine de me l'écrire.

Bonne soirée, ou bon matin, suivant l'heure.

IFFIC