Besoin d'aide Stagiaire sur CATIA V5

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

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 ..."

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 :/

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

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
Merci à toi !
A+

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 !

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

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 ?

Je ne pige pas ce que tu veux faire

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)).

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.

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.

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.

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 !

ça doit être ça


CATIA.FileSelectionBox()

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 ?

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

Merci !

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 !

A ton avis ...

cette ligne là

Excel.Workbooks.Add

ça fait quoi ?

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

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

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" ...

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)

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")