[VBA-E]Retrouver le type d'un OLEObject
Existe-t-il un moyen de connaître le type d'un OLEObject ?
Je récupère le nom, mais je n'ai pas trouvé de propriété Type(*)
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Sub DécompteMensuel()
Dim NomControl(), TypeControl(), i as integer, j as integer, NoFiche as integer, NomAgent, DateNat as date, DateFonct as date, ok as boolean
For i = 1 To Workbooks("Gestion des arrêtés.xls").Worksheets("Titulaires").OLEObjects.Count
Set bouton = Worksheets("Feuil1").OLEObjects(i)
With bouton
ReDim Preserve NomControl(i)
NomControl(i) = .Name
ReDim Preserve TypeControl(i)
'TypeControl(i) = .Quoi '? ***********
End With
Set bouton = Nothing
Next
End Sub |
Par avance merci
