Ouverture en plein ecran et plus

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

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

Bonjour,

Rajoutes simplement :

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 :

ActiveWindow.DisplayHeadings = True

Cordialement,

Merci Zirak

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

Merci

Si tu veux également cacher les onglets, rajoutes :

ActiveWindow.DisplayWorkbookTabs = False

dans ton code à l'ouverture du fichier et

ActiveWindow.DisplayWorkbookTabs = True

à la fermeture.

Cordialement,

C'est bon Merci

Bonne journée