ouvrir un fichier avec un certain zoom

[louloudal]

Bonjour,
je voudrait ouvrir un classeur, mais je voudrait que l'ors de l'ouverture, celui-ci s'ouvre avec un certain zoom, même s'il a été enregistré avec un zoom différent !!!
est-ce possible ???
Cela se fait il grâce à une macro que j'inserre dans mon bouton enregistré ??? ou cela doit-il se faire autrement !!


Merci.

De plus j'ai une autre question :
j'ai un petit problème à vous soumettre.

J'ai deux tableaux côte à côte : l'ensemble (surtout le deuxième tableau) ne tient pas visuellement sur l'écran.
J'ai créé deux boutons, l'un appelant le premier tableau le deuxième, appelant le second.
Mais en appelant le second tableau, je ne l'ai alors pas en entier (visuellement) sur mon écran.
Je voudrai donc que ce deuxième tableau soit centré (ou du moins en entier) sur mon écran quand je fais appel à lui à partie du bouton !! (et ce sans toucher à la mise en forme de mes deux tableaux)

Y a t'il une macro à taper en plus pour le bouton 2???
Pouvez-vous m'aider ???
ci joint un exemple !
[file name=Classeur1_20050502112119.zip size=2921]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050502112119.zip[/file]


Merci à tous et toutes !!!!!!

 

[patrice78]

Bonjour louloudal et au forum,

Pour la première question :
A mettre dans le module 'ThisWorkbook'

Private Sub Workbook_Open()
Sheets(1).Select
ActiveWindow.Zoom = 70
End Sub

La seconde, je n'ai pas vu les boutons !!!
A+

 

[louloudal]

Merci patrice78 !
ça marche au poil.
Mais est-il possible
d'enregistrer ou ouvrir les feuilles du classeur à différent zoom !!
Expl :
mon fichier s'ouvre comme précedemment au zoom 70:
Private Sub Workbook_Open()
Sheets(1).Select
ActiveWindow.Zoom = 70
End Sub
mais quand je vais en feuille 2,3 ou 4
le zoom de ces feuilles est différent (zoom 85 par expl)
et ce, même si lors de la sortie précedante du fichier les zoom ont été changés !??????

Y a t'il solution ???
car elle m'interresserai beaucoup !!

 

[Sylvain]

Bonjour,

une idée en faisant une boucle :

Private Sub Workbook_Open()
Dim sh As Worksheet
Application.ScreenUpdating = False 'Pour masquer l'action
For Each sh In ActiveWorkbook.Sheets
  sh.Select
  ActiveWindow.zoom = 70
Next
Sheets(1).Select
Application.ScreenUpdating = True
End Sub

 

[San]

Bonjour
Voici ce que je fais et qui me semble répond à votre pb :
A l'ouverture du fichier j'ouvre sur l'onglet 1 avec une plage de sélection adaptée à cet onglet (A1-R37)

Private Sub Workbook_Open()
Worksheet('onglet1').Activate
Range('A1:R37').Select 'par exemple
ActiveWindow.Zoom = True
Range('A1').Select
End Sub

Ensuite au niveau de chacune des feuilles du classeur je prévois le même genre de code sur Activate

Private Sub Worksheet_Activate()
Range('A1:N15').Select 'par exemple
ActiveWindow.Zoom = True
Range('A1').Select
End Sub

Le code n'est pas beau mais ca marche chez moi, mes onglets sont toujours affichés avec le maximum de visibilité.