ouvrir un userform d'un autre classeur

[daniel]

Salut le Forum !

Je vous espère bien reposés après ce long week-end... Pour ma part, grâce aux conseils de nombre d'entre vous, ma petite appli progresse bien...

Je m'adresse encore une fois (et sans dout pas la dernière !) à vous... Comment faire pour ouvrir , depuis un userform situé dans un classeur 1, un autre userform situé dans un classeur 2 ? Si possible, sans que le classeur 2 ne s'ouvre, ou du moins ne soit visible...


Merci pour votre aide

Bonne journée

Daniel

 

[porcinet82]

salut

je ne pense pas qu'il soit possible d'ouvrir un usf d'un classeur ss que celui-ci soit ouvert.
sinon, tu l'ouvres mais tt en le laissant caché, pour ca voila le code si tu ne l'a pas:

Workbooks.Open Filename:='C:\\Documents and Settings\\pabercel\\Bureau\\test.xls'
Application.Visible = False

par contre pour ouvrir un usf de ce classeur je seche
si qq un a la sol, merci

a+

 

[Alain CROS]

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

 

[daniel]

Bonjour,

Merci pour votre réponse...Je vais essayer avec ce code, et tant pis si le classeur doit s'ouvrir !

Bonne fin de journée

Daniel