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

[fif2208]

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

 

[fif2208]

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

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

 

[fif2208]

Bonjour à tous,

Je viens un peu aux nouvelles concernant ma demande.

Apparemment c'est plus compliqué que je ne l'avais imaginé. Il n'existe vraiment pas de solutions à mon problème ?

Je vous remercie et bon week-end.

Cordialement.

 

[Dranreb]

Bonjour.
Je ne sais pas si on peut trouver cette information dans une propriété de l'objet File de la bibliothèque Scripting, mais à mon avis on a plus de chances de voir comment avec des liaisons anticipées.
Cochez la référence Miscrosoft Scripting Runtime et utilisez les types de données de cette bibliothèque à la place des types Object.

Edit: J'ai un peu regardé; je n'ai trouvé aucune propriété susceptible de l'indiquer.
Il va probablement falloir passer par des API

 

[Staple1600]

Bonjour le fil, le forum

@fif2208
Si ton OS est postérieur au 11 août 1999 et qu'il n'a pas pour logo une pomme entamée
Tu peux tester ceci avec Powershell
(normalement présent en natif)

Get-ItemProperty C:\Users\CurrentUser\Downloads\Fichier.pdf | Format-List -property *

Je viens de tester mais malheureusement (et sauf erreur de ma part), la propriété:Propriétaire n'est pas listée.

NB: Pour tester, il faut mettre le chemin et le nom d'un PDF qui sont existants sur ton ordi.

EDITION: Bonjour Dranreb

 

[fif2208]

Bonjour,

Merci à tous les deux pour vos réponses.

Je vais laisser tomber car c'est trop compliqué pour moi.

Encore merci et bonne journée.

Cordialement.

 

[Lone-wolf]

Bonjour à tous

@Staple1600 : non, tu n'a commis aucune erreur. J'avais moi aussi recherché sur internet et fait 2 ou 3 tests sans succès.

 

[Staple1600]

Bonjour le fil, le forum, Lone-Wolf

@fif2208
Si tu parles de cette propriété là, alors retournons au temps de la bonne vieille Invite de Commande MS-DOS
Dans le dossier contenant les *.pdf
1) Clic-droit-> Nouveau Document Texte
(Un fichier nommé: Nouveau document texte.txt sera créé)
Ouvres-le
2) Copie/Colle dedans la ligne ci-dessous

@dir *.pdf /TC /Q>prop.txt

3) Ferme le bloc-notes en enregistrant.
4) Renomme le *.txt en ListP.cmd
5) Double-clique sur ce fichier *.cmd
6) Ouvres avec Excel (avec l'assistant d'importation)

Si tu parles d'une autre propriété, peux-tu joindre une copie d'écran d'un exemple de ce que tu entends par la propriété : Propriétaire d'un PDF, stp ?