Oleobject

Bonjour,

J'ai crée un objet ole avec le code en VBA, + précisement un " bouton de commande".

Je n'arrive pas à le nommer car la propriété .caption ne marche pas comment faire?

Comment faire pour mettre du code derrière cet objet généré selon certaines conditions?

Merci d'avance les filles et les gars.

Salut,

Justement aujourd hui j'ai fait un truc a peu pres pareil, essaie de voir si ca peut t'aider.

Copier un bouton existant et creer le code correspondant dans la feuille contenant le nouveau bouton

Pour copier le bouton CommandButton1 de la feuille Feuil3 vers la feuille Feuil4
(mais ca a premiere vue tu l'a deja fait)

Sheets("Feuil3").Select
ActiveSheet.Shapes("CommandButton1").Select
Selection.Copy
Sheets("Feuil4").Select
ActiveSheet.Paste


Pour creer dans la feuille Feuil4 le code du bouton copié
(Ici je fais appelle a une fonction commune au classeur en passant en parametre la Feuille contenant le bouton soit ici Feuil3)


Private Sub CreateButtonCode()
Dim SubToInsert As String
    SubToInsert = "Private Sub CommandButton1_Click()" & vbCrLf
    SubToInsert = SubToInsert & "Call ThisWorkbook.AddNewTask(Me)" & vbCrLf
    SubToInsert = SubToInsert & "End Sub" & vbCrLf & vbCrLf
    
    With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
    j = .CountOfLines + 1
    Call .InsertLines(j, SubToInsert)
   End With

End Sub


@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée