Dernière ligne "non-nulle" d'un tableau excel à partir d'une macro CATIA

Bonjour,

Je voudrais trouver à partir d'une macro CATIA quelle est la dernière ligne utilisée d'un tableau excel.

Je précise que mon code se sert déjà d'excel, et je suis capable d'aller chercher des valeurs à partir d'une macro catia si je précise l'adresse d'une case. Mais pour mon problème, il me faudrait le numéro de la dernière ligne qui n'est pas vide.

J'ai essayé les différentes lignes de code "classique" fonctionnant sur les macro excel mais à priori elles ne fonctionnent pas à partir de CATIA.

des idées?

Je mets les lignes que j'ai testé jusqu'à maintenant pour info :

Code:


DernLigne = Range("A65536").End(xlUp).Row
DernLigne = Range("A1048576").End(xlUp).Row
DernLigne = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row


Personne n'a d'idée? j'ai toujours rien trouvé sur le net, et l'aide MACRO/CATIA ne dis rien sur les lien avec excel

Je me répond tout seul, il faut bien faire attention à ce que la librairie EXCEL soit selectionnée dans le VBA sur CATIA

Ainsi les lignes de code usuelles fonctionnes

Par contre il est possible, suivant comment tu déclares l'objet Excel, que ça ne marche pas sur un autre poste où la librairie EXCEL n'est pas sélectionnée.

C'est visiblement ce qu'on appel le Early binding et Late binding

Code:

    On Error Resume Next
    Set Excel = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then
        Set Excel = CreateObject("Excel.Application")
        Err.Clear
    End If
    On Error GoTo 0
    Excel.Visible = True
   

En déclarant Excel avec cette ligne
Set Excel = CreateObject("Excel.Application")

Dans tout les cas ça devrait fonctionner

Salut Guss, à priori non çà fonctionne pas.

Je l'avais déclaré comme ça mais je n'avais pas les lignes de commandes VBA/excel à cause de la librairie.

Je pouvais l'ouvrir et y faire des actions mais pas toutes.

Sélectionner la librairie excel m'a permis de libérer des lignes de code VBA normalement faites pour excel mais que je peux maintenant utiliser sur CATIA

Enfin, c'est comme ça que je l'ai compris

Normalement si ça revient à la même chose
sauf qu'il y a quelque petit détails concernant ton code, qu'il faut préciser
DernLigne = Excel.ActiveWorkbook.Range("A65536").End(xlUp).Row
DernLigne = Excel.ActiveWorkbook.Range("A1048576").End(xlUp).Row
DernLigne = Excel.ActiveWorkbook.Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row

Il faut bien désigner sur quelle objet tu travail (ici l'objet Excel) car effectivement sinon, on ne sait pas à quoi se réfèrent le "range" et "columns.find"

Par contre le fait de déclarer la librairie Excel permet d'avoir l'aide syntaxique concertant les objets Excel, ce qui n'est pas forcément négligeable pour le développement