Bonjour.
Sans ouvrir le Classeur2, je ne vois pas.
Dans le UserForm du Classeur1, 1 bouton pour ouvrir le UserForm1 du Classeur2
Private Sub CommandButton1_Click()
Dim I&, LeFile$, WK As Workbook
Application.ScreenUpdating = False
Set WK = Workbooks.Open('NomComplet deClasseur2.xls')
Windows(1&).Visible = False
Application.ScreenUpdating = True
LeFile = CurDir & Application.PathSeparator & '$£µ'
I = FreeFile
Open LeFile For Output Lock Read Write As #I
Print #I, 'Sub LanceUF()'
Print #I, 'UserForm1.Show'
Print #I, 'End Sub'
Close #I
With WK
.Modules.Add.InsertFile LeFile
Kill LeFile
Run .Name & '!LanceUF'
.Parent.DisplayAlerts = False
.Modules(.Modules.Count).Delete
.Parent.DisplayAlerts = True
.Close False
End With
Set WK = Nothing
End Sub
Alain CROS