Bonjour,
Quand je souhaite ouvrir un 2ème ThisWorkbook du 1er classeur:
Private Sub Workbook_Deactivate()
If ThisWorkbook.Name = "JAZZYPOP.xlsm" Then
On Error Resume Next
Application.Visible = True
Application.Quit
End If
End Sub
Private Sub Workbook_Open()
Application.ScreenUpdating = False
If ThisWorkbook.Name = "JAZZYPOP.xlsm" Then
Application.Visible = False
With Application.Windows("JAZZYPOP.xlsm")
.WindowState = xlNormal
.Width = 100
.Height = 100
.Top = -100
.Left = -100
End With
End If
UserForm2.Show
UserForm2.StartUpPosition = 2
Application.ScreenUpdating = True
End Sub
Auriez-vous une solution ? Merci