Contact: 514-605-7112 / info@lecfomasque.com

Mise en page pb performances

Ce sujet a 1 réponse, 2 participants et a été mis à jour par  Cathy Monier, il y a 2 ans.

2 sujets de 1 à 2 (sur un total de 2)
  • Auteur
    Messages
  • #43151

    Paul
    Participant

    Bonjour,

    Je souhaite mettre en page toutes les feuilles d’un classeur. J’y arrive à l’aide de l’enregistreur de macro mais c’est vraiment trop lent. Mon code est le suivant.

    Sub Macro4()

    ‘ Macro3 Macro


    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
    .LeftFooter = « &D »
    .CenterFooter = « &F »
    .LeftMargin = Application.InchesToPoints(0.31496062992126)
    .RightMargin = Application.InchesToPoints(0.31496062992126)
    .TopMargin = Application.InchesToPoints(0.354330708661417)
    .BottomMargin = Application.InchesToPoints(0.47244094488189)
    .Orientation = xlLandscape
    .FitToPagesWide = 1
    .FitToPagesTall = 0
    End With
    Application.PrintCommunication = True
    End Sub

    Quelqu’un a une idée ?

    Merci,

    Paul

    #46508

    Cathy Monier
    Participant

    Bonjour,
    Application.PrintCommunication étant mis sur False au début de la mise en page, vous avez fait ce qu’il fallait pour accélérer le code. Mais peut-être trouvez vous cela lent car vous devez lancer la macro sur chaque feuille. Merci de préciser ce que vous trouvez lent exactement car votre code est propre.

    Cathy Monier

2 sujets de 1 à 2 (sur un total de 2)

Vous devez être connecté pour répondre à ce sujet.