Insérer la date de DERNIERE MODIFICATION

Le
Jean-Luc GARNIER
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
papou
Le #862372
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" 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


Publicité
Poster une réponse
Anonyme