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
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