Bonjour,
Je me suis basé sur mes propres écrans, changez les valeurs si cela ne convient pas, essayez ceci:
Function hide_workbook_and_show_form()
Application.Visible = True
LOGINFORM.Show
'Déplacement du formulaire "LOGINFORM" sur l'écran de gauche
LOGINFORM.Left = 500
LOGINFORM.Top = 250
MODEMIDENTIFICATION.Show
'Déplacement du formulaire "MODEMIDENTIFICATION" sur l'écran de droite
MODEMIDENTIFICATION.Left = 1440
MODEMIDENTIFICATION.Width = 1440
MODEMIDENTIFICATION.Top = 0
End Function
Private Sub Workbook_Open()
Call hide_workbook_and_show_form
End Sub
Cdlt