J'ai besoin d'atteindre un userform à partir d'un object excel basé sur un modèle excel mais je ne trouve pas la collection des userforms juste une liste d'item référencant les noms des useforms mais ne retournant pas l'userform

voici le code que j'ai

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
Dim XLFichier As Workbook
Set XLFichier = Workbooks.Open("C:\SITECUB1\Maquette.xltm")
 
  Dim usf1 As UserForm
  Dim i As Integer
 
 For i = 1 To XLFichier.VBProject.VBComponents.count - 1
    If XLFichier.VBProject.VBComponents.item(i).Name = "UF_10_treeview" Then
        'MARCHE PAS
'recupere l'userform
        usf1 = XLFichier.VBProject.VBComponents.item(i)
        Exit For
    End If
Next
 
'MARCHE PAS
'recupere la requete
Dim REQGEN As String
REQGEN = XLFichier.VBProject.VBComponents.item(i).requeteGENE