DisplayFullScreen

[Cedric]

Bonjour tout le monde
vous allez peut être pouvoir m'aider, je souhaiterai ouvrir ma feuille en plein écran, mais avec les onglets et je n'y arrive pas.
Merci pour vos solutions.

Cedric

 

[GG]

Salut le forum
Teste ceci
Sub Barres_Outils()
Application.ScreenUpdating = False
Toolbars(1).Visible = True
Toolbars(2).Visible = True
With ActiveWindow
.DisplayWorkbookTabs = True
End With
Application.DisplayFormulaBar = True
Application.ScreenUpdating = True
End Sub
A+

 

[GG]

Cedric
Supprime
Toolbars(1).Visible = True
Toolbars(2).Visible = True
c'est une application personnelle!!

 

[Cedric]

Bonjour GG,

Dans ton code tu n'utilise pas :

Application.DisplayFullScreen = True

Moi j'ai cette fonction et plus d'onglets, comment faire pour les avoir.
Merci pour ton aide.
Cedric

 

[GG]

Cedric
Tout depands de ta configuration en fait
tu veux ajouter la barre d'onglet
donc il faut ajouter à ton code :
.DisplayWorkbookTabs = True

Pour le reste
Application.DisplayFormulaBar = False
Toolbars(1).Visible = False
Toobars(2).Visible = False
.........................
c'est à toi de voir ce que tu veux valider ou pas.
Utilise l'enregistreur de macro tu verras la syntaxe.
Salut

 

[Cedric]

Re,

En fait, je n'avais pas vu, elle est cachée par la barre en bas où il y a 'Démarer' etc
que faire il n'y a pas un moyen en VBA de la remonter cette barre.

Cedric