Discussion :

[SuzyR]

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 :

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

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

[Hifu Man]

Bonsoir

Tu peux l'atteindre et modifier ses propriétés par

With ActivePresentation.SlideMaster
i = .Shapes.Count: Stop
End With