ouverture en plein ecran

[Nicko]

Bonjour à tous,

je voudrais savoir comment faire pour qu'a l'ouverture de mon classeur, celui ci s'affiche en grand plein ecran.

Donc sans menu, ni N° de colonnes et de lignes.

Par contre, je voudrais qu'à la fermeture tout redevienne normal.

D'avance merci

 

[XC2ONE]

Salut,

Voici le code, atttention à mettre une porte de sortie sur ce USF (accès à une feuille par ex par bouton ou label ou ce que tu veux...


A insérer dans le USF de départ (ex nom = USF1) :


Private Sub UserForm_Initialize()


Dim hwnd As Long, Style As Long

hwnd = FindWindow(vbNullString, Me.Caption)
Style = GetWindowLong(hwnd, -16) And Not &HC00000
SetWindowLong hwnd, -16, Style
DrawMenuBar hwnd
End Sub

puis dans le workbook :

Private Sub Workbook_Open()
USF1.Show
End sub

Bon courage

Message édité par: xc2one, à: 09/03/2005 15:50

 

[_Thierry]

Bonjour Nicko,

Voici une méthode garantie sans danger...Même si ton classeur plante en cours de route...

En macro évènementielle, dans le Private Module de 'ThisWorkbook'

Pour l'ouverture :

Private Sub Workbook_Open()
With Application
.WindowState = xlMaximized
.DisplayFullScreen = True
End With
With ActiveWindow
.WindowState = xlMaximized
.DisplayHeadings = False
End With
End Sub

Pour La Fermeture :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
End Sub

Les autres méthode tendant à virer les barres d'outils en réel, sont à proscrire, surtout pour les débutant(e)s si vous voulez évitez des ennuis aux utilisateurs de vos macros...

Bonne Aprèm
@+Thierry

 

[_Thierry]

Re Bonjour XC2one, Nicko,

Tu m'as mis un doute XC2, mais je viens du coup de relire le poste de Nicko... où parle-t'on de UserForm ?

Et puis au cas où pour les UserForms, sans aller dans les API GetWindowLong, tu sais qu'on peut faire simplement :

Private Sub UserForm_Initialize()
    With Me
        .Width = Application.Width
        .Height = Application.Height
    End With
End Sub

Bon Aprèm
@+Thierry

 

[Nicko]

Merci à tous les deux !