Je cherche, comme cela est possible avec d'autres outils Office, à insérer
en pied de page d'une présentation la date de dernière modification.
Powerpoint ne sait, semble-t-il, manipuler que la date du jour ou la date de
création (statique)... Quelqu'un a-t-il une idée ?
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
papou
Bonjour Avec une macro ? A adapter :
Sub AfficheDateModif() Dim Fso, NomF, F NomF = Application.ActivePresentation.FullName Set Fso = CreateObject("Scripting.fileSystemObject") Set F = Fso.GetFile(NomF) With ActivePresentation.Slides.Range.HeadersFooters With .Footer .Text = F.DateLastModified .Visible = msoTrue End With End With Set NomF = Nothing Set F = Nothing Set Fso = Nothing End Sub
Cordialement Pascal
"Jean-Luc GARNIER" <jean-luc.garnier(at)gemalto.com> a écrit dans le message de news:
Bonjour,
Je cherche, comme cela est possible avec d'autres outils Office, à insérer en pied de page d'une présentation la date de dernière modification. Powerpoint ne sait, semble-t-il, manipuler que la date du jour ou la date de création (statique)... Quelqu'un a-t-il une idée ?
Merci d'avance !
-- Jean-Luc, Auriol, FRANCE
Bonjour
Avec une macro ?
A adapter :
Sub AfficheDateModif()
Dim Fso, NomF, F
NomF = Application.ActivePresentation.FullName
Set Fso = CreateObject("Scripting.fileSystemObject")
Set F = Fso.GetFile(NomF)
With ActivePresentation.Slides.Range.HeadersFooters
With .Footer
.Text = F.DateLastModified
.Visible = msoTrue
End With
End With
Set NomF = Nothing
Set F = Nothing
Set Fso = Nothing
End Sub
Cordialement
Pascal
"Jean-Luc GARNIER" <jean-luc.garnier(at)gemalto.com> a écrit dans le message
de news: 7CBE422E-E95D-499F-9196-FBAE4C360E12@microsoft.com...
Bonjour,
Je cherche, comme cela est possible avec d'autres outils Office, à insérer
en pied de page d'une présentation la date de dernière modification.
Powerpoint ne sait, semble-t-il, manipuler que la date du jour ou la date
de
création (statique)... Quelqu'un a-t-il une idée ?
Sub AfficheDateModif() Dim Fso, NomF, F NomF = Application.ActivePresentation.FullName Set Fso = CreateObject("Scripting.fileSystemObject") Set F = Fso.GetFile(NomF) With ActivePresentation.Slides.Range.HeadersFooters With .Footer .Text = F.DateLastModified .Visible = msoTrue End With End With Set NomF = Nothing Set F = Nothing Set Fso = Nothing End Sub
Cordialement Pascal
"Jean-Luc GARNIER" <jean-luc.garnier(at)gemalto.com> a écrit dans le message de news:
Bonjour,
Je cherche, comme cela est possible avec d'autres outils Office, à insérer en pied de page d'une présentation la date de dernière modification. Powerpoint ne sait, semble-t-il, manipuler que la date du jour ou la date de création (statique)... Quelqu'un a-t-il une idée ?