Mise en forme avant impression par vba

**..ooooOö..** · 27/11/2011, 21h14

Bonjour à tous,

Tous les mois nous génèrons un fichier excel avec un outil mis au point par le siège de notre société et sur lequel nous n'avons pas la main.
Nous devons imprimer au format papier la centaine de pages contenues dans ce fichier excel.
C'est un peu la plaie, parce qu'il y a souvent des bugs dans la mise en forme du fichier, l'outil étant utilisé par beaucoup de sites et ayant de fréquentes mises à jour.
Nous devons donc vérifier la mise en page du fichier excel de chacun des cent onglets avant de l'imprimer

Nous voulons donc faire une mise en forme avant impression par macro vba.

Le souci rencontré est avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    With ActiveSheet.PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With

L'onglet excel reste tel quel, avec des sauts de page.

Ce qui est curieux, c'est que si l'on arrête la macro et que l'on va voir dans Mise en Page > Page, les paramètres sont bons et ne sont pas cohérents avec la mise en forme de la page.

Et là, si l'on clique sur Annuler, il ne se passe rien, mais s'il on clique sur OK, la mise en page devient bonne alors que l'on n'a rien changé dans les paramètres.

Est-ce qu'il faut faire quelque chose de plus dans la macro VBA pour que les paramètres s'appliquent ?

Merci par avance à toutes les réponses