Plein écran total en VBA

Version imprimable

Bonjour à tous,

Comment puis-je avoir un plein en vba Excel. Il me rest toujours une barre d'outils en haut (Fichier - Edition - Affichage - etc.) que je souhaiterai ne plus voir.
Est-ce possible et comment ?
Voici le code actuel lors de l'ouverture du fichier

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub WorkBook_Open()
Dim Cmdb As CommandBar
    For Each Cmdb In Application.CommandBars
    Cmdb.Enabled = True
Next Cmdb
    With Application
        .DisplayFullScreen = True
        .DisplayStatusBar = False
        .DisplayFormulaBar = False
    End With
    Sheets("1T").Visible = True
    Sheets("1T").Activate
    Sheets("2T").Visible = False
    Sheets("3T").Visible = False
    Sheets("4T").Visible = False
    Sheets("Don").Visible = False
    Sheets("Recap").Visible = False
    Sheets("Calend").Visible = False
Load FrmFich
FrmFich.Show
End Sub

merci par avance pour votre aide

bonjour

essaie le code suivant
Code:

1 2 3 4 Application.Visible = False FrmFich.Show Application.Visible = True
cordialement

Citation:
Envoyé par NEC14
Bonjour à tous,

Comment puis-je avoir un plein en vba Excel. Il me rest toujours une barre d'outils en haut (Fichier - Edition - Affichage - etc.) que je souhaiterai ne plus voir.
Est-ce possible et comment ?
Voici le code actuel lors de l'ouverture du fichier
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private Sub WorkBook_Open() Dim Cmdb As CommandBar For Each Cmdb In Application.CommandBars Cmdb.Enabled = True Next Cmdb With Application .DisplayFullScreen = True .DisplayStatusBar = False .DisplayFormulaBar = False End With Sheets("1T").Visible = True Sheets("1T").Activate Sheets("2T").Visible = False Sheets("3T").Visible = False Sheets("4T").Visible = False Sheets("Don").Visible = False Sheets("Recap").Visible = False Sheets("Calend").Visible = False Load FrmFich FrmFich.Show End Sub
merci par avance pour votre aide
il suffit de remplacer

Code:

Cmdb.Enabled = True

par

Code:

Cmdb.Enabled = False

A+

09/11/2007, 15h57
NEC14

Citation:

Envoyé par casavba

il suffit de remplacer

Code:

Cmdb.Enabled = True

par

Code:

Cmdb.Enabled = False

A+

Bonjour et merci casavba, ça marche. C'était simple mais je n'y avais pas pensé.

Bon week-end et encore merci