Bonsoir Hanène, Hanène JEBARI wrote: > Bonjour, > > Comment fait-on pour agrandir au la fenetre d'un formulaire à son > chargement ? Pas en plein écran juste l'agrandir pour qu'elle prenne > tout l'écran. > > Est-il possible de désactiver le message "Avertissement de sécurité : ce > document contient de smacros. Voulez-vous les activez ?" ???? > > > Merci > Il y a plusieurs possibilités de travailler sur le format window. Voici une idée :
Sub ResizeWindow() Dim oWindow As Object, oSizeWindow As Object Dim iWHeight As Integer, newHeight As Integer Dim iWWidth as Integer, newWidth As Integer Dim xPos as Integer, yPos as Integer Dim sMsg As String Dim iRep As Integer oWindow = StarDesktop.getCurrentFrame().getContainerWindow() oSizeWindow = oWindow.getPosSize() 'xray oSizeWindow With oSizeWindow iWHeight = .Height iWWidth = .Width xPos = .X yPos = .Y End With 'Nouvelle taille écran newHeight = 768 newWidth = 1024 oWindow.setPosSize( xPos, yPos, newWidth, newHeight, 15 ) End Sub -- Francois Gatto --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]