Discussion :

[stargates]

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

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[stargates]

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

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
For Each oObject In ThisWorkbook.VBProject.VBComponents

[pgz]

Bonjour.

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

Bonne journée,

PGZ

[stargates]

Bonjour,
Comment fait-on????

[Pierre Fauconnier]

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...