XL 2010 Code VBA propriéte d'un fichier d'un repertoire

fif2208 à dit:

Bonjour à tous,

Pour lister les fichiers d'un répertoire j'utilise la macro ci-après qui marche très bien .

Mais je sollicite votre aide car je n'arrive pas à retrouver le code qui me permettrait d'avoir en colonne C la propriété "Propriétaire" d'un fichier PDF.

Sub copierdossier01()
Dim Dossier As Object, Fichier As Object
Dim Chemin As String
Dim I As Long
Chemin = "C:\Documents\ Devis\"
'Définition de la variable
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
For Each Fichier In Dossier.Files
I = I + 1
Cells(I, 1) = Fichier.Name
Cells(I, 2) = Fichier.DateLastModified
Next
End Sub

Je vous remercie de votre aide.

Cordialement

Cliquez pour agrandir...

fif2208 à dit:

Bonjour à tous,

Pour lister les fichiers d'un répertoire j'utilise la macro ci-après qui marche très bien .

Mais je sollicite votre aide car je n'arrive pas à retrouver le code qui me permettrait d'avoir en colonne C la propriété "Propriétaire" d'un fichier PDF.

Sub copierdossier01()
Dim Dossier As Object, Fichier As Object
Dim Chemin As String
Dim I As Long
Chemin = "C:\Documents\ Devis\"
'Définition de la variable
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
For Each Fichier In Dossier.Files
I = I + 1
Cells(I, 1) = Fichier.Name
Cells(I, 2) = Fichier.DateLastModified
Next
End Sub

Je vous remercie de votre aide.

Cordialement

Cliquez pour agrandir...