bonjour,

voici mon problème. Je désire faire une mise en forme automatique dans un fichier excel. Le problème est que toutes les feuilles n'ont pas la même largeur avant la mise en forme. Certaines sont sur 2 pages, d'autres sur une page. Dans un premier temps, j'ai utilisé le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
Cela fonctionne bien pour les feuilles qui, avant la mise en forme, sont sur 2 pages. Par contre, s'il n'y a qu'une page, il bug. Je suppose que c'est parce qu'il ne trouve pas de saut de page?!

Je sais pas trop comment remédier à ce problème. J'espère que vous pourrez m'aider à éclairer ma sombre lanterne

Merci d'avance

En gros, je voudrais pouvoir savoir si un saut de page existe, ou si l'impression se fera sur une seule page. A partir de là, je ferais un test pour faire ou non le décalage...

Une petite idée??
merci d'avance...