CATIA V5 | 3DEXPERIENCE
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.

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

2 participants

Aller en bas

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

Message par Tonio091 Mar 25 Mar 2014 - 15:41

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




Tonio091
Tonio091
actif
actif

Messages : 30
Date d'inscription : 25/02/2011
Age : 41

Revenir en haut Aller en bas

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

Message par Guss_ Mar 25 Mar 2014 - 16:35

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  Wink

Guss_
Admin
Admin

Messages : 530
Date d'inscription : 08/01/2010

Revenir en haut Aller en bas

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

Message par Tonio091 Mar 25 Mar 2014 - 18:04

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

Messages : 30
Date d'inscription : 25/02/2011
Age : 41

Revenir en haut Aller en bas

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

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum