Bonjour,

Je souhaite ajouter de maniere dynamique des textbox sur un document word et gerer les evènements associés
Voici le code, les textbox sont bien crées mais il se produit une erreur 13 au moment de l'ajout à la collection.
Pourquoi?
---------------------------------------------
Dans un Module

public Cl as classe1
public Obj as control
public Collect as Collection

------------------------------------------------

Dans un module de Classe

Public WithEvents tb As MSForms.TextBox

Private Sub tb_Change()
stop
End Sub
-------------------------------------------------------
Dans un Userform

Private Sub CommandButton1_Click()
Set Collect= New Collection
Set Obj=ActiveDocument.InlineShapes.AddOLEControl(ClassType:="Forms.textbox.1")
With Obj.OLEFormat.Object
.Text="AZERTY"
.Name="TT"
End With
Set C=New Classe1
Set Cl.tb=Obj.Objet
Collect.Add CL

End Sub
------------------------------------------------------

Merci pour la solution car je suis perdu

Configuration: Windows XP
Internet Explorer 7.0