Discussion :

[sylvain64]

Bonjour,

Je voudrais insérer un objet dans un userform qui me permette via une arborescence (ou explorateur) d'aller chercher un dossier quelconque sur mon PC.
Sur une ancienne version j'utilisais un ActiveX nommé FOLDERVIEW mais aujourd'hui j'ai Excel 2010 sur Windows 8 et je ne trouve pas d'équivalent.
Peux être le TREEVIEW serait adapté mais je bloque sur le paramétrage.
Si quelqu'un à la solution je suis preneur,

Bonne journée.

[Daniel.C]

Bonjour,

Pour de la doc sur le treeview :
http://jacma.developpez.com/treeview/

[kiki29]

Salut, voir ici et là.

[sylvain64]

Merci pour votre aide.
J'ai lu le praticiel sur le trewiew et sauf erreur de ma part, il ne permet pas de jouer le rôle d'explorateur.
Je ne veux pas créer une arborescence mais l'utiliser pour sélectionner des fichiers sur mon ordi.

[Daniel.C]

Utilise GetOpenFileName, même si ce n'est pas pour ouvrir les fichiers.

[kiki29]

Salut, il y aurait peut-être : Liste des fichiers d'un dossier + Liens, mais à modifier et à adapter à ton contexte ?

[sylvain64]

Utilise GetOpenFileName, même si ce n'est pas pour ouvrir les fichiers.

Merci Daniel pour ton aide.
En effet je pense que c'est la solution d'après l'intitulé "GetOpenFileName".
Par contre je n'arrive pas a le mettre en pratique.
De quoi s'agit-il ? D'une procédure ? D'une variable à déclarer ? D'une propriété de l'objet à modifier ?
Peux tu m'en dire plus si tu as la solution ?
Pour le moment j'ai intégré l'objet TREWVIEW dans mon userform et suis bloqué sur cette chose simple je pense : faire apparaitre une arborescence tel un explorateur afin que je puisse cliquer sur le fichier voulu pour ensuite récupérer le chemin d'accés et l'ouvrir chose que j'arrivais à faire avec l'objet FOLDERVIEW :

Sheets("données").Cells(i, 81) = menu.FolderView1.SelectedNode.Path
chemin = Cells(i, 81).Text
Workbooks.Open Filename:=chemin


Cordialement,

[Daniel.C]

C'est une méthode qui affiche une boîte de dialogue te permettant de choisir un ou plusieurs fichiers et de récupérer leur(s) nom(s). Regarde ici :

http://excel.developpez.com/faq/?pag...etOpenFileName

[sylvain64]

Bonsoir Daniel,

J'ai bien reçu ton message. La solution que tu m'as apporté n'est pas celle que je recherchais mais convient tout à fait pour résoudre mon problème et je t'en remercie, c'est super, ça fonctionne très bien !
Merci pour ton aide.

[sylvain64]

C'est une méthode qui affiche une boîte de dialogue te permettant de choisir un ou plusieurs fichiers et de récupérer leur(s) nom(s). Regarde ici :

http://excel.developpez.com/faq/?pag...etOpenFileName

Daniel,
Je reviens vers toi car je pensais avoir résolu mon problème mais il me reste encore un détail à régler;
J'aimerais maintenant extraire seulement le nom du fichier sélectionné;

exemple:
Tu m'a donné la solution pour extraire du fichier sélectionné ça :
D:\Sylvain\Présentation\Stage\Rapport de stage.doc

J'aimerais maintenant,en sélectionnant un fichier, obtenir ça :
Rapport de stage.doc

Connais tu la solution?

[Daniel.C]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim Fichier As String
Fichier = Dir("D:\Sylvain\Présentation\Stage\Rapport de stage.doc")

[sylvain64]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim Fichier As String
Fichier = Dir("D:\Sylvain\Présentation\Stage\Rapport de stage.doc")

Daniel,
Encore une fois tu as trouvé la solution à mon problème !
Merci beaucoup pour ton aide qui m'a été précieuse ...
A très vite j'espère en souhaitant que la prochaine fois c'est moi qui puisse t'aider !
A+