Ecrire dans un activex textbox sur excel

Voilà j'ai trouvé une solution.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Imports System.Windows.Forms
Imports Excel = Microsoft.Office.Interop.Excel
Imports System.Drawing
 
Public Class Form1
    Inherits System.Windows.Forms.Form
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clic   
     Const SourcePathXls As String = "C:\XXXX\test1.xlsx"
        Dim DestPathXls As String = "C:\YYYY
        Dim xbook As New Excel.Application
        Dim wbook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlSheet As Excel.Worksheet
        CreateIfNotExists(DestPathXls)
        wbook = xbook.Workbooks.Open(SourcePathXls)
        xbook.Worksheets("Feuil1").txt1.select()
        xbook.Worksheets("Feuil1").txt1.backcolor =  RGB(0, 0, 0)
        xbook.Worksheets("Feuil1").txt1.text = "hhhhhh"
        xbook.Application.Visible = True
        wbook.SaveAs(DestPathXls & "\XXXXX.xlsx")
        xlSheet = Nothing
        wbook = Nothing
        xbook.Quit()
        xbook = Nothing
    End Sub
 
 
End Class