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
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