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