afficher proprietes

[mrbean]

comment afficher dans une case certaines données de la propriete du fichier (ex: auteur , date de modifications , etc.....)
merci
a+

 

[MichelXld]

bonjour

tu peux tester cette macro , pour le classeur actif


Sub infosClasseurBuiltinDocumentProperties()
Dim Valeur As DocumentProperty
Dim R As Byte

On Error Resume Next
R = 1
For Each Valeur In ActiveWorkbook.BuiltinDocumentProperties
Cells(R, 1) = Valeur.Name
Cells(R, 2) = Valeur.Value
R = R + 1
Next
End Sub


bon apres midi
MichelXld

Message édité par: michelxld, à: 29/06/2005 12:59