ce petit bout de programme que j'ai modifie avec du code a gauche a droite ne fonctionne pas !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Sub BrowseFiles(Path As String) Filename = Dir(Path, vbDirectory) Do While Filename <> "" If Filename <> "." And Filename <> ".." Then rep = (GetAttr(Path & Filename) And vbDirectory) = vbDirectory If rep Then BrowseFiles (Path & Filename & "\") Else Debug.Print Path & " " & Filename End If End If Filename = Dir ' Extrait l'entrée suivante. Loop End Sub
je soupsone qu'on ne puisse pas faire du recursif en VBA ?
Partager