documenteigenschappen

[Joske2000]

Hallo,

Ik heb een document waarbij een aantal sheets worden gevuld met gegevens uit andere spreadsheets (via "externe gegevens importeren").

Nu zou ik graag op een pagina de laatste datum waarop de externe spreadsheets gesaved zijn laten verschijnen. Bv document : Klanten laatste datum gesaved 06/08/2009. Dit om te vermijden dat we met "verouderde" documenten gaan werken.

Dus de documenteigenschappen van de andere files zou ik moeten laten verschijnen in mijn huidige spreadsheet !

Bedankt voor het meedenken,

Thx,

Joske

 

[Warme bakkertje]

Als het bestand gesloten is

Sub tst()
Application.ScreenUpdating = False
Workbooks.Open "D:\Mijn documenten\Testbestanden\Pdf_Print.xls" 'volledig pad naar bestand
test = ActiveWorkbook.BuiltinDocumentProperties(12)
Workbooks("Pdf_Print.xls").Close False
[A1] = test
Application.ScreenUpdating = True
End Sub

Als het bestand open is

Sub tst2()
Application.ScreenUpdating = False
[A1] = Workbooks("Pdf_Print.xls").BuiltinDocumentProperties(12)
Application.ScreenUpdating = True
End Sub