vba OWC10.Spreadsheet, Controls.Add

Bonjour à tous,

j 'aimerais pouvoir ajouter un contrôle Spreadsheet à l'initialisation d'un UserForm,
j 'ai essayé cette syntaxe (sans succès) :

Code:

---

1 2 3 4

Sub afficher_formulaire() ThisWorkbook.VBProject.References.AddFromFile "C:\Program Files\Fichiers communs\Microsoft Shared\Web Components\10\OWC10.DLL" UserForm1.Show End Sub

---

Code:

---

1 2 3 4

Private Sub UserForm_Initialize() Dim wks As OWC10.Spreadsheet Set wks = Me.Controls.Add("Forms.Spreadsheet.1", True) End Sub

---

est ce possible ? si oui, pourriez-vous me montrer la syntaxe.

merci,
isabelle (Win Xp, Excel 2002 sp3, vba)

bonjour à tous,

mon probleme est résolu :-)
pour ceux qui serait intéressé, il faut remplacer "Forms.Spreadsheet.1" par le Progid de l'ocx

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub UserForm_Initialize() Dim wks As OWC10.Spreadsheet Set wks = Me.Controls.Add("OWC10.Spreadsheet.10", True) With wks .DisplayToolbar = False With .Windows(1) .DisplayHorizontalScrollBar = False .DisplayWorkbookTabs = False .DisplayColumnHeadings = False .DisplayRowHeadings = False End With End With End Sub

---

isabelle