pied de page personnalisé

[Phoenix]

Salut a tous,

Besoin d'un ptit coup de pouce SVP.

J'ai crée une macro pour afficher un pied de perso avec le chemin complet du fichier, mais je n'arrive pas a mettre aussi le nom de la feuille :-(

ci joint les codes utilisés

Sub Pied_Page()
Dim Repert As String
Dim Fichier As String
Dim Feuille As String
Repert = ActiveWorkbook.Path
Fichier = ActiveWorkbook.Name
With ActiveSheet.PageSetup
.LeftFooter = Repert & "\" & Fichier

End With

End Sub

Merci a ceux qui pourrons m'aider

Phoenix

 

[myDearFriend]

Bonsoir Phoenix, le Forum.

As-tu essayé avec ça :

.LeftFooter = ActiveWorkbook.FullName & " " & ActiveSheet.Name


Cordialement.
Didier_mDF

 

[Mytå]

Salut le forum


With ActiveSheet
.PageSetup.LeftFooter = ThisWorkbook.FullName & "\" & .Name
End With


Mytå

 

[Phoenix]

Bien le bonjour Mytå & mDF,

Super sympa, vous m'avez donné la solution a mon problème.

1000 merci

Phoenix