Affichage chemin d'un fichier dans une liste

[3idm]

Bonjour à tous,

Je suis de retour sur le forum pour vous soumettre un petit problème que je rencontre. J'ai balayer de long en large les discusions, mais je ne trouve pas mon bonheur, mais presque.......

Voilà :

J'ai récupéré un code sur le forum pour réaliser une application. Je vous joint l'exemple qui utilise getdirectory.
Mon probléme c'est que lorsque je clic sur le bouton, la fenêtre m'indiquant de choisir un fichier pointe toujours au même endroit, je ne sais pas où changer la directory dans la macro.

En faite, je veut rentrer un chemin en cellule par A10 exemple (exemple C:\Users\TOTO\Documents\) et lorsque je clic sur le bouton, la fenêtre de recherche s'ouvre en pointant déjà dans le répertoire Documents. Cela afin d'éviter les manipulations laborieuses .

Par avance, je vous remercie de votre attention, les idées sont les bienvenues

 

[Lone-wolf]

Re : Affichage chemin d'un fichier dans une liste

Bonjour 3idm

Un essai avec ceci

Option Explicit

Sub Test()
Dim strPath As String
GetFolder (strPath)
End Sub

Function GetFolder(strPath As String) As String
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
strPath = Feuil1.Range("a10")
With fldr
.Title = "Sélectionnez un dossier"
.AllowMultiSelect = False
.InitialFileName = strPath
If .Show <> -1 Then GoTo NextCode
sItem = .SelectedItems(1)
End With
NextCode:
GetFolder = sItem
Set fldr = Nothing
End Function

 

[3idm]

Re : Affichage chemin d'un fichier dans une liste

Bonjour Lone-wolf,

Merci de ton intérêt ainsi que de ton code.

ça fonctionne en parti, car j'arrive à pointer sur la directory désirée, mais je ne vois pas les fichier qui se trouvent dans le répertoire qui est pointé.

J'ai besoin au final de voir les fichiers qui se trouvent dans le repertoire pointé, et quand je selectionne l'un d'entre eux, le chemin de celui-ci doit se noter en A1.
En faite je souhaite avoir la même fonction que dans l'exemple que j'ai mis en PJ, mais à la différence de pouvoir choisir le chemin de recherche plus automatisé.

Merci bien

 

[Lone-wolf]

Re : Affichage chemin d'un fichier dans une liste

Bonjour 3idm

Dans ce cas regarde dans les liens en bas de page, si tu trouve quelque chose.

 

[Lone-wolf]

Re : Affichage chemin d'un fichier dans une liste

Bonjour 3idm

Regarde ICI, si c'est ce que tu veux.

 

[3idm]

Re : Affichage chemin d'un fichier dans une liste

Bonjour Lone-wolf

Merci encore, j'ai trouvé ce que je souhaitai dans ton lien.
Super !
Bonne continuation a toi.