Pied de page ne se met pas à jour

bonjour,

mon pied de page dynamique se met bien a jour quand je vais avant spécifier dans la mise en page du classeur pied de page a "aucun" et ensuite le document généré garde le pied de page qui a été généré la première fois sans se mettre à jour. Lorsque je je retourne dans la mise en page, pied de page, celui actif est celui qui a deja été généré la première fois....

y a t'il moyen de forcer cette maj d'une manière ou d'une autre ?

Merci beaucoup pour votre aide je tourne en rond depuis des jours..

voici le code, peut etre n'est il pas correct :

Sub pdp()

Call UnprotectSheet



With ActiveSheet.PageSetup


.PageSetup.PrintArea = "A1:H99"
.PageSetup.Orientation = xlLandscape

.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 1000
ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"

.PageSetup.OddAndEvenPagesHeaderFooter = False
.PageSetup.DifferentFirstPageHeaderFooter = False
.PageSetup.ScaleWithDocHeaderFooter = True
.PageSetup.AlignMarginsHeaderFooter = True


'pdp change

Application.PrintCommunication = False


If ThisWorkbook.Sheets("External Quote").Range("N5").Value = "A" Then

.LeftFooter = "&8" & ThisWorkbook.Sheets("Feuil1").Range("A1").Value
.CenterFooter = "&8" & ThisWorkbook.Sheets("Feuil1").Range("B1").Value
.RightFooter = "&P | Page"
End If

If ThisWorkbook.Sheets("External Quote").Range("N5").Value = "B" Then

.LeftFooter = "&8" & ThisWorkbook.Sheets("Feuil1").Range("A2").Value
.CenterFooter = "&8" & ThisWorkbook.Sheets("Feuil1").Range("B2").Value
.RightFooter = "&P | Page"
End If






Application.PrintCommunication = True

End With

Dim CheminBureau As String

CheminBureau = ObtenirCheminBureau()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminBureau & "\sortie_pdf\C_" & ThisWorkbook.Sheets("PP").Range("E18").Value & "_" & ThisWorkbook.Sheets("PP").Range("E43").Value & "_" & Format(Date, "dd-mm-yyyy"), Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True



Call ProtectSheet

End Sub

Bonjour,

C'est votre macro "pdp()" qui actualise votre pied de page je suppose ?

Mais quel est l'évènement qui déclenche votre macro ? si elle n'est lancée qu'une seule fois il n'y aura pas de mise à jour.

Peut être dans l'événement de la feuille concernée :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call pdp
End Sub

Bonjour et merci pour la réponse

C'est un bouton impression qui lance cette macro.

Je n'ai pas compris pourquoi elle devait être lancée plusieurs fois par contre ! ?

merci beaucoup