Message-ID: <3883AB33.6DCD59E7@free.fr> Date: Tue, 18 Jan 2000 00:52:19 +0100 From: Laurent longre X-Mailer: Mozilla 4.7 [fr] (Win98; I) X-Accept-Language: fr,en MIME-Version: 1.0 Subject: Re: Evenements de l'objet application References: <38837EDD.1CED8192@mageos.com> Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit Newsgroups: microsoft.public.fr.excel NNTP-Posting-Host: lyon2-55-104.dial.proxad.net 212.27.55.104 Path: cppssbbsa01.microsoft.com!cppssbbsa04 Lines: 45 Xref: cppssbbsa01.microsoft.com microsoft.public.fr.excel:21408 Salut Eplucheur, Eplucheur a écrit : > > Les évenements de, l'objet application du style > Application.WindowState = xlMaximized > ne fonctionnent pas avec l'évènenement Workbook_Open > lorsque le classeur en question est ouvert par une macro. J'ai fait le test et j'arrive au même résultat que toi. C'est probablement un bug. Un de plus concernant Workbook_Open déclenché par macro, je crois qu'il y en a déjà une jolie petite brochette. Il y a peut-être moyen de le contourner en utilisant des fonctions API. Je te ferai savoir si j'y parviens. Autrement, dans le genre "bourrin", tu pourrais forcer toutes les fenêtres à rester maximisés par le biais d'une procédure WindowResize, et t'assurer que les fenêtres déjà ouvertes au démarrage de la macro le sont aussi. Si toutes les fenêtres sont maximisés, le classeur que tu ouvriras par macro le sera aussi de manière automatique. Quelque-chose du genre (dans le module ThisWorkbook de ta macro) : Dim WithEvents App As Application Private Sub App_WindowResize(ByVal Wb As Excel.Workbook, _ ByVal Wn As Excel.Window) Application.enableevents = False Wn.WindowState = xlMaximized Application.enableevents = True End Sub Private Sub Workbook_Open() Dim Wn As Window For Each Wn In Windows If Wn.WindowState <> xlMaximized Then Wn.WindowState = xlMaximized Next Wn set App = Application End Sub