mise en page qui change!

Bonjour,
cela proviens de la résolutions de l'écran de chaque PC.
Voir dans les paramétrages mais je vois déjà la grimace….
Par VBA en workbook_open on peut améliorer

Ici exemple pour feuil3 je veux voir jusqu'à la col O
Feuil3.Select
Feuil3.[$A$1:$O$1].Select
ActiveWindow.Zoom = True

pour connaitre le zoom
lezoom=activewindow.zoom

faire une boucle sur tout les onglets avec ce zoom
for onglet=1 to sheets.count
Sheets(onglet).Select
ActiveWindows = 100
next

Bruno

Bonjour

Si on parle de l'impression, c'est généralement du et à l'imprimante et à la version du pilote...

Bonjour Bruno, Chris
merci pour la réponse rapide, je vais le tester.
@ chris : oui on peut dire ça par rapport a l'impression, parce-que si la mise en page se change de pc a l'autre automatiquement l'impression sa change
a+