la méthode de l'object Vbproject à echoué

Bonjour,

je voudrais afficher tous les userform dans un combobox


voici mon code

Code:

---

1 2 3 4

Private Sub Workbook_Open() frmMenu.Show End Sub

---

Code:

---

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

Bonjour

Normalement, ta compilation aurait dû bloquer sur as vbcomponent

Tu dois boucler sur les objets et isoler ceux qui ont le type correct

Code:

---

1 2 3 4 5 6

Dim oObject As Object   ComboBox1.Clear For Each oObject In ThisWorkbook.VBProject.VBComponents If oObject.Type = 3 Then ComboBox1.AddItem oObject.Name Next oObject

---

merci, mais j'ai essayé ton code il me retourne la même erreur

Code:

---

1 2 3 4

Private Sub Workbook_Open() frmMenu.Show End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub UserForm_Initialize() Dim oObject As Object   cboForme.Clear For Each oObject In ThisWorkbook.VBProject.VBComponents If oObject.Type = 3 Then cboForme.AddItem oObject.Name Next oObject   End Sub

---

il surligne en jaune ceci

Code:

---

1 2	For Each oObject In ThisWorkbook.VBProject.VBComponents

---

Bonjour.

Tu as autorisé l'accès au modèle d'objets du projet VBA?

Bonne journée,

PGZ

Bonjour,
Comment fait-on????

XL2007: Options Excel/Centre de gestion de la confidentialité/Paramètres du centre de gestion... et cocher Accès approuvé au modèle d'objet du projet VBA

XL <2007: Outils/Macro/Sécurité.../Editeurs approuvés, puis cocher Faire confiance au projet VBA

Tu peux retester ton ancien code avec cette option cochée...

ok merci