Appli Excel sous VB 6

Bonjour,
Sous VB, je défini un controle Sheet(Exel) sur une forme.
Par code j'ouvre une application Excel, je récupère bien
les données par code.

Code:

---

1 2 3 4

Set xlapp = CreateObject("Excel.Application") Set xlbook = xlapp.Workbooks.Add Set xlsheet = xlbook.Worksheets(1) Set ExcelSheet = CreateObject("Excel.Sheet")

---

Mais je n'arrive pas à les visualiser dans le controle Sheet

Que ne fais-je pas ?
mci
jeanangel

Bonsoir,
voici un exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Command1_Click() Dim xlapp As New Excel.Application Dim xlbook As Excel.Workbook Dim xlsheet As Excel.Worksheet Set xlbook = xlapp.Workbooks.Add Set xlsheet = xlbook.Worksheets(1) xlsheet.Cells(1, 2) = 5000 xlsheet.Cells(2, 2) = 75 xlsheet.Cells(3, 1) = "Total" xlsheet.Range("B3").Formula = "=Sum(R1C2:R2C2)" xlsheet.Range("B3").Font.Bold = True xlsheet.Application.Visible = True 'xlsheet.SaveAs ("C:\feuille_1.xls"), True 'xlbook.Close 'xlapp.Quit 'Set xlsheet = Nothing 'Set xlbook = Nothing 'Set xlbook = Nothing End Sub

---

jpleroisse

Bonjour,
merci beaucoup pour ces renseignements.
mais, ce que je n'arrive pas à faire, c'est à
visualiser ces données et résultats, dans le
controle VB 'Sheet' défini dans la Form VB.

JeanAngel