Discussion :

[sabzzz]

Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[sabzzz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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