Besoin d'aide Stagiaire sur CATIA V5
3 participants
Page 1 sur 3
Page 1 sur 3 • 1, 2, 3
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
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
- Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne
Re: Besoin d'aide Stagiaire sur CATIA V5
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
Ensuite pour que l'éditeur prennent aussi en compte la syntaxe tu peux aller dans le menu "tools" -> "references ..." et cocher "Microsoft Excel ..."
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
- Messages : 530
Date d'inscription : 08/01/2010
Re: Besoin d'aide Stagiaire sur CATIA V5
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 :/
J'arrive à ouvrir un fichier excel vierge mais je ne trouve pas comment ouvrir celui que je souhaite :/
THOMAS93- actif
- Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne
Re: Besoin d'aide Stagiaire sur CATIA V5
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
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
- Messages : 530
Date d'inscription : 08/01/2010
Re: Besoin d'aide Stagiaire sur CATIA V5
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+
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+
THOMAS93- actif
- Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne
Re: Besoin d'aide Stagiaire sur CATIA V5
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 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
- Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne
Re: Besoin d'aide Stagiaire sur CATIA V5
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
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
- Messages : 530
Date d'inscription : 08/01/2010
Re: Besoin d'aide Stagiaire sur CATIA V5
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
- Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne
Re: Besoin d'aide Stagiaire sur CATIA V5
Je ne pige pas ce que tu veux faire
Guss_- Admin
- Messages : 530
Date d'inscription : 08/01/2010
Re: Besoin d'aide Stagiaire sur CATIA V5
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)).
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
- Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne
Re: Besoin d'aide Stagiaire sur CATIA V5
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.
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
- Messages : 530
Date d'inscription : 08/01/2010
Re: Besoin d'aide Stagiaire sur CATIA V5
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.
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
- Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne
Re: Besoin d'aide Stagiaire sur CATIA V5
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.
Sinon, non je ne connais pas le code qui permet de faire ce que veux.
Guss_- Admin
- Messages : 530
Date d'inscription : 08/01/2010
Re: Besoin d'aide Stagiaire sur CATIA V5
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 !
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
- Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne
Re: Besoin d'aide Stagiaire sur CATIA V5
ça doit être ça
CATIA.FileSelectionBox()
CATIA.FileSelectionBox()
Guss_- Admin
- Messages : 530
Date d'inscription : 08/01/2010
Re: Besoin d'aide Stagiaire sur CATIA V5
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 ?
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
- Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne
Re: Besoin d'aide Stagiaire sur CATIA V5
http://v5vb.wordpress.com/2010/02/08/file-dialogs/
Guss_- Admin
- Messages : 530
Date d'inscription : 08/01/2010
THOMAS93- actif
- Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne
Re: Besoin d'aide Stagiaire sur CATIA V5
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 !
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
- Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne
Re: Besoin d'aide Stagiaire sur CATIA V5
A ton avis ...
cette ligne là
Excel.Workbooks.Add
ça fait quoi ?
cette ligne là
Excel.Workbooks.Add
ça fait quoi ?
Guss_- Admin
- Messages : 530
Date d'inscription : 08/01/2010
Re: Besoin d'aide Stagiaire sur CATIA V5
Bah oui, mais quand je l'enlève, il ne fait plus rien..
THOMAS93- actif
- Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne
Re: Besoin d'aide Stagiaire sur CATIA V5
Il ouvre Excel mais pas de fichier.. Et il m'écrit un message d'erreur (bug).
THOMAS93- actif
- Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne
Re: Besoin d'aide Stagiaire sur CATIA V5
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
- Messages : 530
Date d'inscription : 08/01/2010
Re: Besoin d'aide Stagiaire sur CATIA V5
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)
Run-time error '91' :
Object variable or With Block variable not set
et me selectionne Set wbk = wbks.Sheets(1)
THOMAS93- actif
- Messages : 36
Date d'inscription : 08/04/2013
Localisation : Compiegne
Re: Besoin d'aide Stagiaire sur CATIA V5
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
- Messages : 530
Date d'inscription : 08/01/2010
Page 1 sur 3 • 1, 2, 3
Sujets similaires
» Besoin d'aide Stagiaire sur CATIA V5
» Catia V5 et Bug (besoin d'aide)
» Une stagiaire en galère
» besoin d'aide
» Nouveau membre a besoin d'aide
» Catia V5 et Bug (besoin d'aide)
» Une stagiaire en galère
» besoin d'aide
» Nouveau membre a besoin d'aide
Page 1 sur 3
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|