Kopieer een document uit EPDM en plak het via VBA op een lokale schijf

PDM Generality
1

Hallo

Ik wou dat ik een bestand van PDM kon kopiëren en op een lokale schijf buiten PDM kon plakken .

Bijgevoegd is het VBA-codefragment dat ik ben gaan maken, maar het werkt niet. (zie foutmelding).

Is het haalbaar? Heeft iemand enig idee van het probleem?

Bedankt.


code_vba.png
2

Bijgevoegd is de foutmelding

Bedankt


message_erreur.png
3

Hallo

GetFileCopy wordt alleen gebruikt om een bestand lokaal in de kluis te repatriëren (gelijk aan het ophalen van een versie).

U moet de CopyFile-methode gebruiken.

1 like
4

Dank je wel, inderdaad...

Aan de andere kant ben ik geen expert in VBA en kan ik de CopyFile-methode niet gebruiken.

zie bijlage 


copyfile.png
5

De eenvoudigste manier is om een eenvoudig kopiëren / plakken van vensters te doen.

Dim Vault As New EdmVault5
Dim folder As IEdmFolder5
Dim file As IEdmFile5
Dim destfolder As String

Vault.LoginAuto "BllueBus", 0

Set file = vault.GetFileFromPath("D:\BE_Produit_01\Fichiers pour export\Donnnées Publiées\PDF\U100023AA-R01.pdf")

destfoler = "C:\Temp\"

FileCopy "D:\BE_Produit_01\Fichiers pour export\Donnnées Publiées\PDF\U100023AA-R01.pdf", "C:\Temp\U100023AA-R01.pdf"

Het enige dat u hoeft te doen, is variabelen invoeren om verschillende bestanden te beheren en de GetFile-methode gebruiken om het bestand lokaal op te halen voordat u de kopie maakt.

1 like
6

Hieronder vindt u een functionele code.

Sub CopyFile()

Dim Vault As EdmVault5
Dim folder As IEdmFolder5
Dim file As IEdmFile5
Dim destfolder As String


Set Vault = New EdmVault5
Vault.LoginAuto "BlueBus", 0

Set folder = Vault.GetFolderFromPath("D:\BE_Produit_01\Fichiers pour export\Donnnées Publiées\PDF\")
Set file = folder.GetFile("U100023AA-R01.pdf")

file.GetFileCopy 0, "", 0

destfolder = "C:\PDF\"

FileCopy file.GetLocalPath(folder.ID), destfolder & file.Name

End Sub

 

3 likes
7

Dank je wel Cyril.f!

Het werkt!