Bonjour,
Ce code ouvre le classeur MonClasseur.xls et copie en A1 et B1, le contenu des TextBox.
ajouter la référence à Micosoft Excel 9.0 Object Libray (9.0 ou autres suivant ta version)
Private Sub Command1_Click()
Dim appExcel As Excel.Application
Dim wbExcel As Excel.Workbook
Dim Sheet As Excel.Worksheet
Dim wks As String
wks = "C:\Mes documents\MonClasseur.xls"
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open(wks)
Set Sheet = appExcel.ActiveWorkbook.Worksheets(1)
'appExcel.Visible = True
Sheet.Cells(1, 1).Value = Text1.Text
Sheet.Cells(1, 2).Value = Text2.Text
'wbExcel.Close
End Sub
jpleroisse
|