Bouton pour récupérer le lien vers un dossier et non un fichier

Bonjour,

J'ai un UserForm, qui contient un bouton commande qui permet à l'utilisateur de choisir un fichier et ensuite stocker le lien vers ce fichier dans une cellule.

Mai, je veux au lieu que l'utilisateur choisi un fichier, choisi un dossier.

Qqn a une idée des modifs que je devrais faire sur mon code actuel?

Sub LiensContrat_Click()
Dim Fichier$
Fichier = Application.GetOpenFilename()
Sheets("Feuil1").Hyperlinks.Add Anchor:=Range("AK" & DLigneClientGagnee), Address:=Fichier, TextToDisplay:=Fichier
End Sub

Merci d'avance:)

Bonjour,

Voici un essai :

Sub LiensContrat_Click()
Dim Fichier$
with application.filedialog(msofiledialogfolderpicker)
    if .show then
        Fichier = .selecteditems(1)
        Sheets("Feuil1").Hyperlinks.Add Anchor:=Range("AK" & DLigneClientGagnee), Address:=Fichier, TextToDisplay:=Fichier
    end if
end with
End Sub

Cdlt,

Bonjour,

Merci bcoup ça marche, par contre, j'ai un autre problème, est ce que avec cette procédure, je peux m'accéder à un réseau local (réseau de partage) ?

Bonsoir,

Je dirais que oui si vous êtes branché au réseau... Après, il n'est pas rare, pour raison de sécurité, de se voir refuser certains accès, faute d'autorisation...

Le meilleur moyen de le savoir est d'essayer.

Cdlt,