openen kopieren plakke en weggooien

[Doohan]

Geachte helpers,

De vraag die ik stel heb ik eerder gedaan maar ik ben waarschijnlijk in de vergeet modus gezet. Dus ik doe een nieuwe poging.
Ik heb code maar die werkt niet. by private sub workbook open probeer ik een bestand uit een beveiligde serverbestandsmap
een bestand te kopieren mbv filecopy om deze tijdelijk lokaal te krijgen. Maar ik krijg het vermoeden dat dit niet kan is er een manier? de volgende code levert fout 75 op

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CutCopyMode = False
    Workbooks("OVERZICHT.xlsm").Close SaveChanges:=False
    Kill "C:\PersoneelInfo\data\overzicht.xlsm"
End Sub

Private Sub Workbook_Open()
    Dim HuidigWb As String
    
    HuidigWb = ActiveWorkbook.Name
    FileCopy "F:\Projecten FAT_SAT\PersoneelData\overzicht.xlsm", "C:\PersoneelInfo\data\overzicht.xlsm"
    
    Workbooks.Open Filename:="C:\PersoneelInfo\data\overzicht.xlsm"
    Workbooks(HuidigWb).Activate
End Sub

Misschien is er een andere manier.

m.vr.gr.Martin

 

[edmoor]

Fout 75 wil zeggen dat je een opgegeven pad/bestand niet kan/mag benaderen.

 

[Doohan]

snap het. Dan moet ik maar eens gaan nadenken hoe ik dit op ga lossen.

bedankt Edmoor

 

[edmoor]

Je kan in debug mode bekijken welke regel die fout veroorzaakt, dan weet je ook welk pad/naam het betreft.