Bonjour à tous,
A l'aide d'une macro je souhaiterais insérer le nom du fichier dans le pied de page. A noter que j'utilise le pied de page pour d'autres indications alors j'ai pensé mettre cette information dans la zone "Fixe" qui se trouve dans la boite de dialogue "En-tête et pied de page" :
La zone "Pied de page" est alimentée par la macro suivante :
Mon souci est que je n'arrive pas à trouver comment atteindre la zone "Fixe". Quel est son nom ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Sub MaJPiedPage() Dim vDpt Dim vService vDpt = InputBox("Veuillez entre le nom du département") vService = InputBox("Veuillez entrer le nom du service ou de l'office") If ActivePresentation.HasTitleMaster Then With ActivePresentation.TitleMaster.HeadersFooters With .Footer .Text = vDpt & Chr(13) & vService End With End With End If End Sub
Merci d'avance pour vos réponses !
Belle journée,
SuzyR
Partager