IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

[VBa-E] TreeView comme Windows Explorer?


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Mai 2006
    Messages
    151
    Détails du profil
    Informations forums :
    Inscription : Mai 2006
    Messages : 151
    Par défaut [VBa-E] TreeView comme Windows Explorer?
    Salut à tous et à tous et à tous et à toutes!
    Pour avoir une combobox qui resemble à celle de windows explorer, Il faut utiliser "treeview"?
    Mais comment puis-je avoir les images des dossiers devant chaque dossiers?
    et Comment rentre ton les noms des dossiers de mes documents?

    Merci

  2. #2
    Expert confirmé

    Homme Profil pro
    Inscrit en
    Août 2005
    Messages
    3 317
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2005
    Messages : 3 317
    Par défaut
    bonjour

    pour ta 1ere question , ci joint un exemple testé avec Excel 97 & 2002
    il faut ajouter un Imagelist en plus du treeView, pour stocker les images

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    Private Sub UserForm_Initialize()
    Dim k As Byte, j As Byte
    Dim Img1 As String, Img2 As String
     
    Me.ImageList1.ListImages.Clear
     
    Img1 = ThisWorkbook.Path & "\imageDossierferme.bmp"
    Img2 = ThisWorkbook.Path & "\imageDossierOuvert.jpg"
     
    Me.ImageList1.ListImages.Add 1, "Image1", LoadPicture(Img1)
    Me.ImageList1.ListImages.Add 2, "Image2", LoadPicture(Img2)
     
    Set Me.TreeView1.ImageList = Me.ImageList1
     
    For k = 1 To 5
        TreeView1.Nodes.Add , , "maClé1" & k, "ParentNode" & k, "Image1", "Image2"
     
    Next
     
    For j = 1 To 5
        For k = TreeView1.Nodes.Count To TreeView1.Nodes.Count + 2
            TreeView1.Nodes.Add "maClé1" & j, tvwChild, "maClé2" & Str(k), _
            "ChildNode" & k, "Image1", "Image2"
        Next
    Next
     
    End Sub


    pour ta 2eme question , tu peux essayer le classeur en piece jointe.
    (cet exemple ne prend pas en compte ta 1ere question au sujet des images des dossiers)

    Il te restera à adapter le chemin à explorer avant de lancer la macro
    ( Chemin = "C:\Documents and Settings\michel\dossier\general" )

    Evite de faire des tests pour des répertoires et sous repertoires trop volumineux ( au dessus de 300 sous repertoires , le temps d'affichage de l'arborescence peut prendre beaucoup de temps )

    le double clic dans la ListView permet l'ouverture du fichier sélectionné ( je n'ai pas pris en compte tous les types de fichier) si besoin , remplace FollowHyperlink par la fonction ShellExecute


    bon apres midi
    michel
    Fichiers attachés Fichiers attachés

  3. #3
    Membre confirmé
    Inscrit en
    Mai 2006
    Messages
    151
    Détails du profil
    Informations forums :
    Inscription : Mai 2006
    Messages : 151
    Par défaut
    je te remerci beaucoup!!

    merci !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 10
    Dernier message: 12/02/2013, 11h27
  2. Réponses: 3
    Dernier message: 23/03/2008, 14h54
  3. Treeview: drag'n'drop à la windows explorer
    Par Gaadek dans le forum Delphi
    Réponses: 2
    Dernier message: 15/06/2006, 11h22
  4. [VBA-E] une instruction Windows(fichierxls).Activate incomprise
    Par boutts dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 05/05/2006, 16h05
  5. [Système] Ouvrir un repertoire sous windows explorer
    Par maxxou dans le forum Général Java
    Réponses: 6
    Dernier message: 18/01/2006, 22h01

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo