Discussion :

[pitipilot]

Bonjour, je suis récemment passé d'Office 2000 à Office 2010 (Gros changement ^^) et je n'arrive pas à trouver l'équivalent de mon code VBA pour XL 2000 à 2010 :

Code :

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

1
2
3
4
5
6
 
    Dim CmdB As CommandBar
    For Each CmdB In Application.CommandBars
    CmdB.Enabled = False
    Next CmdB
    Application.DisplayFormulaBar = False

Ce code me permettait de masquer les barres supérieurs afin de n'avoir qu'un simple Viewer.

Quel est le code équivalent qui me permettrait d'avoir le même résultat sous OFFICe 2010?


D'ailleurs peut on récupérer en VBA la version actuelle d'excel ?


Bonne journée

[fhtazman]

Salut,

Perso pour passer en mode viewer j'utilise ça sous xl2010

Code :

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

1
2
3
4
5
6
7
Application.CommandBars(1).Enabled = False
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
Application.ActiveWindow.DisplayHeadings = False
Application.DisplayScrollBars = False
ActiveWindow.DisplayWorkbookTabs = False

@+

[pitipilot]

Merci beaucoup fhtazman.


Voilà 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
 
  Version = Application.Version 'Récupère la version d'Excel
 
 
 
  If Version = "9.0" Or Version = "10.0" Or Version = "11.0" Then
        'Désactivation du menu Excel 2000 et 2003
    Dim CmdB As CommandBar
    For Each CmdB In Application.CommandBars
    CmdB.Enabled = False
    Next CmdB
    Application.DisplayFormulaBar = False
 
  ElseIf Version = "12.0" Or Version = "14.0" Then 'Désactivation du menu Excel 2007 et 2010
     With Application
            .CommandBars(1).Enabled = False
            .ActiveWindow.DisplayHeadings = False
            .DisplayFormulaBar = False
            .DisplayStatusBar = False
            .DisplayFullScreen = True
 
      End With
   End If