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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #26335717
Bonjour,


'------------------------------------------------------
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
'------------------------------------------------------
ThierryP
Le #26335753
Bonjour Denis,

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 :
Bonjour,


'------------------------------------------------------
Sub Mise_en_Page()
With Feuil1 ' Worksheets("Feuil1")
Zone_Utile = .Range("A10:AW" & .Range("I65000").End(xlUp).Row).Addr ess
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
'------------------------------------------------------
Publicité
Poster une réponse
Anonyme