Discussion :

[ouskel'n'or]

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

[DarkVader]

Essaie avec

Code :

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

typename(bouton.object)

[ouskel'n'or]

Merci Dark, c'est ok !