Macro récupération de propriété d'un fichier

[Jul74ien74]

Bonjour,

je souhaite via ma macro récupérer l'info qui est dans les statistique proprietaire d'un fichier mais il me dit qu'il n'est pas générer or il l'est.

Sub AfficherInfoFichier()

FichierATester = [B2]
attributs = Array("Attributes", "DateCreated", "DateLastAccessed", "DateLastModified", "Drive", "Name", "ParentFolder", "Path", "ShortName", "ShortPath", "Size", "type", "owner")

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(FichierATester)


Cells(1, 5).Value = f.Attributes
Cells(2, 5).Value = f.DateCreated
Cells(3, 5).Value = f.DateLastAccessed
Cells(4, 5).Value = f.DateLastModified
Cells(5, 5).Value = f.Drive
Cells(6, 5).Value = f.Name
Cells(7, 5).Value = f.ParentFolder
Cells(8, 5).Value = f.Path
Cells(9, 5).Value = f.ShortName
Cells(10, 5).Value = f.ShortPath
Cells(11, 5).Value = f.Size
Cells(12, 5).Value = f.Type
Cells(13, 5).Value = f.owner

For i = 0 To UBound(attributs)
Cells(i + 1, 1).Value = attributs(i)
Next
Columns("A:B").EntireColumn.AutoFit
End Sub

une idée?
on m'a parler du DSO mais je ne connais pas

 

[phlaurent55]

Re : Macro récupération de propriété d'un fichier

Bonjour Julien,

un fil de discussion similaire en cliquant ci-dessous
https://www.excel-downloads.com/thr...chieravec-integration-dans-un-tableur.223317/

à+
Philippe

 

[Jul74ien74]

Re : Macro récupération de propriété d'un fichier

merci, je sais je l'avais créer mais je n'avance pas plus

 

[phlaurent55]

Re : Macro récupération de propriété d'un fichier

Re,

peut-être avec ceci: à mettre dans un module

Sub Test()
    infosClasseurBuiltinDocumentProperties ThisWorkbook
End Sub
 
 
Sub infosClasseurBuiltinDocumentProperties(Wb As Workbook)
    Dim Valeur As DocumentProperty
    Dim i As Integer
 
    On Error Resume Next
 
    'Boucle sur la collection de propriétés prédéfinies
    For Each Valeur In Wb.BuiltinDocumentProperties
        i = i + 1
        'Insère le nom des propriétés dans la colonne A
        ThisWorkbook.Worksheets(1).Cells(i, 1) = i & "   " & Valeur.Name
        'Insère le contenu de la propriété dans la colonne B
        ThisWorkbook.Worksheets(1).Cells(i, 2) = Valeur.Value
    Next
 
    ThisWorkbook.Worksheets(1).Columns("A:B").AutoFit
End Sub

à+
Philippe

 

[Jul74ien74]

Re : Macro récupération de propriété d'un fichier

seul pb avec ce code que tu m'as donné, il me donne ttes les propriétés or moi il ne me manque plus que le owner