[XL-2007] Mise en forme avant impression par vba

[..ooooOö..]

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 :

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

[bbil]

bonsoir

déjà, évite d'utiliser ActiveSheet et précise le nom de la feuille..