Microsoft 365 Macro Pied de page incrusté sur feuilles sélectionnées

Syb59

XLDnaute Nouveau
Bonjour tous le monde,
Grâce à vous tous j'ai réussi à construire un super code VBA qui me permet :
- d'enregistrer mon fichier Excel en PDF dans un dossier (archivage automatique) avec le nom de plusieurs cellules
- lancer une impression de la 1 er page.
A présent je souhaiterais encore plus perfectionner mon outil et rajouter un pied de page avec le nom de 2 cellules, la date, l'heure, le numéro de page et le nombre de page.
J'ai réussi partiellement mais le soucis c'est que le pied de page n'apparait que sur la page principale et pas sur les 2 autres feuilles appartenant à ma sélection avant impression.
Pourriez vous svp m'apporter votre éclairage ? Si jamais mes explications ne sont pas claires n'hésitez pas à me demander des précisions.
En vous remerciant par avance.
Voici mon code :

Sub SavePDF()
Dim LaDate$, Chemin$, NomFeuille$
LaDate = Format(Now, "dd-mm-yyyy")
Chemin = Environ("HOMEPATH") & "\Documents\CR\"
NomFichier = Split(ThisWorkbook.Name, ".")(0)
NomFeuille = ActiveSheet.Name & " " & [E9] & [E100] & [E11]
' Construction du chemin complet
CheminComplet = Chemin & " " & NomFeuille & " " & LaDate & ".pdf"
' Sub PiedDePage()
With ActiveSheet.PageSetup
.LeftFooter = ""
.CenterFooter = [E9] & [E100] & [E11]
.RightFooter = "&D &T &P / &N"
End With
' Création fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminComplet, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
' Message de confirmation
MsgBox ("Création du fichier PDF effectué" & vbCrLf & vbCrLf & CheminComplet)
ActiveWindow.SelectedSheets.PrintPreview

End Sub
 

Phil69970

XLDnaute Barbatruc
Bonjour

Un test sans fichier donc non testé

VB:
Sub SavePDF()
Dim LaDate$, Chemin$, NomFeuille$
LaDate = Format(Now, "dd-mm-yyyy")
Chemin = Environ("HOMEPATH") & "\Documents\CR\"
NomFichier = Split(ThisWorkbook.Name, ".")(0)
NomFeuille = ActiveSheet.Name & " " & [E9] & [E100] & [E11]
' Construction du chemin complet
CheminComplet = Chemin & " " & NomFeuille & " " & LaDate & ".pdf"




'************
' Sub PiedDePage()
'With ActiveSheet.PageSetup
'    .LeftFooter = ""
'    .CenterFooter = [E9] & [E100] & [E11]
'    .RightFooter = "&D &T &P / &N"
'End With
'*********** A remplacer par
Dim Ws As Worksheet
For Each Ws In worksheets
    With Ws.PageSetup
        .LeftFooter = ""
        .CenterFooter = [E9] & [E100] & [E11]
        .RightFooter = "&D &T &P / &N"
    End With
Next sh

'***********




' Création fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminComplet, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False

' Message de confirmation
MsgBox ("Création du fichier PDF effectué" & vbCrLf & vbCrLf & CheminComplet)




'***********
'ActiveWindow.SelectedSheets.PrintPreview

'*********** A remplacer par

PrintPreview 'Visualise l'impression
'PrintOut    'Lance l'Impression

'***********

End Sub

*Merci de ton retour

@Phil69970
 

Syb59

XLDnaute Nouveau
Merci beaucoup Phil69970 pour ta réponse rapide !
Alors j'ai changé le code mais il y a une erreur au niveau de
Next sh : "Erreur de compilation. Référence de variable de contrôle incorrecte dans Next. "Je te joins le fichier.
 

Pièces jointes

  • CR C Biom .xlsm
    88 KB · Affichages: 13

Discussions similaires

Statistiques des forums

Discussions
311 726
Messages
2 081 955
Membres
101 852
dernier inscrit
dthi16088