Map openen via macro in Excel

[corvdh]

Ik wil via een macro en een drukknop op een excel werkblad er voor zorgen dat mensen een bepaalde map kunnen openen.

ThisWorkbook.FollowHyperlink "C:\Mijn documenten\Testmap"

Deze code werkt wel zolang je een nederlandse Windows xp gebruikt, maar gebruik ik Windows 7 dan geeft vba een foutmelding dat hij de map niet kan vinden.

Kan ik er voor zorgen dat hij altijd de mijn documenten map kan vinden ongeacht de taal en de versie van Windows?

 

[robdgr]

Met

=INFO("VERSIE_BESTURING")

krijg je het besturingssysteem. Voor windows7 is dat bij mij

Windows (32-bit) NT 6.01

, voor xp weet ik het niet, maar misschien kun je je macro aanpassen. Of op de Windows7 pc's de map maken zoals je hem hebt omschreven.

 

[corvdh]

Waar in de macro plaats ik deze code?

Zijn er nog andere manieren om voor elkaar te krijgen wat ik wil?

Misschien handig om te weten is dat de map die ik wil openen de zelfde map is als waar de Excel file in staat.

 

[HSV]

Application.ThisWorkbook.Path

 

[corvdh]

Ik heb

ThisWorkbook.FollowHyperlink

Vervangen door

Application.ThisWorkbook.Path

maar krijg dan de volgende foutmelding:

Compileerfout:
Ongeldig gebruik van eigenschap.

Wat doe ik fout?

 

[HSV]

Ik weet niet precies wat je wil openen.
Maar onderstaande opent filedialoog waar het bestand in staat.
Wel eerst opslaan in de juiste map natuurlijk.

Application.Dialogs(xlDialogOpen).Show Application.ThisWorkbook.Path

 

[corvdh]

Application.Dialogs(xlDialogOpen).Show Application.ThisWorkbook.Path.

Dit is precies wat ik zocht, bedankt voor je antwoord.

 

[HSV]

Graag gedaan Cor,

Wil je de vraag dan als opgelost zetten.
Bvd.