lire les propriétés d'un document dans une macro EXCEL
1 réponse
Daniel
Bonjour ,
Je fais une liste de fichiers pr=E9sents sur un r=E9pertoire ,=20
et pour avoir une doc compl=E8te , je voudrais lire les=20
propri=E9t=E9s de chacun des fichiers ( Titre , sujet ,=20
auteur , .. )=20
Comment faire ??
Merci de vos r=E9ponses.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
dadda
Si tu ne veux que lire tu fais : Fichier-->Propriétés Si tu veux écrire, tu applique le code donné ici-même par Isabelle, que je salue.
Sub Proprietesdoc() x = 1 On Error Resume Next For Each p In ActiveWorkbook.BuiltinDocumentProperties Cells(x, 1).Value = p.Name Cells(x, 2).Value = p.Value x = x + 1 Next Columns.AutoFit End Sub
Cordialement Dadda
-----Message d'origine----- Bonjour , Je fais une liste de fichiers présents sur un répertoire ,
et pour avoir une doc complète , je voudrais lire les propriétés de chacun des fichiers ( Titre , sujet , auteur , .. ) Comment faire ?? Merci de vos réponses.
.
Si tu ne veux que lire tu fais :
Fichier-->Propriétés
Si tu veux écrire, tu applique le code donné ici-même par
Isabelle, que je salue.
Sub Proprietesdoc()
x = 1
On Error Resume Next
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(x, 1).Value = p.Name
Cells(x, 2).Value = p.Value
x = x + 1
Next
Columns.AutoFit
End Sub
Cordialement
Dadda
-----Message d'origine-----
Bonjour ,
Je fais une liste de fichiers présents sur un
répertoire ,
et pour avoir une doc complète , je voudrais lire les
propriétés de chacun des fichiers ( Titre , sujet ,
auteur , .. )
Comment faire ??
Merci de vos réponses.
Si tu ne veux que lire tu fais : Fichier-->Propriétés Si tu veux écrire, tu applique le code donné ici-même par Isabelle, que je salue.
Sub Proprietesdoc() x = 1 On Error Resume Next For Each p In ActiveWorkbook.BuiltinDocumentProperties Cells(x, 1).Value = p.Name Cells(x, 2).Value = p.Value x = x + 1 Next Columns.AutoFit End Sub
Cordialement Dadda
-----Message d'origine----- Bonjour , Je fais une liste de fichiers présents sur un répertoire ,
et pour avoir une doc complète , je voudrais lire les propriétés de chacun des fichiers ( Titre , sujet , auteur , .. ) Comment faire ?? Merci de vos réponses.
