Discussion :

[youssef225]

bonjour,


Je sollicite votre aide ce jour, j'ai mis des macros dans mon classeur Excel afin de masquer le ruban à l'ouverture du classeur. Mais rien ne se passe quand j'ouvre mon classeur. J'utilise Excel 2016 actuellement.Je précise que j'ai déjà utiliser ce code sous Excel 2013 parfaitement. Voici le code :

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
22
23
24
25
26
Option Explicit
Private Sub Workbook_Activate()
    On Error Resume Next
    Application.DisplayFormulaBar = False
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
    On Error Resume Next
    Application.DisplayFormulaBar = True
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
 
     ThisWorkbook.Save
End Sub
Private Sub Workbook_Deactivate()
    On Error Resume Next
    Application.DisplayFormulaBar = True
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    ThisWorkbook.Save
End Sub
Private Sub Workbook_Open()
    On Error Resume Next
    Application.DisplayFormulaBar = False
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
 
End Sub

Pourriez-vous m'indiquer d'où provident l'erreur ?

Merci

[ARTURO83]

Bonjour,
Essayez ceci,

Code :

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

1
2
3
4
5
6
7
Sub AfficherBandeau()
    Application.DisplayFullScreen = False
End Sub
 
Sub MasquerBandeau()
    Application.DisplayFullScreen = True
End Sub

Cdlt

[youssef225]

Merci pour votre réponse, je voudrais savoir : j'affecte le code a des boutons ?

[ARTURO83]

Bonjour,
je voudrais savoir : j'affecte le code a des boutons ? : OUI si vous voulez, vous pouvez tout aussi bien les placer dans le module "ThisWorkbook", elles seront alors, activées à l'ouverture et fermeture du classeur , comme ceci:

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_Open()
    Application.DisplayFullScreen = False
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayFullScreen = True
End Sub

Cdlt

[Menhir]

Commence par supprimer les On Error Resume Next dans tes codes et peut-être que VBA t'expliquera lui-même pourquoi ton code ne fonctionne pas.

[youssef225]

Merci pour vos reponses