Dim Chemin As String
Sub test_Avec_1_fichier()
[A1].CurrentRegion.ClearContents
Chemin = "I:\FILM TV\deja visionné\2 drame policier"
Fichier$ = "une vie de mensonge.mp4"
Get_Attributes_Fich Fichier, 3
End Sub
Function Get_Attributes_Fich(Fichier As String, index As Integer)
Dim Shell As Object, dossier As Object, shellChild As Object, X%
Dim Folder As Variant
Folder = Chemin ' conversion string/variant
Set Shell = CreateObject("Shell.Application")
Set dossier = Shell.Namespace(Folder)
If Not dossier Is Nothing Then
Set shellChild = dossier.ParseName(Fichier)
If Not shellChild Is Nothing Then
With Feuil1
Cells(index, 1).Value = Fichier
MsgBox dossier.GetDetailsOf(shellChild, 285)
For X = 1 To 300
On Error Resume Next
'si tu veux le nom et index de propriétés en ligne 1 et 2
Cells(1, X + 1).Value = X: Cells(2, X + 1).Value = dossier.GetDetailsOf(, X)
Cells(index, X + 1).Value = dossier.GetDetailsOf(shellChild, X)
On Error GoTo 0
Next
End With
End If
Set shellChild = Nothing
End If
Set dossier = Nothing
Set Shell = Nothing
Cells(1, 1).Resize(, 300).EntireColumn.AutoFit
End Function