charger une TreeView au lancement d'une USFRésolu

Question

Bonjour à tous,

J'espère que ma question est bien poser cette fois ci, j'ai un peu de mal à m'expliquer.

Donc j'ai une USF, dessus il y a une TreeView. je voudrais que cette TreeView me charge l'arborescence d'un dossier spécifique situer dans le dossier "Mes documents" ou "Documents" suivant le système d'exploitation (et oui tout le monde n'est pas a minima sous Win7...lol).

Je suis preneur de toute solution, mais il faut que cela reste simple car dans la boutique ou je travail les anciens ont du mal avec les PCs.

Merci a tous pour votre aide

christian
 
--

ucfoutu · Answer

Bonjour,
Au chargement d'un UserForm ? C'est tout ?
Ben ... Il te suffit alors de mettre dans l'évènement Initialize de l'userform le code qui figure dans l'évènement click que je t'ai donné dans ton autre discussion.
Si, bien entendu, la treeview est insérée sur l'userform.

cco86260 · Answer

Bonjour ucfoutu

Effectivement la treeview est dans l'USF, j'ai pris note de ce que tu m'as dis, j'ai également modifié le code suite a ma demande sur mon dernier poste concernant les chemins de dossiers "mes documents", que voici :

Private Sub UserForm_Initialize()    Dim monrep As String, filtre_fichier As String, filtre_dossier As String, quoi As String   monrep = Environ("USERPROFILE\Documents\POINTAGES\") & "\"  ' on définit ici le répertoire à "déployer"   quoi = "DF"  ' quoi = "D"   'quoi = "F"   filtre_fichier = "*.*"   filtre_dossier = "*ra*"      deployons Me, monrep, TreeView1, quoi, filtre_fichier, filtre_dossier        'charge le ComboBox    Listerfeuille    End Sub 
 
Résultat, il m'affiche un "/" dans le TreeView

Je ne comprend pas trop encore, mais je m'y met tout doucement.

Merci
--

ucfoutu · Answer

Environ("USERPROFILE\Documents\POINTAGES\") 
n'a aucun sens et ne peut que retourner ""  !!!
Environ est une fonction de VB et n'admet que des articles d'une "collection" déterminée (par windows) et donc :
- soit l'index de l'un de ces articles
- soit l'id de l'un de ces articles
 Aucun article de cette "collection n'a pour ID : "USERPROFILE\Documents\POINTAGES\"

Bref ===>>> voilà ===>>
monrep = Environ("USERPROFILE") & "\Documents\POINTAGES\" 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

cco86260 · Answer

Bonjour,

Donc ça fonctionne et je pense avoir compris sont fonctionnement. Cependant, j'ai bien le dossier "POINTAGES", son contenu (c'est à dire les pdf), mais je n'ai pas les sous-dossier, et je ne pense pas avoir été une nouvelle fois assez claire là-dessus, j'ai toujours eu du mal à m'expliquer.

Merci 
 
--

ucfoutu · Answer

Wow !
Tu m'épates, là, hein ...
regarde donc ce que tu as mis comme filtre des dossiers !
Je t'avais pourtant (ton autre discussion) dit :
"Et tu mets le filtre que tu veux toi ..."
Tu ne sais que copier/coller ?
Ce n'est pas sérieux !
filtre_dossier = "*ra*"
ne recensera bien évidemment que les spous-dossiers contenant la chaîne "ra" ... et si tu n'en as aucun dans ce cas, dans ton dossier POINTAGES, ma foi ... (HEU ....).
Allez ! si tu les veux tous, mets donc le filtre suivant :
filtre_dossier = "*"
Elle est bien bonne, celle-là !

Charger une TreeView au lancement d'une USF

5 réponses

Votre réponse