Code VBA à introduire dans un fichier xlms permettant son ouverture en plein écran sur Mac

Question

J'ai élaboré un fichier xlms sur mon PC avec Excel 2007. Il comporte des macros VBA. Ce fichier fonctionne parfaitement sur les PC et les Mac. J'ai introduit un code permettant l'ouverture en plein écran. Il fonctionne parfaitement sur les PC mais n'est pas compatible avec les Mac. Tous les codes que j'ai essayés pour les Mac sont inopérants ou buguent.

Pouvez-vous me communiquer un code VBA qui fonctionne vraiment réellement ?

Merci d'avance !

Excel 2007

Ne fonctionnent pas les codes :

Sub OuvrirEnPleinEcran()

    If Application.OperatingSystem = "Mac OS X" Then

        'Utiliser le raccourci clavier pour le mode plein écran

        SendKeys("^{F11}")

    End If 

End Sub

Sub OuvrirEnPleinEcran()

    If Application.OperatingSystem = "Mac OS X" Then

        ' Activer le mode plein écran

        Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"

    End If

End Sub

Sub FullScreenMac()
    'Activer le mode plein écran
    Application.Run "FullScreen"
End Sub

Private Sub Workbook_Activate()

    If Application.OperatingSystem = "Mac OS X" Then

        ' Masquer les barres d'outils et la barre d'état sur Mac

        ActiveWindow.Zoom = 1 ' Ajuster le zoom pour simuler le mode plein écran

    Else

        ' Activer le mode plein écran sur PC

        Application.DisplayFullScreen = True

        ActiveWindow.ScrollRow = 1

    End If

End Sub

Answer 1

OK. Comme tu avais dit que ça fonctionnait, je n'avais pas cherché plus loin, dans un premier temps (surtout que je n'étais pas devant ma machine).

#If Mac Then
Application.DisplayFullScreen = True

#Else

'Code Windows

#End If

Bref, pourquoi faire simple quand on peut faire compliqué, finalement ! 😉

Answer 2

Merci d'avance et bon courage !

Une petite précision : le zoom = 1 fonctionne sur Mac mais ne donne pas l'effet que je recherche (réduction maximale des rubans et plein écran). Il ne donne que le grossissement 100 %.

Answer 3

Comme vu, il va falloir patienter un peu, je ne suis pas en situation de tester. Sendkeys ne marche pas sur Mac. Mais je pensais que le Zoom = 1 pouvait fonctionner. Si ce n’est pas le cas, j’essayerai d’autres choses.

À tout à l’heure.

Answer 4

Merci ! Mais quel serait le code Mac, svp ?

Answer 5

Je n'ai pas trop de temps là tout de suite pour faire des essais. Mais, à la base, essaye plutôt de faire de la compilation conditionnelle du style :

#If Mac then

'Code Mac

#Else

'Code Windows

#End If