Bonjour,

je voudrais afficher tous les userform dans un combobox


voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Private Sub Workbook_Open()
frmMenu.Show
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Private Sub UserForm_Initialize()
Dim vbUserform As vbComponent
cboForme.Clear
For Each vbUserform In ThisWorkbook.VBProject.VBComponents
 cboForme.AddItem vbUserform.Name
 Next
End Sub
il me retourne une erreur:
erreur d'exécution 1004
La méthode de Vbproject de l'objet workbook a echoué

une idée merci