Code pour inscrire des données à partir de Catia dans Excel

Bonjour à tous,

Je débute dans le code CATScript et je souhaiterai connaitre le code pour passer de CATIA à Excel, je souhaiterai dans un premier temps simplement activer une fenêtre Excel à partir d'une macro que je lance depuis CATIA. J'ai fait ça comme code pour l'instant :

Sub CATMain()

Dim Excel As Application
Dim windows1 as object
Set windows1 = Excel.ActiveWindow

End Sub

Si quelqu'un a une idée ça m'interesse, pour l'instant ça ne marche pas la fenêtre Excel ne s'active pas.

Merci pour votre aide

Violà un extrait d'une de mes macro

Code:



 '---- initialisation excel
    Dim Excel As Object
    On Error Resume Next
    Set Excel = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then
        Set Excel = CreateObject("Excel.Application")
    End If
    On Error GoTo 0
    Excel.Visible = True
    
'---- position Excel en 1er plan
    Dim win
    win = Excel.hwnd
    BringWindowToTop (win)
    
'---- création de la feuille excel
    Dim wbks, wbk
    Excel.Workbooks.Add
    Set wbks = Excel.ActiveWorkbook
    Set wbk = wbks.Sheets(1)
    
'------- passage catia -> excel
    Dim l
    For l = 1 To lignes
        For c = 1 To colonnes
            wbk.Cells(l, c) = nomenclature.GetCellString(l, c)
            wbk.Cells(l, c).borders.LineStyle = 1
            wbk.Cells(l, c).borders.Weight = 2
        Next
    Next

Mais comme dis dans ton autre sujet, tu ne pourras pas le faire en VBscript, mais uniquement en VBA  

Merci encore pour ce bout de code je vais voir ce que j'arrive à faire en MS VBA...