Heb een klein dingetje waar ik niet goed uit kom, om van een bestandsnaam een hyper link te maken naar een bestand, heb ik een userform met daar in een mogelijkheid een bestand te selecteren.
momenteel moet ik elke keer dat ik dat doe naar de juiste map toe navigeren voordat ik het betreffende bestand kan selecteren, afgelopen weken probeer ik een oplossing te vinden om direct de de juiste map direct te navigeren echter kom ik daar niet goed uit.
Kan iemand eens even mee kijken en mij even helpen? Onderstaande mij code mijn bedoeling is om direct naar de folder van mypath te gaan na het aanklikken van commandbutton. Maar dat gebeurd nu niet, ik zie niet wat ik verkeerd doe...
momenteel moet ik elke keer dat ik dat doe naar de juiste map toe navigeren voordat ik het betreffende bestand kan selecteren, afgelopen weken probeer ik een oplossing te vinden om direct de de juiste map direct te navigeren echter kom ik daar niet goed uit.
Kan iemand eens even mee kijken en mij even helpen? Onderstaande mij code mijn bedoeling is om direct naar de folder van mypath te gaan na het aanklikken van commandbutton. Maar dat gebeurd nu niet, ik zie niet wat ik verkeerd doe...
Code:
Sub CmdBestand_Click()
On Error GoTo err
Dim fileExplorer As FileDialog
Set fileExplorer = Application.FileDialog(msoFileDialogFilePicker)
myPath = "N:\Administratie\Stamdata\Artikelen\Eindartikelen"
fileExplorer.AllowMultiSelect = False
With fileExplorer
If .Show = -1 Then 'Any file is selected
TxtBestand.Value = .SelectedItems.Item(1)
Else
TxtBestand.Value = ""
End If
End With
err:
Exit Sub
End Sub