Map openen met naam

[Ameliasiemens45]

Beste forummers ,

Stel dat er in A19 een naam staat van een klant.

Ik heb een macro waarbij ik een PDF kan openen met de naam van die klant in en bepaalde map.

Maar ergens staat er ook een VOLLEDIGE MAP genoemd naar die klant, die ik ook zou willen openen adhv een macro.

Hoe kan ik dit doen ?

Weet er iemand die code ?

Bedankt !

 

[Niels28]

Sub open_folder()

ActiveWorkbook.FollowHyperlink Address:=Sheets(1).Range("B3").Value, _
    NewWindow:=True

End Sub

Niels

 

[Ameliasiemens45]

Hartelelijk bedankt, maar mijn kennis in macro reikt te weinig ver om dit deftig aan te passen..

Voorbeeld van wat ik nu heb :




Sub open_folderCRIEL()

ActiveWorkbook.FollowHyperlink "\\NAS1\Data\Productie\Dossiers\Sheets(1).Range("O7").Value" _
NewWindow:=True

End Sub

Ergens is er een bug .... ? Mijnn aam staat in 07. Mijn map is de map dossiers.

Mvg

 

[Niels28]

werkt het zo wel?

Sub open_folderCRIEL()

ActiveWorkbook.FollowHyperlink Address:="\\NAS1\Data\Productie\Dossiers\" & Sheets(1).Range("O7").Value, _
NewWindow:=True

End Sub

Niels

 

[Ameliasiemens45]

Probleem is dat hij de map probeert te viden via Internet Explorer. Heel bizar !

 

[Niels28]

Dat is ook de bedoeling
Wat is het probleem dan?

Niels

 

[Ameliasiemens45]

Dat hij het pad niet vind...

Dit is de directe link naar mijn map :

" X:\Productie\Dossiers\2012 "
Naam van de map die hij daar moet vinden : Criel (wat overenkomt met O7 op mijn pagina) .

Enig idee wat er mis kan gegaan zijn?

 

[Niels28]

open internetexplorer en plak onderstaande in de adressbalk en geef enter

\\NAS1\Data\Productie\Dossiers


wat gebeurt er nu?

Niels

PS moet het woord data en nu wel of niet instaan?
en die 2012 waar komt die in een keer vandaan?

 

[Ameliasiemens45]

Dit is mijn pad dat ik nodigheb wanneer ik I.e open :

file://///NAS1/Data/Productie/Dossiers/2012/

(daarnet in link 2012 niet vermeld, maar stond wel in mijn link, sorry)

 

[Niels28]

Zo zou het dan moeten zijn,

Sub open_folderCRIEL()

ActiveWorkbook.FollowHyperlink Address:="\\NAS1\Data\Productie\Dossiers\2012\" & Sheets(1).Range("O7").Value, _
NewWindow:=True

End Sub

Als het nog niet werkt
-controleer dan eerst of de map bestaat.
-ga in de verkenner naar die map en kopieer daar het adres en plak die dan hier.
-Staat cel O7 op tabblad 1 , vervang de 1 anders door de naam van het tabblad tussen ""

Niels

 

[Ameliasiemens45]

Vriendelijk bedankt voor alle moeite, maar werkt nog steeds niet.

Heb naam van blad veranderd (naam : T)
Heb ook cel gecontroleerd .

Daarnaast mijn link :

Via de verkenner, is dit volgende : X:\Productie\Dossiers\2012

X is de nas1 SCHIJF( data )

Sorry voor alle moeite !!

 

[Niels28]

wat is de tabblad naam precies.

Niels

 

[Ameliasiemens45]

Heb drie sheets : A, C en T Het is T

 

[Niels28]

Sub open_folderCRIEL()

ActiveWorkbook.FollowHyperlink Address:="X:\Productie\Dossiers\2012" & Sheets("T").Range("O7").Value, _
NewWindow:=True

End Sub

Niels

 

[Ameliasiemens45]

Lukt niet Volgens mij ligt het misschien aan het feit dat het een externe schijf is.

 

[Niels28]

Met de verkenner kun je er toch ook komen dus zo moet het ook kunnen,
ga in de verkenner eens naar de map Criel kopieer het adres boven uit de balk en plak die eens tussen "" na Address:=
wat gebeurt er dan?

Niels

 

[edmoor]

Sheets("T").Range("O7").Value bevat de naam van een map?
Zo'n map kan gewoon met Explorer worden geopend, niet met Internet Explorer.
Maak er eens dit van:

Shell "Explorer.exe /n,/e," & "X:\Productie\Dossiers\2012\" & Sheets("T").Range("O7").Value, vbNormalFocus

 

[Ameliasiemens45]

Krijg nu enkel maar

Invalid outside procedure...

 

[edmoor]

Het moet uiteraard wel tussen de Sub en End Sub worden geplaatst.

 

[Ameliasiemens45]

Gelukt

Super bedankt !