Maximiser l'affichage

Bonjour, voilà j'ai un classeur Excel qui possède d'autres classeurs intégré à lui même et que j'ouvre en utilisant les objets OLE.

Là où ça me pose problème c'est que quand j'ouvre un classeur :
automatiquement les classeurs se "mettent" en mode fenêtre normale et non maximisées ce qui rend l'affichage très moche (je me sert de ce fichier excel comme d'une présentation).

J'ai essayé par le code de faire un

Code:

---

1 2 3 4

Dim oleObj As OLEObject Set oleObj = ActiveSheet.OLEObjects("Objet 11") oleObj.Activate oleObj.Application.WindowState = xlMaximized

---

Mais ça ne marche pas.

Merci pour vos réponses.

bonjour Golork as tu essaye comme cela !!!!
dans Thisworkbook de ton classeur

Code:

---

1 2 3

Private Sub Workbook_Open() Application.WindowState = xlMaximized End Sub

---

bonjour


ou tout simplement

Code:

---

1 2	application.dispayfullscreen=true ' aplacer au bon momment ca c'est a toi de voir

---

au plaisir

Et non c'est pas ça !

Application.WindowState -> permet de maximiser la fenêtre Excel (je parle ici de l'environnement) mais pas de maximiser le classeur !
Je m'explique : on peut ouvrir 2 classeurs avec une seule instance d'Excel. Quand on regarde en haut à droite on peut voir 2 boutons fermer, 2 boutons agrandir et 2 boutons réduire. Ceux du bas gèrent le classeur et ceux du haut gèrent l'environnement.
Donc si on ouvre 2 classeurs et que l'on clique sur le bouton agrandissement (cela ne le réduit pas mais juste le diminue), les classeurs sont visibles en même temps dans l'environnement.
Et moi je veut pouvoir empêcher cela voire mettre le nouveau classeur maximisé.

Néanmoins je pense avoir trouvé un début de réponse :

Code:

---

ActiveWindow.WindowState = xlMaximized

---

Fonctionne mais ça merdouille un peu : c'est le classeur de base qui est agrandit et pas celui que l'on vient d'ouvrir et c'est difficile de passer de l'un à l'autre.


Edit : bon je suis arrivé à trouver une solution bien qu'un peu bancale :

Code:

---

1 2	ActiveSheet.Select ActiveWindow.WindowState = xlMaximized

---

Bancale dans le sens ou il faut que je clique 2 fois sur le bouton (qui lance ce script) pour visionner mon autre classeur.

Bonjour

essaye de façon nominative

Code:

---

Windows("Classeur1.xls").WindowState = xlMaximized

---

Mon problème c'est que le fichier Excel se trouve dans un Fichier excel de base.
:mrgreen:
A la base j'ai un fichier "fichier0.xls" et dedans j'ai plusieurs objets OLE (Excel, powerpoint). Ces fichiers n'existent pas en dehors de mon fichier0 ! Ils sont intégré dedans. Et c'est quand je lance un objet OLE que ça pose problème.

Je ne pense pas que ce soit grave, ça.
Là où zyhack a mis "Classeur1.xls" tu dois pouvoir mettre le titre de la fenêtre en question, même si ce n'est pas un fichier à proprement parler. Elles ont bien un titre ces fenêtres ?