S
Sam Agace
Guest
bonjour tout le monde,
n'ayant pas eu de réponse au précédent post, (je m'étais sans doute mal expliqué), je repose ma petite question.
Mon pb est le suivant :
Comment faire pour insérer des sauts de pages (verticaux) dans une page justifiée en largeur ?
Par exemple, dans la feuiile jointe, comment insérer un saut de page en ligne 20 tout en conservant la mise en page justifiée en largeur ?
Manuellement, on peut parvenir à ce résultat, en faisant dans un premier temps, Fichier - Mise en page - Ajusté à 1 page en largeur,
Puis en refaisant un Fichier - Mise en page , en sélectionnant cette fois la case <Réduire/Agrandir> .
Le % de zoom établi par le précédent ajustement est alors conservé, et les sauts de pages sont rétablis.
Mais comment fait ça en VB ?
Le pb est (à moins qu'il n'y ait un autre méthode) de récupérer la valeur de .Zoom = x % après
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
(...)
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With
... et là, je suis sec de chez sec sec et associés.
Merci pour vos tuyaux.
Sam Agace
n'ayant pas eu de réponse au précédent post, (je m'étais sans doute mal expliqué), je repose ma petite question.
Mon pb est le suivant :
Comment faire pour insérer des sauts de pages (verticaux) dans une page justifiée en largeur ?
Par exemple, dans la feuiile jointe, comment insérer un saut de page en ligne 20 tout en conservant la mise en page justifiée en largeur ?
Manuellement, on peut parvenir à ce résultat, en faisant dans un premier temps, Fichier - Mise en page - Ajusté à 1 page en largeur,
Puis en refaisant un Fichier - Mise en page , en sélectionnant cette fois la case <Réduire/Agrandir> .
Le % de zoom établi par le précédent ajustement est alors conservé, et les sauts de pages sont rétablis.
Mais comment fait ça en VB ?
Le pb est (à moins qu'il n'y ait un autre méthode) de récupérer la valeur de .Zoom = x % après
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
(...)
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With
... et là, je suis sec de chez sec sec et associés.
Merci pour vos tuyaux.
Sam Agace