Ouverture en plein ecran et plus....

[patb12]

Bonsoir,
Je cherche comment ouvrir mon projet (qui reste sur clé USB) en plein écran sans colonne ni ligne ni barre d'outils, mais sur tout sans modifier les options de Excel 2003 de mon PC, car je ne suis pas le seul utilisateur.
J'ai installé dans le ThisWorkbook ce code mais sa marche pas bien j'ai toujours les lignes et les colonnes..
Merci

Code: Tout sélectionner


Private Sub Workbook_Open()
Feuil1.Select
Application.DisplayFullScreen = True
ActiveWindow.WindowState = xlMaximized
UserForm1.Show
End Sub
 

[Zirak]

Bonjour,

Rajoutes simplement :

Code: Tout sélectionner

Private Sub Workbook_Open()

Feuil1.Select
Application.DisplayFullScreen = True
ActiveWindow.WindowState = xlMaximized
ActiveWindow.DisplayHeadings = False
UserForm1.Show

End Sub

Et ensuite pour les remettres, rajouter ça sur l'evenement de fermeture ou de sauvegarde du ThisWorkbook comme ca t'arrange :

Code: Tout sélectionner

ActiveWindow.DisplayHeadings = True

Cordialement,

[patb12]

Merci Zirak
Je n'ai plus les colonnes et les lignes, mais j'ai toujours les onglés en bas.
Merci

[Zirak]

Si tu veux également cacher les onglets, rajoutes :

Code: Tout sélectionner

ActiveWindow.DisplayWorkbookTabs = False

dans ton code à l'ouverture du fichier et

Code: Tout sélectionner

ActiveWindow.DisplayWorkbookTabs = True

à la fermeture.

Cordialement,

[patb12]

C'est bon Merci
Bonne journée