Discussion :

[maxtin]

Bonjour,

je suis seulement capable de changer la taille du zoom sur la premiere page de mon workbook excel avec:

Code :

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

ActiveWindow.Zoom = 85

comment je fais pour changer le zoom sur une page particuliere? L'objet .sheets(index) ne semble pas avoir la propriete Zoom



Merci

[RLX]

Salut maxtin,

Si tu active la page du workbook et ensuite tu utilise activewindow.zoom c'est une première solution

[maxtin]

merci de ta reponse


mais je cherche desesperement a activer ma sheet 4...sais tu comment faire?

Code :

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

1
2
xlApp.Sheets(4).Activate
ActiveWindow.Zoom = 85

ceci ne fonctionne pas

[RLX]

Tu as plusieurs possibilités

Code :

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

1
2
3
 
Workbook("NomClasseur.xls").Worksheets(4).Activate 'Si c'est sur un autre fichier Excel
ThisWorkbook.Worksheets(4).Activate 'Si c'est sur le meme fichier que ta macro

[maxtin]

Code :

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

1
2
xlBook.Worksheets(4).Activate
ActiveWindow.Zoom = 85

sans succes....par contre, ma page 4 s'active car maintenant, c'est elle quon voit par défault lors de l'ouverture. Mais le zoom ne s'ajuste pas. "ActiveWindow.Zoom" a l'air de ne rien faire du tout.

[ouskel'n'or]

Comme Erixel te l'indique... voici l'autre possibilité

Code :

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

1
2
ActiveWorkbook.Worksheets(3).Activate
ActiveWindow.Zoom = 85

[maxtin]

Comme Erixel te l'indique... voici l'autre possibilité

Code :

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

1
2
ActiveWorkbook.Worksheets(3).Activate
ActiveWindow.Zoom = 85

meme resultat...la page s'active mais le zoom ne s'applique pas