Bonjour tout le monde,

Je cherche à faire une macro pour excel en vb qui me permettrait d'afficher l'arborescence d'un répertoire. Mon code est le suivant :

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
32
33
34
 
Sub tree()
d = "C:\"
Cells(1, 1) = "Filenames"
r = 2
c = 1
Call List(r, c, d)
End Sub
 
Sub List(r, c, d)
 
 f = Dir(d, vbDirectory)
 
 Do While f <> ""
 
  If f <> "." And f <> ".." Then
 
  Cells(r, c) = f
 
   If (GetAttr(d & f) And vbDirectory) = vbDirectory Then
 
    Call List(r, c + 1, d & f & "\")
 
  End If
 
  r = r + 1
 
  End If
 
    f = Dir
 
 Loop
 
End Sub
Je débute et donc je ne vois pas d'où peut venir l'erreur

Merci pour votre aide