Lecture fichier excel dans Catia

Bonjour,

Je réalise un projet CATVba de récupération d'attributs 3D dans un 2D.
Je souhaite ouvrir un fichier excel et transférer les lignes/colonnes dans une variable array.

Je sais le faire a partir d'un fichier texte (voir ci dessous), mais comment faire avec un fichier excel?

Code:

Dim fs, f
    Set fs = CreateObject("scripting.filesystemobject")
    Fichtxt = CheminDestNomenclature & NomNomenclTxt
    Set f = fs.opentextfile(Fichtxt, ForReading, 1)
    For i = 1 To 5
        LigneNomTempo(i) = f.ReadLine
    Next

Merci de votre aide

Salut,

Voilà un extrait d'une de mes macros utilisant Excel

Code:

 Dim Excel As Object
    On Error Resume Next
    Set Excel = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then
        Set Excel = CreateObject("Excel.Application")
        Excel.Visible = True
    End If
    On Error GoTo 0
    Excel.Visible = True
    Excel.Workbooks.Add
    Set wbks = Excel.ActiveWorkbook
    Set wbk = wbks.Sheets(1)
'------- passage catia -> excel
    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
'------ mis en page excel
    wbk.Columns(1).ColumnWidth = 14.29
    wbk.Columns(2).ColumnWidth = 2.57
    wbk.Columns(3).ColumnWidth = 4.43
    wbk.Columns(4).ColumnWidth = 42.71
    wbk.Columns(5).ColumnWidth = 30.71

extrait de la macro que tu peu trouver ici :
https://catiav5.forumactif.org/t168p90-section-programmation-catscript-vba-vbnet#1497

Merci Guss.