Bonjour,
j'essaye de faire fonctionner un code permettant de créé un bouton qui exécute une macro. A la compilation ce dernier bloquer sur mon objet OLEObjects :
"Impossible de lire la propriété de l'objet OLEObjects de la classe Worksheet"

J'ai rajouté la bilbiothèque "Microsoft Visual Basic for Applications Extensibility", mais cela n'a pas l'air de suffire. Est ce une erreur de code, une erreur de référence (quel bibliothèque me faut il en plus ?) .. ?

voici un extrait de mon code, et merci pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Set oOLE = ActiveWorkbook.ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
        Link:=False, DisplayAsIcon:=False, Left:=340, Top:=30, Width:=100, Height:=30)
 
    'texte sur le bouton
    ActiveSheet.OLEObjects(X).Object.Caption = "Actualiser " & feuille
    'code sur le bouton
    Code = "Sub CommandButton_Click()" & vbCrLf
    Code = Code & "Call Module1.Lire" & requete & "," & feuille & vbCrLf
    Code = Code & "End Sub"
 
    With ActiveWorkbook.VBProject.VBComponents(feuille).CodeModule
        NextLine = .CountOfLines + 1
        .insertlines NextLine, Code
    End With