Soutenez-nous
Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 3 sur 3
  1. #1
    Candidat au titre de Membre du Club
    Inscrit en
    décembre 2010
    Messages
    38
    Détails du profil
    Informations forums :
    Inscription : décembre 2010
    Messages : 38
    Points : 10
    Points
    10

    Par défaut Parcourir tous les sous repertoire

    Bonjour,

    Existe t-il un "truc" simple tel que
    Code :
    1
    2
    3
    4
     
    For Each sous-rep In Monrep
        '...Mes choses à faire
    Next rep
    Pour réaliser un traitement sur l'ensemble des sous répertoires d'un dossier ?

  2. #2
    Candidat au titre de Membre du Club
    Inscrit en
    décembre 2010
    Messages
    38
    Détails du profil
    Informations forums :
    Inscription : décembre 2010
    Messages : 38
    Points : 10
    Points
    10

    Par défaut

    je répond à ma propre question :

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
     
     
    Dim Rep As Scripting.Folder, SousRep As Scripting.Folder
     
    Sub Mafonction()
     
    For Each SousRep In Rep.SubFolders
    For Each Fich In SousRep.Files
    Ca fonctionne très bien (vu que je n'ai qu'un seul niveau de sous rep)

  3. #3
    Membre Expert Avatar de wilfried_42
    Homme Profil pro Wilfried
    Auto-entrepreneur
    Inscrit en
    novembre 2006
    Messages
    1 427
    Détails du profil
    Informations personnelles :
    Nom : Homme Wilfried
    Âge : 51
    Localisation : France, Vendée (Pays de la Loire)

    Informations professionnelles :
    Activité : Auto-entrepreneur
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : novembre 2006
    Messages : 1 427
    Points : 1 702
    Points
    1 702

    Par défaut

    Bonjour

    voici un bout de code
    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Sub lst_rep(chemin As String)
        Dim FSO As Object, SourceFolder As Object, SubFolder As Object
        Dim i1 As Integer, i2 As Integer, i3 As Integer
        Set FSO = CreateObject("Scripting.FileSystemObject")
        Set SourceFolder = FSO.GetFolder(chemin)
        i1 = 0
        For Each SubFolder In SourceFolder.SubFolders
            i1 = i1 + 1
            Sheets("Feuil1").Cells(i1, 1) = SubFolder.Name
        Next SubFolder
    End Sub
    cordialement
    Wilfried

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

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •