VBA - Initialiser mise en page
Le
ThierryP
Bonjour le forum,
En VBA, je fais la mise en page d'une feuille suivant les valeurs de certai=
nes variables : en-têtes, pieds de page, marges etc. Ca donne çà e=
n raccourci :
Sub Mise_en_Page()
Application.ScreenUpdating = False
Zone_Utile = Range("A10:AW" & Range("I65000").End(xlUp).Row).Address
With ActiveSheet.PageSetup
.PrintArea = Feuil2.Range(Zone_Utile)
.PrintTitleRows = ActiveSheet.Range("$10:$10")
.LeftHeader = Range("Réf_Doc")
.CenterHeader = Range("Nom_Doc")
.RightHeaderPicture.Filename = _
"I:Modèles Documents CommunsLogoslogo couleur.jpg"
etc etc
Mons souci est qu'Excel refuse obstinément de tenir compte de la zone d'i=
mpression et de la ligne à répéter..
Donc il m'imprime A1:AWxxx et ne veut rien savoir de plus!! Je peux modifie=
r tous les autres paramètres sans problème, ils sont bien pris en compt=
e, mais ni zone ni la ligne de titre ?????
Si quelqu'un a une petite idée du pourquoi du comment de la chose.. mi=
lle mercis d'avance !
ThierryP
En VBA, je fais la mise en page d'une feuille suivant les valeurs de certai=
nes variables : en-têtes, pieds de page, marges etc. Ca donne çà e=
n raccourci :
Sub Mise_en_Page()
Application.ScreenUpdating = False
Zone_Utile = Range("A10:AW" & Range("I65000").End(xlUp).Row).Address
With ActiveSheet.PageSetup
.PrintArea = Feuil2.Range(Zone_Utile)
.PrintTitleRows = ActiveSheet.Range("$10:$10")
.LeftHeader = Range("Réf_Doc")
.CenterHeader = Range("Nom_Doc")
.RightHeaderPicture.Filename = _
"I:Modèles Documents CommunsLogoslogo couleur.jpg"
etc etc
Mons souci est qu'Excel refuse obstinément de tenir compte de la zone d'i=
mpression et de la ligne à répéter..
Donc il m'imprime A1:AWxxx et ne veut rien savoir de plus!! Je peux modifie=
r tous les autres paramètres sans problème, ils sont bien pris en compt=
e, mais ni zone ni la ligne de titre ?????
Si quelqu'un a une petite idée du pourquoi du comment de la chose.. mi=
lle mercis d'avance !
ThierryP
'------------------------------------------------------
Sub Mise_en_Page()
With Feuil1 ' Worksheets("Feuil1")
Zone_Utile = .Range("A10:AW" & .Range("I65000").End(xlUp).Row).Address
With .PageSetup
.PrintArea = Zone_Utile
.PrintTitleRows = Range("$10:$10").Address
.LeftHeader = Range("Réf_Doc")
.CenterHeader = Range("Nom_Doc")
End With
.RightHeaderPicture.Filename = _
"I:Modèles Documents CommunsLogoslogo couleur.jpg"
Application.EnableEvents = False
.PrintPreview 'Après test, tu remplaces par .PrintOut ...
Application.EnableEvents = True
End With
End Sub
'------------------------------------------------------
En effet, j'avais supprimé ce message (je m'étais aperçu de mon erreu r de syntaxe), mais tu réponds toujours aussi rapidement !!!
Merci !
ThierryP
Le lundi 26 janvier 2015 18:27:46 UTC+1, MichD a écrit :