Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fred65200]

bonjour

essaie le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

cordialement

[casavba]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Cmdb.Enabled = True

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cmdb.Enabled = False

A+

[NEC14]

il suffit de remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cmdb.Enabled = True

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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