command button naar juiste folder

[wekkanz]

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...

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

 

[edmoor]

Bedoel je dit?

Sub CmdBestand_Click()
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .InitialFileName = "N:\Administratie\Stamdata\Artikelen\Eindartikelen"
        If .Show Then [COLOR="#008000"]'Any file is selected[/COLOR]
            TxtBestand.Value = .SelectedItems.Item(1)
        Else
            TxtBestand.Value = ""
        End If
    End With
End Sub

 

[wekkanz]

Hallo Edmoor,

Dankje wel! dat is precies waar ik naar zocht en mooi overzichtelijk.

 

[edmoor]

Die .AllowMultiSelect = False kan er ook nog uit.
Dat is standaard als het niet wordt opgegeven.

 

[OctaFish]

Als je 'm korter wilt:

Sub CmdBestand_Click()
    With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = "N:\Administratie\Stamdata\Artikelen\Eindartikelen"
        If .Show Then TxtBestand.Value = .SelectedItems.Item(1) Else: TxtBestand.Value = ""
    End With
End Sub

 

[wekkanz]

Dankje wel Edmoor en Octafish!

Ik heb het aangepast, dat werkt idd simpel en goed!
Ben erg blij met jullie hulp! was al ruim een week aan het proberen om zelf de juiste code te schrijven, kwam er niet uit

 

[OctaFish]

Het is beter om het zo te doen:

    With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = "N:\Administratie\Stamdata\Artikelen\Eindartikelen[B][COLOR="#FF0000"]\[/COLOR][/B]"
        If .Show Then TxtBestand.Value = .SelectedItems.Item(1) Else: TxtBestand.Value = ""
    End With

Dus met een backslash op het eind. Anders zie je de mapnaam als bestandsnaam in de lijst. Het lijkt mij beter om het veld Bestandsnaam leeg te houden.

 

[wekkanz]

Top super bedankt!