Userform - Exploreur

G

GG

Guest
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

XLDnaute Barbatruc
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
 
G

GG

Guest
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

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
11
Affichages
286

Statistiques des forums

Discussions
312 435
Messages
2 088 396
Membres
103 838
dernier inscrit
noureddine