Pied de page sur toute les pages sauf une

Bonjour,

Grâce à quelques uns d'entre vous j'utilise depuis
2-3 ans une macro développée suite à vos bons conseils.

Je voudrais la "paufiner" un peu si c'est possible et je refais
donc appel encore une fois à vos lanternes !!

Voici, la macro insère automatiquement le nom du fichier et le
chemin complet (limité à 150 caractères) en pied de page et
ce, sur toutes les feuilles du classeur.

Je voudrais que l'information se retrouve sur toutes les pages
SAUF sur celle nommée "titre".

Est-ce possible ????

Merci d'avance à qui pourra m'aider

Voici le code que j'utilise



Sub Pied_page_sauvegarde1()

Dim sht As Worksheet

For Each sht In ActiveWorkbook.Worksheets

Dim LeNom As String
Application.EnableEvents = False
With sht
LeNom = ActiveWorkbook.FullName
With .PageSetup
.RightFooter = ""
.CenterFooter = ""
.LeftFooter = ""

End With
sht.PageSetup.LeftFooter = "&""Stylus bt,Normal""&5" & "..." &
Right(LeNom, 150)
sht.PageSetup.RightFooter = "&""Stylus bt,Normal""&5" & " &D"
End With

Application.EnableEvents = True

Next sht

ActiveWorkbook.Save

End Sub

Bonsoir Gaspareau,

Si j'ai bien compris, ça devrait être ça :

Sub Pied_page_sauvegarde1()

Dim sht As Worksheet

For Each sht In ActiveWorkbook.Worksheets

Dim LeNom As String
Application.EnableEvents = False
With sht
LeNom = ActiveWorkbook.FullName
With .PageSetup
.RightFooter = ""
.CenterFooter = ""
.LeftFooter = ""
End With

If Ucase(sht.Name) <> "TITRE" Then
sht.PageSetup.LeftFooter = "&""Stylus bt,Normal""&5" & _
"..." & Right(LeNom, 150)
sht.PageSetup.RightFooter = "&""Stylus bt,Normal""&5" & " &D"
End If
End With
Application.EnableEvents = True
Next sht
ActiveWorkbook.Save
End Sub

Bonjour,

Grâce à quelques uns d'entre vous j'utilise depuis
2-3 ans une macro développée suite à vos bons conseils.

Je voudrais la "paufiner" un peu si c'est possible et je refais
donc appel encore une fois à vos lanternes !!

Voici, la macro insère automatiquement le nom du fichier et le
chemin complet (limité à 150 caractères) en pied de page et
ce, sur toutes les feuilles du classeur.

Je voudrais que l'information se retrouve sur toutes les pages
SAUF sur celle nommée "titre".

Est-ce possible ????

Merci d'avance à qui pourra m'aider

Voici le code que j'utilise



Sub Pied_page_sauvegarde1()

Dim sht As Worksheet

For Each sht In ActiveWorkbook.Worksheets

Dim LeNom As String
Application.EnableEvents = False
With sht
LeNom = ActiveWorkbook.FullName
With .PageSetup
.RightFooter = ""
.CenterFooter = ""
.LeftFooter = ""

End With
sht.PageSetup.LeftFooter = "&""Stylus bt,Normal""&5" & "..." &
Right(LeNom, 150)
sht.PageSetup.RightFooter = "&""Stylus bt,Normal""&5" & " &D"
End With

Application.EnableEvents = True

Next sht

ActiveWorkbook.Save

End Sub

--
Cordialement,

Jacques.

Encore une fois je suis bouche la bée !!!

Merci c'est exactement le résultat que je désirais

Et dire que cela a pris 20 minutes seulement !!!