OVH Cloud OVH Cloud

Récupérer propriétés des documents office

4 réponses
Avatar
Christophe CAMPAIN
Bonjour à tous,

Il y a 2 ou 3 ans j'avais créé une macro permettant de lister le contenu
d'un répertoire dans une feuille de calcul et d'afficher les valeurs de
certain champs personnalisés (très pratique pour connaître le numéro de
version d'un document par exemple).

A la suite d'une défaillance du mon disque due, j'ai tout perdu...

Je cherche à recréer cette macro, mais je ne maîtrise plus les fonctions qui
permettent de lire les propriétés des documents (je crois qu'il s'agissait
de Docproperty) et je ne trouve pas trace d'exemples de son utilisation pour
me mettre sur la voie.

Si vous pouviez me donner soit des exemples, soit des liens d'information
(qui traitent effectivement du sujet concerné), je vous en serais
reconnaissant.

Par avance merci

Kristof

4 réponses

Avatar
anonymousA
bonjour,

sur le site de Frédéric Sigonneau à la rubrique "Fichiers", tu trouveras
tout ce qu'il te faut et + encore.

A+


Bonjour à tous,

Il y a 2 ou 3 ans j'avais créé une macro permettant de lister le contenu
d'un répertoire dans une feuille de calcul et d'afficher les valeurs de
certain champs personnalisés (très pratique pour connaître le numéro de
version d'un document par exemple).

A la suite d'une défaillance du mon disque due, j'ai tout perdu...

Je cherche à recréer cette macro, mais je ne maîtrise plus les fonctions qui
permettent de lire les propriétés des documents (je crois qu'il s'agissait
de Docproperty) et je ne trouve pas trace d'exemples de son utilisation pour
me mettre sur la voie.

Si vous pouviez me donner soit des exemples, soit des liens d'information
(qui traitent effectivement du sujet concerné), je vous en serais
reconnaissant.

Par avance merci

Kristof




Avatar
Daniel.j
Bonjour,
Un truc come ela:
Sub nomAuthor()
[A1] = ActiveWorkbook.BuiltinDocumentProperties(3)
End Sub

Et plus complet:
Sub lstProprieteFichier()
lg = 1
Worksheets.Add
For Each LstPro In ActiveWorkbook.BuiltinDocumentProperties
Cells(lg, 1).Value = LstPro.Name
On Error Resume Next
Cells(lg, 2).Value =
ActiveWorkbook.BuiltinDocumentProperties.Item(LstPro.Name)
lg = lg + 1
Next
Columns("A:A").EntireColumn.AutoFit
Range("B10:B12").NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"
End Sub
http://dj.joss.free.fr/fichier.htm#propriete
Daniel

===================== FAQ MPFE
http://dj.joss.free.fr/faq.htm
=====================


"Christophe CAMPAIN" a écrit dans le message de
news: dl4iuh$86k$
Bonjour à tous,

Il y a 2 ou 3 ans j'avais créé une macro permettant de lister le contenu
d'un répertoire dans une feuille de calcul et d'afficher les valeurs de
certain champs personnalisés (très pratique pour connaître le numéro de
version d'un document par exemple).

A la suite d'une défaillance du mon disque due, j'ai tout perdu...

Je cherche à recréer cette macro, mais je ne maîtrise plus les fonctions
qui permettent de lire les propriétés des documents (je crois qu'il
s'agissait de Docproperty) et je ne trouve pas trace d'exemples de son
utilisation pour me mettre sur la voie.

Si vous pouviez me donner soit des exemples, soit des liens d'information
(qui traitent effectivement du sujet concerné), je vous en serais
reconnaissant.

Par avance merci

Kristof



Avatar
jb
Bonjour,

Liste des fichiers d'un répertoire:

http://cjoint.com/?lmptAecN2M

Cordialement JB
Avatar
Christophe CAMPAIN
Sujet clos

"Christophe CAMPAIN" a écrit dans le message de
news: dl4iuh$86k$
Bonjour à tous,

Il y a 2 ou 3 ans j'avais créé une macro permettant de lister le contenu
d'un répertoire dans une feuille de calcul et d'afficher les valeurs de
certain champs personnalisés (très pratique pour connaître le numéro de
version d'un document par exemple).

A la suite d'une défaillance du mon disque due, j'ai tout perdu...

Je cherche à recréer cette macro, mais je ne maîtrise plus les fonctions
qui permettent de lire les propriétés des documents (je crois qu'il
s'agissait de Docproperty) et je ne trouve pas trace d'exemples de son
utilisation pour me mettre sur la voie.

Si vous pouviez me donner soit des exemples, soit des liens d'information
(qui traitent effectivement du sujet concerné), je vous en serais
reconnaissant.

Par avance merci

Kristof