CATIA V5 | 3DEXPERIENCE
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
-29%
Le deal à ne pas rater :
DYSON V8 Origin – Aspirateur balai sans fil
269.99 € 379.99 €
Voir le deal

Besoin d'aide Stagiaire sur CATIA V5

3 participants

Page 1 sur 3 1, 2, 3  Suivant

Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Besoin d'aide Stagiaire sur CATIA V5

Message par THOMAS93 Lun 8 Avr 2013 - 13:47

Bonjour,

Je suis stagiaire dans un BE méca et j'ai pour mission de créer une nomenclature sous excel.
Je m'explique :
Le responsable a créé depuis quelques années maintenant un fichier excel, dans lequel ils doivent remplir à la mains différentes données. Je dois relier les données Catia au fichier excel et grace à cette macro, remplir automatiquement le fichier excel déja créé.
Mon probléme est le suivant :
Je me comprends pas comment à partir d'une macro lancée sur Catia je peux ouvrir le fichier voulu.

Sub appel_fichier
Workbooks.Open Filename:="U:\catia\nomenclature", local:=True
End Sub

Ce petit macro fonctionne si je le lance à partir d'un fichier excel : en effet, il ouvre le fichier voulu de la nomenclature.
Mais lorsque j'écris cette macro sur une macro catia. Celui-ci ne fonctionne pas : Catia ne fait rien du tout.

J’espère que vous pourrez m'aider,

Cordialement,

THOMAS93

THOMAS93
actif
actif

Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par Guss_ Lun 8 Avr 2013 - 14:15

Salut,

il te faut définir l'objet Workbooks

Catia ne le connait pas, c'est un objet Excel.

il te faut définir un objet Excel puis ensuite les objets liés à Excel.


Voilà un bout de code qui permet de créer l'objet excel

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")
        Excel.Visible = True
    End If
    On Error GoTo 0
    Excel.Visible = True
    Excel.Workbooks.Add
    Set wbks = Excel.ActiveWorkbook
    Set wbk = wbks.Sheets(1)

Ensuite pour que l'éditeur prennent aussi en compte la syntaxe tu peux aller dans le menu "tools" -> "references ..." et cocher "Microsoft Excel ..."

Guss_
Admin
Admin

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

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par THOMAS93 Lun 8 Avr 2013 - 14:50

Très bien ! Je te remercie de ton aide !
J'arrive à ouvrir un fichier excel vierge mais je ne trouve pas comment ouvrir celui que je souhaite :/

THOMAS93
actif
actif

Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par Guss_ Lun 8 Avr 2013 - 15:02

Normalement après tu met là ligne qui te permet d'ouvrir ton workbooks

Et ça doit marcher

Mais tu as écris

Workbooks.Open Filename:="U:\catia\nomenclature", local:=True

ça n'a pas l'aire du VB := en Vb je connais pas, c'est pas un code pascal qeu t'as repiqué ?

En VB ça serait plutôt
Workbooks.Open ("U:\catia\nomenclature")

suivant la description de l'objet qu'on peut voir ici :
http://msdn.microsoft.com/fr-fr/library/microsoft.office.interop.excel.workbooks.open(v=office.11).aspx

Guss_
Admin
Admin

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

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par THOMAS93 Lun 8 Avr 2013 - 15:10

Merci beaucoup pour ton aide !
Cela fonctionne !
Je vais maintenant pouvoir avancer sur le remplissage du fichier excel avec les données Catia.
Si j'ai besoin d'aide, je reviendrai sur le sujet ici alors Wink
Merci à toi !
A+

THOMAS93
actif
actif

Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par THOMAS93 Mar 9 Avr 2013 - 15:40

J'ai un nouveau problème :

Dans le cartouche, je dois insérer le symbole de la rugosité :
J'ai créé celui-ci en 3 lignes et nommé ces lignes.
Cependant, ces 3 lignes ne sont pas ancrées dans le tableau. Du coup, dés que je déplace le tableau, le symbole ne suit pas.
Je pense à la solution suivante :
Il faudrait que je lie ensemble les lignes (créer un bloc).
Puis l'insérer dans le tableau.
Ce que je n'arrive pas à faire.


Si quelqu'un à une idée ?

Merci !

THOMAS93
actif
actif

Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par Guss_ Mar 9 Avr 2013 - 15:54

Dans un tableau catia tu ne met que du texte.

si c'est juste le symbole rugosité il y a un bouton pour inscrire un symbole rugosité en dessous de celui pour faire du texte.

Ensuite tu as aussi clic droit -> lien de position -> crée -> sélectionner l'élément avec lequel ça doit bouger.

Il faut aussi que tout soir dans le même calque sinon ça bougera forcément indépendamment suivant les calques

Guss_
Admin
Admin

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

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par THOMAS93 Mar 9 Avr 2013 - 16:00

D'accord, mais cela veut dire donc, qu'il est impossible de lier la rugosité et son indice au cadre de façon automatique (dans une macro) ? Il faudra le lier à chaque nouveau plan que l'on fera ?

THOMAS93
actif
actif

Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par Guss_ Mar 9 Avr 2013 - 16:01

Je ne pige pas ce que tu veux faire

Guss_
Admin
Admin

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

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par THOMAS93 Mar 9 Avr 2013 - 16:12

En faite, je veux mettre dans une case d'un tableau située au dessus du cartouche, le symbole de la rugosité et son indice de manière automatique. La macro créée génère ce tableau sur le plan. Ce tableau est susceptible de bouger. Mon problème est que le symbole de la rugosité et son indice ne bouge pas en adéquation avec le tableau. Ils sont fixés sur le plan.
J'aimerais donc, que lorsque je lance la macro, le tableau s'insére (ca c'est ok) mais que la rugosité bouge avec le tableau (comme si elle était fixée dans le tableau (comme les textes)).

THOMAS93
actif
actif

Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par Guss_ Mar 9 Avr 2013 - 16:42

Tu ne peux pas avoir ton cartouche déjà prédéfinie ? car l'importation de cartouche c'est déjà tout intégré dans catia


Personnellement j'ai mes cartouche A0 A1 A2 A3 A4 qui sont tous enregistré et je fais un "créé a partir de..." lorsque je veux les utiliser.

Ensuite j'ai une macro qui complète automatiquement toutes les zone de mon cartouche où j'ai mis des zone de texte comme le nom de la pièce le nom de l'auteur, la date ...

Il suffit juste que toutes les zones de texte est de nom bien connus pour que la macro puisse les remplir toutes seule.


Sinon pour ce qui est de ton symbole dessiné tu doit avoir une propriété des éléments que tu dessine qui permet de les liés à un autre objet en position et qui correspond à la fonction "lien de position"
Mais là faut que tu cherches dans les propriété des objet "lignes" que tu dessines.

Guss_
Admin
Admin

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

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par THOMAS93 Mer 10 Avr 2013 - 14:41

Connais-tu les codes catvba pour lier ensemble plusieurs traits ?
Mon problème est le symbole de rugosité... Je voudrais le réaliser à partir d'une macro mais le problème est :
les 3 traits ne sont pas liés ensemble et son indice non plus. J'aimerais lier l'ensemble traits + indice et le positionner après dans un tableau du plan.

THOMAS93
actif
actif

Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par Guss_ Mer 10 Avr 2013 - 15:12

Normalement tu utilises le symbole de rugosité que sur le dessin puisque le symbole indique la surface à prendre en compte pour cette rugosité. Dans le cartouche tu peux écrire directement "Rugosité : Ra 3.2" par exemple.


Sinon, non je ne connais pas le code qui permet de faire ce que veux.

Guss_
Admin
Admin

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

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par THOMAS93 Jeu 11 Avr 2013 - 11:11

D'acc, merci !
J'ai réussi ça.

Maintenant, j'ai un nouveau problème.. Sûrement le dernier d'ailleurs :

Voilà, lorsque je lance une macro "création nomenclature" :
J'aimerais faire apparaitre une boite de dialogue dans laquelle on pourrait explorer dans l'ordi. Et ainsi rechercher, sélectionner et ouvrir (tel un "Parcourir" ) un fichier excel déjà existant.

Auriez-vous une idée pour m'aider ?

Merci !

THOMAS93
actif
actif

Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par Guss_ Jeu 11 Avr 2013 - 11:28

ça doit être ça


CATIA.FileSelectionBox()

Guss_
Admin
Admin

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

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par THOMAS93 Jeu 11 Avr 2013 - 11:36

Ok, mais comment cela fonctionne :

J'ai :
'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")
Excel.Visible = True
End If
On Error GoTo 0
Excel.Visible = True
Excel.Workbooks.Add
Set wbks = Excel.ActiveWorkbook
Set wbk = wbks.Sheets(1)

Mais je voudrais ouvrir la fenêtre "parcourir" avant.
De plus, faut-il que je construise un UserForm pour cela ?

THOMAS93
actif
actif

Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par Guss_ Jeu 11 Avr 2013 - 11:40


http://v5vb.wordpress.com/2010/02/08/file-dialogs/

Guss_
Admin
Admin

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

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par THOMAS93 Jeu 11 Avr 2013 - 11:49

Merci ! Wink

THOMAS93
actif
actif

Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par THOMAS93 Ven 12 Avr 2013 - 10:33

Salut,

Avec ces codes vba, j'arrive à ouvrir mon fichier voulu, mais il ouvre un autre fichier xls vierge. Je n'arrive pas à modifier ces codes pour avoir uniquement mon fichier et non le vierge qui s'ouvre avec.


'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")
Excel.Visible = True
End If
On Error GoTo 0
Excel.Visible = True
Excel.Workbooks.Add
Set wbks = Excel.ActiveWorkbook
Set wbk = wbks.Sheets(1)
Workbooks.Open ("Z:\Echange\nomenclature.xls")

Merci de votre aide !

THOMAS93
actif
actif

Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par Guss_ Ven 12 Avr 2013 - 10:35

A ton avis ...

cette ligne là

Excel.Workbooks.Add

ça fait quoi ?

Guss_
Admin
Admin

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

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par THOMAS93 Ven 12 Avr 2013 - 10:37

Bah oui, mais quand je l'enlève, il ne fait plus rien..

THOMAS93
actif
actif

Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par THOMAS93 Ven 12 Avr 2013 - 10:42

Il ouvre Excel mais pas de fichier.. Et il m'écrit un message d'erreur (bug).

THOMAS93
actif
actif

Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par Guss_ Ven 12 Avr 2013 - 10:45

S'il y a des message d'erreur, c'est pour quelque chose, par uniquement pour cliquez dessus et dire "j'ai un message d'erreur" ...

Guss_
Admin
Admin

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

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par THOMAS93 Ven 12 Avr 2013 - 10:51

Le message d'erreur me dit :

Run-time error '91' :
Object variable or With Block variable not set

et me selectionne Set wbk = wbks.Sheets(1)

THOMAS93
actif
actif

Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par Guss_ Ven 12 Avr 2013 - 11:02

Je pense que tu as quelques lacunes en ce qui concerne la programmation ...


Code:

    Dim Excel As Object
    Dim wbks As Workbooks
   
    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
   
    Excel.Workbooks.Open ("Z:\Echange\nomenclature.xls")

Guss_
Admin
Admin

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

Revenir en haut Aller en bas

Besoin d'aide Stagiaire sur CATIA V5 Empty Re: Besoin d'aide Stagiaire sur CATIA V5

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Page 1 sur 3 1, 2, 3  Suivant

Revenir en haut

- Sujets similaires

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