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
Partager