Discussion :

[Golork]

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 :

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

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.

[laetitia]

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

Code :

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

1
2
3
Private Sub Workbook_Open()
   Application.WindowState = xlMaximized
End Sub

[patricktoulon]

bonjour


ou tout simplement

Code :

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

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

au plaisir

[Golork]

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 :

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

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 :

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

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.

[zyhack]

Bonjour

essaye de façon nominative

Code :

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

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

[Golork]

Mon problème c'est que le fichier Excel se trouve dans un Fichier excel de base.

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.

[neupont]

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 ?