Discussion :

[florent77]

Bonjour le forum !

J'ai de nouveau besoin de vos lumières.

A l'aide d'un USF je crée deux fichiers excel que je souhaite ouvrir côte à côte en plein écran.
(comme on peut le faire avec Affichage => Réorganiser tout => Vertical)

Cela donne cela :



... un trou sur la droite qui provient sûrement du fait que je ferme le formulaire une fois les classeurs ouverts :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Workbooks("formulaire.xlsm").Close SaveChanges:=False
Unload Me
Windows.Arrange ArrangeStyle:=xlVertical

J'ai essayé dans les ThisWorkbook de chaque classeur mais rien n'y fait.
Si vous avez des idées...
Merci d'avance

[florent77]

Salut à tous,

Le problème est résolu. Il suffisait de minimiser le classeur contenant les macros.


Dans ThisWorkbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Workbook_Open()
    ActiveWindow.WindowState = xlMinimized
    Userform.Show
End Sub

Dans l'userform :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Application.WindowState = xlMaximized
Windows.Arrange ArrangeStyle:=xlVertical
Workbooks(Nomduformulaire).Close SaveChanges:=False
Unload Me