Bonjour à tous.
Voilà les codes que j'utilise (trouvés sur cet excellent forum)afin mettre en plein ecran une feuille excel et ensuite de la remettre a taille normale au travers de 2 boutons.
Private Sub CommandButton1_Click()
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
End Sub
Private Sub CommandButton2_Click()
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = True
End Sub
Mon problème est le suivant: lorsque d'autres classeur sont ouverts, le mode plein ecran s'applique a tous les autres classeurs. Est il possible d'appliquer ce mode plein ecran seulement a mon fichier excel nommé
LEIN-ECRAN.xls ?
J'ai essayé le code suivant , mais cela ne fonctionne pas:
Private Sub CommandButton1_Click()
Application.Workbooks('PLEIN_ECRAN.XLS').DisplayFullScreen = True
ActiveWindow.Workbooks('PLEIN_ECRAN.XLS').DisplayHeadings = False
End Sub
Private Sub CommandButton2_Click()
Application.Workbooks('PLEIN_ECRAN.XLS').DisplayFullScreen = False
ActiveWindow.Workbooks('PLEIN_ECRAN.XLS').DisplayHeadings = True
End Sub
Puvez vous m'aider?
Vous remerciant par avance
Cordialement
Zeltron