Affichage Répertoire Non les fichiers

tototiti2008

XLDnaute Barbatruc

• 12 Décembre 2008

• #2

Re : Affichage Répertoire Non les fichiers

Bonjour Aladin,

justement, je viens de répondre à quelque chose du genre dans le fil là :

https://www.excel-downloads.com/threads/creation-liste-dossier-n-2.109345/

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 12 Décembre 2008

• #3

Re : Affichage Répertoire Non les fichiers

Bonjour,

Une appli commise par mydearfriend et qui m'est très utile.

Scanfichiers scanne le répertoire choisi, puis affiche la liste, sous excel, des fichiers contenus avec tout un tas d'infos intéressantes : taille, date, type... si j'ai compris ta demande.

Mais en fait, ce fichier liste les fichiers, je sais pas pour les répertoires...

Bonne réception.

 

Pièces jointes

• mDFScanFichiersToutType.zip

  20.6 KB · Affichages: 51
• mDFScanFichiersToutType.zip

  20.6 KB · Affichages: 47
• mDFScanFichiersToutType.zip

  20.6 KB · Affichages: 46

Dernière édition: 12 Décembre 2008

Vote positif 0 Vote négatif

A

Aladin

XLDnaute Occasionnel

• 12 Décembre 2008

• #4

Re : Affichage Répertoire Non les fichiers

Bonjour Tototiti2008 et Brigitte et le forum

Tout d' abord merci pour vos réponses, celle de Tototiti2008 me convient
parfaitement, c' s' est ce que je recherchais. Mais Tototiti 008 n' y a t il pas moyen de modifier le code pour mettre une boite de dialogue pour seectionner le répertoire, tout en gardant la sélection des niveaux.

Aladin

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 12 Décembre 2008

• #5

Re : Affichage Répertoire Non les fichiers

Bonjour,

Code:

Sub SousRepRepChoisi()
   With Application.FileDialog(msoFileDialogFolderPicker)
      .InitialFileName = ActiveWorkbook.Path & "\"
      .Show
      If .SelectedItems.Count > 0 Then
        choixDossier = .SelectedItems(1)
      Else
        choixDossier = CurDir()
        [a:a].Clear
      End If
   End With
   Set fs = CreateObject("Scripting.FileSystemObject")
   Set Dossier = fs.getfolder(choixDossier)
   [A1].Select
   For Each d In Dossier.SubFolders
     ActiveCell = d.Name
     ActiveCell.Offset(1, 0).Select
   Next
End Sub

Arborescence des sous-répertoires d'un répertoire:

Code:

Sub arborescenceRepertoire()
  racine = ChoixDossier()     ' ou un répertoire C:\xxx e.g.
  If racine = "" Then Exit Sub
  Range("A:E").Clear
  Range("A3").Select
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set dossier_racine = fs.getfolder(racine)
  Lit_dossier dossier_racine, 1
  Range("A1").Select
End Sub

Sub Lit_dossier(ByRef dossier, ByVal niveau)
   ActiveCell.Value = String(3 * niveau - 1, " ") & dossier.Name
   ActiveCell.Offset(1, 0).Select
   For Each d In dossier.SubFolders
     Lit_dossier d, niveau + 1
   Next
End Sub

Function ChoixDossier()
    If Val(Application.Version) >= 10 Then
       With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = ActiveWorkbook.Path & "\"
        .Show
        If .SelectedItems.Count > 0 Then
           ChoixDossier = .SelectedItems(1)
        Else
           ChoixDossier = ""
        End If
       End With
     Else
       ChoixDossier = InputBox("Répertoire?")
     End If
End Function

JB
Formation Excel VBA JB

 

Pièces jointes

• RepertoireListe.xls

  27.5 KB · Affichages: 67
• arborescenceRepertoireSousRep.xls

  30 KB · Affichages: 89
• arborescenceRepertoireSousRep.xls

  30 KB · Affichages: 91
• arborescenceRepertoireSousRep.xls

  30 KB · Affichages: 77

Dernière édition: 12 Décembre 2008

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 12 Décembre 2008

• #6

Re : Affichage Répertoire Non les fichiers

Re,

Oui c super ce truc. J'ai rajouté ton fichier à celui de mdf, ainsi j'ai toute la panoplie en un seul fichier.

Je suis intéressée par la résolution de la question d'Aladin concernant le bouton pour choisir le répertoire.

Merci à toi.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 12 Décembre 2008

• #7

Re : Affichage Répertoire Non les fichiers

Re,

si, c'est possible. Moi j'ai codé ça en 45 minutes, alors je n'ai pas fait dans le détail. Je pense qui faut fouiller vers les objets Application.FileDialog (msoFileDialogFolderPicker)...
si tu veux plus de détails, reviens, je te ferais un petit code.

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 12 Décembre 2008

• #8

Re : Affichage Répertoire Non les fichiers

Re,

Boisgontier, j'ai ouvert le classeur et je n'ai rien nulle part : bouton où cliquer ?

Normal ?

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 12 Décembre 2008

• #9

Re : Affichage Répertoire Non les fichiers

Bonjour Brigitte, Bonjour Boisgontier,

Ah, là Boisgontier, c'est vrai que c'est beaucoup beaucoup plus simple que mon code avec des Dir... j'essayerais de m'en souvenir, ça pourra m'éviter de galérer 🙂
J'étais quand même content de trouver une solution.

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 12 Décembre 2008

• #10

Re : Affichage Répertoire Non les fichiers

Tototiti, comment fais tu ? moi je n'ai rien à l'écran ....

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 12 Décembre 2008

• #11

Re : Affichage Répertoire Non les fichiers

Re,

Brigitte, pour éxecuter un code qui n'a pas de bouton, tu peux aller dans Menu Outils-Macro-Macro et choisir le nom de la macro à éxecuter.

une proposition avec le code de Boisgontier modifié pour faire une boite de dialogue de choix du dossier et un bouton

 

Pièces jointes

• Classeur1.xls

  23.5 KB · Affichages: 49
• Classeur1.xls

  23.5 KB · Affichages: 57
• Classeur1.xls

  23.5 KB · Affichages: 57

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 12 Décembre 2008

• #12

Re : Affichage Répertoire Non les fichiers

Re,

ah ben je viens de voir que SubFolders ne désigne que les sous-dossiers du niveau d'en-dessous et pas ceux des niveaux inférieurs... dans ce cas, nos deux versions ne font pas la même chose...

 

Vote positif 0 Vote négatif

A

Aladin

XLDnaute Occasionnel

• 12 Décembre 2008

• #13

Re : Affichage Répertoire Non les fichiers

Rebonjour Tototiti2008, Brigitte, Boisgontier et le forum

Merci à tous, mais la proposition de Boisgontier reste au niveau 0 du répertoire, par contre la premiere version de Tototiti2008 donne chois des niveaux. Les choix d' ouverture de fichier son Ok mais ne peut pas inclure apres le choix du dossier, le chox des niveaux inférieur

Aladin

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 12 Décembre 2008

• #14

Re : Affichage Répertoire Non les fichiers

Arborescence des sous-répertoires du répertoire choisi.

JB

 

Pièces jointes

• arborescenceRepertoireSousRep.xls

  30 KB · Affichages: 72
• arborescenceRepertoireSousRep.xls

  30 KB · Affichages: 68
• arborescenceRepertoireSousRep.xls

  30 KB · Affichages: 68

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 12 Décembre 2008

• #15

Re : Affichage Répertoire Non les fichiers

Re,

Voici ma version (elle buggait un peu, j'ai dû la corriger)

 

Pièces jointes

• ScanDossiers.xls

  30.5 KB · Affichages: 58
• ScanDossiers.xls

  30.5 KB · Affichages: 56
• ScanDossiers.xls

  30.5 KB · Affichages: 57

Vote positif 0 Vote négatif