affichage de l'auteur

[mrbean]

je voudrais faire apparaitre le nom de l'auteur d'un fichier excel dans une case de ce fichier, ou la date de modification ou un autre renseignement repris dans les proprietes du fichier .

merci de votre aide a+++

 

[MichelXld]

bonjour

j'espere que ces 2 exemples pourront t'aider


Sub infosClasseurBuiltinDocumentPropertiesV01()
Dim Valeur As DocumentProperties

Set Valeur = ThisWorkbook.BuiltinDocumentProperties
MsgBox Valeur('Author').Value
End Sub




Sub infosClasseurBuiltinDocumentPropertiesVO2()
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