Discussion :

[neno69]

Bonjour,

je doit realiser une macro en VBA (excel 2000) et j'ai besoin de compter le nombre de dossiers qui sont dans un autre dossier, mais je ne sais pas du tout comment m'y prendre .

S'il vous plait quelque pour m'aider ???

Merci d'avance pour vos reponse

(PS: je suis le des noobs en VBA)

[tirex28]

Bonsoir,

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
' Affiche les noms dans C:\ représentant des dossiers.
MyPath = "c:\"    ' Définit le chemin d'accès.
MyName = Dir(MyPath, vbDirectory)    ' Extrait la première entrée.
Do While MyName <> ""    ' Commence la boucle.
    ' Ignore le dossier courant et le dossier
    ' contenant le dossier courant.
    If MyName <> "." And MyName <> ".." Then
        ' Utilise une comparaison au niveau du bit pour
        ' vérifier que MyName est un dossier.
        If (GetAttr(MyPath & MyName) _
            And vbDirectory) = vbDirectory Then
            Debug.Print MyName    ' Affiche l'entrée uniquement si elle
        End If    ' représente un dossier.
    End If
    MyName = Dir    ' Extrait l'entrée suivante.
Loop

Cordialement,

Tirex28/

[LeForestier]

Bonjour,
En employant une autre méthode ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function CompterRep(chemin As String) As Integer
'Compte le nombre de sous-répertoires dans le chemin spécifier
'En ajoutant 2 lignes peut retourner tout les Sous/Sous etc.. répertoires
Dim fs, f, sf, nb
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(chemin)
    Set sf = f.SubFolders
    For Each nb In sf
        CompterRep = CompterRep + 1
    Next
End Function

A+

[Nico451]

Si ça peut t'aider

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
28
29
30
31
 
Dim MyName As String
Dim Mypath As String
Dim Tableau() As Variant
Dim k As Integer
Dim l As Integer
k = 0
l = -1
 
' Affiche les noms dans C:\ représentant des dossiers.
Mypath = "c:\"    ' Définit le chemin d'accès.
MyName = Dir(Mypath1, vbDirectory)    ' Extrait la première entrée.
Do While MyName <> ""    ' Commence la boucle.
    ' Ignore le dossier courant et le dossier
    ' contenant le dossier courant.
    If MyName <> "." And MyName <> ".." Then
        ' Utilise une comparaison au niveau du bit pour
        ' vérifier que MyName est un dossier.
        If (GetAttr(Mypath1 & MyName1) _
            And vbDirectory) = vbDirectory Then
            Debug.Print MyName    ' Affiche l'entrée uniquement si ellereprésente un dossier.
            ReDim Preserve Tableau(0 To 5)
            Tableau(k) = Myname
            k = k + 1
            End If
        End If
    End If
    MyName = Dir    ' Extrait l'entrée suivante.
Loop
 
TextBox = k

[patricktoulon]

re
bonjour niko451
n'y aurait il pas quelque chose qui te gene dans cette partie ????

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
If (GetAttr(Mypath1 & MyName1) _
            And vbDirectory) = vbDirectory Then
            Debug.Print MyName    ' Affiche l'entrée uniquement si ellereprésente un dossier.
            ReDim Preserve Tableau(0 To 5)
            Tableau(k) = Myname
            k = k + 1
            End If
        End If

non vraiment pas !!????
et bien souhaitons qu'il n'y ai pas plus de 5 sousdossiers

[Nico451]

Euh oui bien vue.

Merci

Si je modifie bien il faut que je remplace 5 par k