Discussion :

[jeanangel]

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 :

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

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

[leroissejp]

Bonsoir,
voici un exemple

Code :

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

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

[jeanangel]

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