remplir un userform d'un autre classeur

Bonjour,
c'est mon premier message sur ce forum qui m'a bien aidéjusque la.
j'ai un classeur pour gérer un stock(que je peut modifier entièrement) et un autre pour passer des commandes(que je peut modifier un minimum).
Ma question concerne la posibilité de copier le contenu d'un combobox d'un userform du classeur de stock vers un textbox d'un userform du classeur commande.
Pour le moment mon classeur de stock ouvre l'autre et appel une macro:

Code:

---

1 2 3 4 5

'dans le classeur de stock Workbooks.Open (Application.ActiveWorkbook.Path & "\Base de donnée\TestCommande.xls")   Application.Run "TestCommande.xls!mamacro"

---

La macro de l'autre classeur ouvre un userform "FormEntretien":

Code:

---

1 2 3 4 5 6 7 8

'dans le classeur de commande, dans un module Public vartest As Boolean Sub mamacro() Sheets("Base").Unprotect vartest = True 'pour tester si le classeur stock est ouvert FormEntretien.Show End Sub

---

Puis dans le userform_initialize de FormEntretien:

Code:

---

1 2 3 4 5 6

If vartest = True Then Workbooks("MaintFiBiSuivi.xls").Activate Application.Run "MaintFibiSuivi.xls!mamacro2"   End If

---

et dans le classeur de stock dans un module:

Code:

---

1 2 3 4 5 6

Sub mamacro2() MsgBox ("entrer dans mamacro2) Workbooks("TestCommande.xls").FormEntretien.Désignationpièce.Text = Stock.Listepiecestockmini.Text   End Sub

---

J'ai bien la msgbox qui s'affiche donc j'arive sur:

Code:

---

1 2	Workbooks("TestCommande.xls").FormEntretien.Désignationpièce.Text = Stock.Listepiecestockmini.Text

---

Je précise que FormEntretien est un UserForm et Désignationpièce est un textbox,
Stock est un UserForm et Listepiecestockmini un combobox.

et j'ai l'erreur: Erreur d'exécution '438'
Propriété ou méthode non géré par cette objet.
Je suppose que c'est ma synthaxe qui n'est pas bonne.
Et si ça marche j'aurais plusieurs control à copier.
Désolé c'est un peu long mais je voulais être le plus précis possible.
Merci pour vos futurs réponses.