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
Partager