Précédent   Forum du club des développeurs et IT Pro > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse
 
Outils de la discussion
Publicité
'
Vieux 16/12/2010, 14h24   #1
cemyr
Candidat au titre de Membre du Club
 
Inscription : décembre 2010
Messages : 37
Détails du profil
Informations forums :
Inscription : décembre 2010
Messages : 37
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 ?
cemyr est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 16/12/2010, 15h32   #2
cemyr
Candidat au titre de Membre du Club
 
Inscription : décembre 2010
Messages : 37
Détails du profil
Informations forums :
Inscription : décembre 2010
Messages : 37
Points : 10
Points : 10
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)
cemyr est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 16/12/2010, 15h39   #3
wilfried_42
Membre Expert
 
Avatar de wilfried_42
 
Homme Wilfried
Auto-entrepreneur
Inscription : novembre 2006
Messages : 1 428
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 428
Points : 1 930
Points : 1 930
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
wilfried_42 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Cette discussion est résolue.
Outils de la discussion

Navigation rapide


Fuseau horaire GMT +2. Il est actuellement 17h04.


 
 
 
 
Partenaires

Hébergement Web