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 : Sélectionner tout - Visualiser dans une fenêtre à part
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