Liste des Propriétés d'un fichier

J

Jean Yves

Guest
Bonjour

Je cherche une macro excel pour extraire les propriétés d'un fichier .DOC

Auteur, Date, Sujet, enfin tout ce qu'il y a dans les propriétés

Merci à tous
 
M

michel

Guest
bonsoir Jean Yves

tu peux essayer

Sub ProprietesDocWord()
Dim WrdApp As Object, WrdDoc As Object, Propriete As Object
Dim Ouvrir As String
Dim Ligne As Byte

On Error Resume Next
Ouvrir = "C:\Documents and Settings\michel\fichier.doc" 'adapter chemin

Set WrdApp = CreateObject("Word.Application")
WrdApp.Visible = False
Set WrdDoc = WrdApp.Documents.Open(Ouvrir)

For Each Propriete In WrdDoc.BuiltinDocumentProperties
Ligne = Ligne + 1
Cells(Ligne, 1) = Propriete.Name
Cells(Ligne, 2) = Propriete.Value
Next

WrdDoc.Close
WrdApp.Quit

End Sub


bonne soiree
MichelXld
 

Discussions similaires

Réponses
1
Affichages
230

Statistiques des forums

Discussions
311 735
Messages
2 082 024
Membres
101 873
dernier inscrit
excellllll