OLE Objects....

[Julien]

Bonjour à tous,

Je développe actuellement un client OPC avec Excel et VBA et j'ai quelques petits problemes...

Je crée des bouton et leur code dans une feuille excel (dynamiquement, meme nombre de boutons que d'items crées dans le serveur OPC).
J ai l 'impression de perdre a un moment ou a un autre le control de mon programme car:

1º: je ne peux plus entrer en debug pas a pas (des que je cree le premier bouton)
2º: mes connections OPC ne se font plus...

Les lignes pour creer les boutons sont les suivantes (j utilise les OLE objects mais mal apparement...):

For i = 1 To UBound(Item)
Hoja1.Range("A" & (i + 1)).Value = Item(i)
Hoja1.Range("B" & (i + 1)).Value = ""
Set Butt = Hoja1.OLEObjects.Add("Forms.commandbutton.1")
With Butt
.Visible = True
.Top = Hoja1.Range("C" & (i + 1)).Top
.Left = Hoja1.Range("C" & (i + 1)).Left
.Width = Hoja1.Range("C" & (i + 1)).Width
.Height = Hoja1.Range("C" & (i + 1)).Height
.Object.Caption = ""
.Name = "CmdWriteItem" & i
End With
Set Butt = Nothing
ButtonCode = "Sub CmdWriteItem" & i & "_Click()" & vbCrLf
ButtonCode = ButtonCode & "Call ThisWorkBook.WriteOPCItem(""CmdWriteItem" & i & """)" & vbCrLf
ButtonCode = ButtonCode & "End Sub"
With ThisWorkbook.VBProject.VBComponents("Hoja1").CodeModule
NextLine = .CountOfLines + 1
.InsertLines NextLine, ButtonCode
End With
Next i


Si quelqu'un pouvait ou me dire se qui ne va pas ou me conseiller un autre moyen de creer dynamiquement les boutons, j en serait tres heureux.

Merci d avance

Julien