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
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
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
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
@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)
@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
Code:
@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 ?