Macro non executee

Version imprimable

Macro non executee

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:

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

Bonjour,
Essayez ceci,

Code:

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

Cdlt

22/05/2018, 00h08
youssef225

Merci pour votre réponse, je voudrais savoir : j'affecte le code a des boutons ?
22/05/2018, 02h26
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:

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
22/05/2018, 08h53
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.
08/06/2018, 03h47
youssef225

Merci pour vos reponses