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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.