Discussion :

[CoOki_]

bonjour le forum
voila j'ai termier mon programme sur excel je vodrai lui appoter une derniere chose lui changer son decord car la barr des taches c peux charment . est il possible de la supprimer ,? ou alors de faire tourner mon fichier sous une autre application .
attention mon fichier et tirer d'excel 2007 et comporte des macro

[Plateforme3]

Bonjour
tu peux passer en plein écran

Code :

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

Application.DisplayFullScreen = True

ou rendre les menus invisibles

Code :

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

1
2
3
For i = 1 To Application.CommandBars.Count
    Application.CommandBars(i - 1).Visible = False
Next

Slts

[CoOki_]

rhooo çà c gentil merci bien je vais me mettre cette subtile idée sous le coude çà va bien m'aider
merci a toi et merci a tout le forum

[CoOki_]

euh juste .... comment je l'integre ?
car en macro :/

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
'
' Macro1 Macro

For i = 1 To Application.CommandBars.Count
Application.CommandBars(i - 1).Visible = False
Next


End Sub

c simple pourtant mais elle plante en ligne 2 dsl mes connaissance sur les macro sont tres juste :/

[Plateforme3]

Bonjour
qq petites modifs

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
Public Tableau() As Boolean
 
Private Sub Workbook_Open()
ReDim Tableau(Application.CommandBars.Count)
For i = 2 To Application.CommandBars.Count
    If Application.CommandBars(i).Visible = True Then
        Tableau(i) = True
        Application.CommandBars(i).Visible = False
    else
        tableau(i)=false
    End If
Next
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For i = 2 To Application.CommandBars.Count
    If Tableau(i) = True Then
        Application.CommandBars(i).Visible = True
    End If
Next
End Sub

La modif consiste à enregistrer tes barres d'outils pour les remettre avant la fermeture du fichier
L'erreur venait que les index 0 et 1 n'étaient pas bon
Slts

[CoOki_]

:/ je sais aps comment l'integret et comment l'executer pourrai ej avoir un cour ?? mdr

/me c levé sans son cerveau!!!

[Plateforme3]

Bonjour
Tu le mets dans les macros de: ThisWorkbook
Slts

[CoOki_]

ben je suis pas doué ptdrrr

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub thiworkbook()
'
' thiworkbook Macro
Private Sub Workbook_Open()
ReDim Tableau(Application.CommandBars.Count)
For i = 2 To Application.CommandBars.Count
If Application.CommandBars(i).Visible = True Then
Tableau(i) = True
Application.CommandBars(i).Visible = False
Else
Tableau(i) = False
End If
Next
End Sub

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For i = 2 To Application.CommandBars.Count
If Tableau(i) = True Then
Application.CommandBars(i).Visible = True
End If
Next
End Sub

[SilkyRoad]

bonsoir

:/ je sais aps comment l'integret et comment l'executer pourrai ej avoir un cour ?? mdr

/me c levé sans son cerveau!!!

merci de faire un effort dans la rédaction de tes messages


bonne soirée
michel

[Plateforme3]

Bonsoir
Je reformule
Tu vas dans Outils/Macros/Visual Basic Editor
Ensuite en haut à gauche, tu as une arborescence
Dans l'arborescence de ton fichier tu verras: ThisWorkbook
Tu double cliques
Puis tu copies le code que je t'ai donné tel quel
Pas besoin de rajouter quoique ce soit
Slts