Catvba, send to service, help me please

Voir le sujet précédent Voir le sujet suivant Aller en bas

Catvba, send to service, help me please

Message par chct64 le Sam 2 Mar 2013 - 9:52

Bonjour,
je cherche à realiser une macro me servant de duplication de produit et part depuis un Catdrawing.
Mon idee, se servir de la fonction "envoyer vers" + "rename" afin de copier et renommer la totalite des fichiers tout en effectuant une purge des fichiers non utilises dans le drawing....

Donc, je selectionne un CATDrawing, je fais un envoyer vers tout en renommant les fichiers...mais ca ne marche pas...je coince sur le setrenamefile (sinon, l'envoyer vers marche sans probleme)

Merci pour votre aide!
Bien cordialement


Mon code

Private Sub CommandButton1_Click()
Source = CATIA.FileSelectionBox("drawing source a dupliquer", "*.catdrawing", CatFileSelectionModeOpen) 'selection du drawing
CATIA.DisplayFileAlerts = False 'desactive les message catia
CATIA.Documents.Open (Source) 'j'ouvre le drawing
Path = CATIA.ActiveDocument.Path 'recup du chemin ou est enregistré le drawing
Nom = CATIA.ActiveDocument.Name 'recup du nom du drawing
initial = Path & "\" & Nom
Set Folder = CATIA.FileSystem.CreateFolder("New2") 'creation d'un nouveau dossier qui va acceuillir mes nouveaux fichiers
oFolder = Path & "\New2"

Dim send As SendToService

Set send = CATIA.CreateSendTo()

send.SetDirectoryFile (oFolder)

fichier = Dir(Path & "\" & "*.*")
While (fichier) <> ""
If fichier Like "*.CATPart" Or fichier Like "*.CATProduct" Then
iOldName = fichier
iNewName = fichier & "test"
'MsgBox fichier
send.AddFile (fichier)
send.SetRenameFile(iOldName,iNewName)
CATIA.CreateSendTo.SetRenameFile(iOldName,iNewName)
End If
fichier = Dir()
Wend


send.Run

CATIA.ActiveDocument.Close

nouveau = (oFolder & "\" & Nom)
CATIA.Documents.Open (nouveau)
CATIA.ActiveDocument.Save
End sub

chct64
timide
timide

Messages : 2
Date d'inscription : 02/03/2013
Localisation : 64

Revenir en haut Aller en bas

Re: Catvba, send to service, help me please

Message par Guss_ le Lun 18 Mar 2013 - 20:44

Quel est l'erreur renvoyée ?

Guss_
Fédérateur
Fédérateur

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

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

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