Userform - Exploreur

[GG]

Bonjours à tous.
Quelqu'un saurait-il comment créer dans un userform une arboresence type Exploreur pour gérer les dossiers et fichiers.
Je ne le trouve pas dans les contôles supplémentaires de la boite à outils.
Merci de votre aide.

 

[MichelXld]

bonjour

quels types de manipulations souhaites tu faire dans les repertoires et sur les fichiers ?


ci joint quelques exemples pour ouvrir l'explorateur Windows


Sub repertoireExplorateur1()
Shell 'c:\\\\\\\\windows\\\\\\\\explorer.exe C:\\\\\\\\Documents and Settings\\\\\\\\excel', vbMaximizedFocus ' adapter le chemin
End Sub


Sub Test()
ThisWorkbook.FollowHyperlink 'C:\\\\\\\\Documents and Settings\\\\\\\\michel\\\\\\\\dossier'
End Sub


Sub repertoireExplorateur2()
Dim IE As Object
Set IE = createObject('internetExplorer.Application')
IE.Navigate 'C:\\\\\\\\Documents and Settings\\\\\\\\excel' ' adapter le chemin
IE.Visible = True
End Sub


Sub ouvrirExplorateurWindows()
'necessite d'activer reference Microsoft Shell Controls and Automation
Dim objShell As Shell
Set objShell = New Shell
objShell.Explore ('C:\\\\\\\\Documents and Settings\\michel\\\\\\\\dossier\\\\\\\\general\\\\\\\\excel')
End Sub



bonne journée
MichelXld

 

[GG]

Merci pour la réponse,mais en fait je me suis mal exprimé. Je veux créer une arborescence type
exploreur en 'Treewiew' avec possibilité de developper les branches avec les + et - et quand
certaines cases seront cochées elles devront simplement renvoyer une valeur 1 ou 0.
Cet en fait pour une sélection et pas pour ouvrir l'explorateur de Microsoft.
Cette méthode permet soit de selectionner
une famille d'éléments (branches fermées )ou des éléments de la famille en developpant les branches.
Merci pour tes infos.

 

[MichelXld]

rebonjour

tu trouveras quelques exemples dans ce lien

Lien supprimé

pour affcher les Checkbox dans le Treeview , il suffira d'ajouter

TreeView1.CheckBoxes = True

Ensuite , un exemple pour boucler sur les élements qui ont été cochés dans le treeview :

Private Sub CommandButton3_Click()
Dim NodX As Node
For Each NodX In TreeView1.Nodes
If NodX.Checked = True Then MsgBox NodX.Text
Next
End Sub


bonne journée
MichelXld

Message édité par: michelxld, à: 21/12/2005 11:06

 

[GG]

Grand merci Michel,je vais essayer.