XL 2016 Réduire tous les classeurs

[Pexcel]

Bonjour je voudrais savoir si il est possible au lancement de mon userform (initialize) de réduire tous les classeurs que excel a d'ouvert ?

Merci.

 

[Staple1600]

Bonjour le fil, le forum

A mettre dans le code d'userform

Private Sub UserForm_Initialize()
Dim WB As Workbook, i
i = 1
For Each WB In Workbooks
If Not (WB Is ActiveWorkbook) Then Application.Windows(i).Visible = False
i = i + 1
Next
Application.DisplayFullScreen = True
End Sub

Private Sub UserForm_Terminate()
Dim WB As Workbook, i
i = 1
For Each WB In Workbooks
Application.Windows(i).Visible = True
i = i + 1
Next
Application.DisplayFullScreen = False
End Sub

NB: J'ai testé avec deux classeurs ouverts dans un seule instance Excel ouverte, et seul le classeur actif est affiché et en en plein écran.

 

[Pexcel]

Bonsoir Staple1600,

un grand merci ça fonctionne nikel !!!


Bonne continuation.