Z
zeltron
Guest
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
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