Problème de réduction d’affichage des classeurs

Bonjour à tous qui apportez une aide précieuse aux autres et soyez en remercié.

Je bute depuis plusieurs jours sur ce petit problème.

J’ai 4 classeurs ouverts dont l’un "CL" actif, en taille maximum ayant 3 onglets dont "Envoi" ; les autres sont réduits en bas de l’application Excel.

Affichage de Window ’Excel pleine page avec son bandeau

Voilà les quelques lignes concernées :

Dim wscle As Worksheet

If ActiveSheet.Name <> "Envoi" Then Exit Sub

Set wscle = ActiveWorkbook.ActiveSheet

If Worksheets("Envoi") Is wscle Then

Application.ScreenUpdating = False

With ActiveWindow ‘ ou With ActiveSheet (en essai)

.WindowState = xlMinimized ‘ ou Application.WindowState = xlMinimized (en essai)

End With

Application.ScreenUpdating = True

End If

Ce que je souhaite obtenir :

Le classeur "CL" est réduit en taille normale, les 3 autres restent réduits en bas de Window Excel, le bandeau d’Excel reste en plein écran

Ce qui ne fonctionne pas :

Avec With ActiveWindow et .WindowState

les 4 classeurs sont réduits en bas deWindow Excel qui reste en plein écran

Avec With ActiveSheet et .WindowState: Erreur macro 438

les 4 classeurs sont réduits en bas du bandeau Window Excel

Avec With ActiveWindow et Application.WindowState

les 4 classeurs sont réduits en bas du bandeau Window (en bas d’écran)

En cliquant sur "CL" dans le bandeau Window (en bas d’écran), il s’ouvre en écran maximum avec le bandeau Excel plein écran

Avec With ActiveSheet et Application.WindowState

les 4 classeurs sont réduits en bas du bandeau Window (en bas d’écran)

En cliquant sur "CL" dans le bandeau Window (en bas d’écran), il s’ouvre en écran maximum avec le bandeau Excel plein écran

Au bilan des 4 essais, "CL" n’est pas réduit en taille normale

Dernière petite question en rapport avec ce programme :

Peut-on utiliser cette expression « And ActiveWindow.WindowState = xlMinimized » comme condition, pour s’assurer que le classeur concerné est bien réduit avant d’activer un autre classeur

Merci à celui et à ceux qui sauront m’aider à résoudre ce problème ; le mot « Application » doit y être pour quelque chose.

Cordialement à tous et gare au prochain épisode de canicule annoncé, comme s’il n’y en avait déjà pas eu assez.