plein ecran seulement pour un classeur ouvert

[zeltron]

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

 

[Jacques87]

Bonsoir Zeltron

Application.DisplayFullScreen = True
s'applique à Excel (en entier)

vu l'heure tardive je n'ai pas le temps de chercher maintenant, mais avant d'aller me coucher une idée (peut être farfelue) m'est passée par la tête

et si tu plaçais ce code dans l'évènement workbook activate
et Application.DisplayFullScreen = False
dans l'évènement Workbook Desactivate

des workbooks que tu veux voir en plein écran

Bonne nuit

 

[zeltron]

Merci Jacques pour ta réponse j'essaye cela de suite et je te dis si cela marche

Merci encore

Cordialement
Zeltron

 

[zeltron]

Pas si farfelue que çà ton idée!!!!
Ca marche!!

Je te remercie beaucoup

Cordialement

Zeltron