1 pièce(s) jointe(s)
Insérer le nom du fichier dans le pied de page - Utiliser la zone
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" :
Pièce jointe 270343
La zone "Pied de page" est alimentée par la macro suivante :
Code:
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 |
Mon souci est que je n'arrive pas à trouver comment atteindre la zone "Fixe". Quel est son nom ?
Merci d'avance pour vos réponses !
Belle journée,
SuzyR
