Comment puis-je int=E9grer les propri=E9t=E9s de mon classeur=20
telle que le nom de l'auteur, la date du dernier=20
enregistrement dans ma feuille excel ou dans les=20
pieds/ent=EAtes de pages
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
Frédéric Sigonneau
Bonsoir,
Fais-toi un jeu de petites fonctions personnalisées renvoyant les propriétés qui t'intéressent en utilisant la collection DocumentProperties. Tu pourras ensuite les utiliser aussi bien dans une feuille de calcul que dans du code VBA (pour renseigner tes entêtes et/ou pieds de page). Le classeur dont on veut renvoyer les propriétés doit avoir été enregistré au moins une fois. Exemples pour les propriétés Auteur et Heure du dernier enregistrement (qui contient aussi la date) :
'====================== Function DernierEnregistrement() Application.Volatile DernierEnregistrement = _ CDate(ActiveWorkbook.BuiltinDocumentProperties(12).Value) End Function
Function AuteurDoc() Application.Volatile AuteurDoc = ActiveWorkbook.BuiltinDocumentProperties(3).Value End Function
Sub test() S = "Auteur : " & AuteurDoc & vbLf S = S & "Dernier enregistrement le : " & Int(DernierEnregistrement) & vbLf S = S & "à : " & Format(DernierEnregistrement, "hh:mm:ss") MsgBox S End Sub '====================== ou, dans une feuille de calcul :
=AuteurDoc()
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Comment puis-je intégrer les propriétés de mon classeur telle que le nom de l'auteur, la date du dernier enregistrement dans ma feuille excel ou dans les pieds/entêtes de pages
Bonsoir,
Fais-toi un jeu de petites fonctions personnalisées renvoyant les propriétés qui
t'intéressent en utilisant la collection DocumentProperties. Tu pourras ensuite
les utiliser aussi bien dans une feuille de calcul que dans du code VBA (pour
renseigner tes entêtes et/ou pieds de page).
Le classeur dont on veut renvoyer les propriétés doit avoir été enregistré au
moins une fois. Exemples pour les propriétés Auteur et Heure du dernier
enregistrement (qui contient aussi la date) :
'====================== Function DernierEnregistrement()
Application.Volatile
DernierEnregistrement = _
CDate(ActiveWorkbook.BuiltinDocumentProperties(12).Value)
End Function
Function AuteurDoc()
Application.Volatile
AuteurDoc = ActiveWorkbook.BuiltinDocumentProperties(3).Value
End Function
Sub test()
S = "Auteur : " & AuteurDoc & vbLf
S = S & "Dernier enregistrement le : " & Int(DernierEnregistrement) & vbLf
S = S & "à : " & Format(DernierEnregistrement, "hh:mm:ss")
MsgBox S
End Sub
'======================
ou, dans une feuille de calcul :
=AuteurDoc()
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Comment puis-je intégrer les propriétés de mon classeur
telle que le nom de l'auteur, la date du dernier
enregistrement dans ma feuille excel ou dans les
pieds/entêtes de pages
Fais-toi un jeu de petites fonctions personnalisées renvoyant les propriétés qui t'intéressent en utilisant la collection DocumentProperties. Tu pourras ensuite les utiliser aussi bien dans une feuille de calcul que dans du code VBA (pour renseigner tes entêtes et/ou pieds de page). Le classeur dont on veut renvoyer les propriétés doit avoir été enregistré au moins une fois. Exemples pour les propriétés Auteur et Heure du dernier enregistrement (qui contient aussi la date) :
'====================== Function DernierEnregistrement() Application.Volatile DernierEnregistrement = _ CDate(ActiveWorkbook.BuiltinDocumentProperties(12).Value) End Function
Function AuteurDoc() Application.Volatile AuteurDoc = ActiveWorkbook.BuiltinDocumentProperties(3).Value End Function
Sub test() S = "Auteur : " & AuteurDoc & vbLf S = S & "Dernier enregistrement le : " & Int(DernierEnregistrement) & vbLf S = S & "à : " & Format(DernierEnregistrement, "hh:mm:ss") MsgBox S End Sub '====================== ou, dans une feuille de calcul :
=AuteurDoc()
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Comment puis-je intégrer les propriétés de mon classeur telle que le nom de l'auteur, la date du dernier enregistrement dans ma feuille excel ou dans les pieds/entêtes de pages
