Chercher répertoire en VBA Macro Excel

Chercher répertoire en VBA Macro Excel - VB/VBA/VBS - Programmation

Marsh Posté le 17-11-2008 à 17:36:16    

Bonjour,
 
J'ai trouvé ce code en cherchant sur le forum :
 
 

Code :
  1. Sub ListerLesSsRepEtLeursFichiers() '(Chemin) 'chemin peut être passé en paramètres
  2.     Dim fso, ListR, sRep, ListF, Rep, LesReps, fich, LesFichs
  3.     Set fso = CreateObject("Scripting.FileSystemObject" )
  4.     Chemin = "c:\Program files"
  5.     Set ListR = fso.GetFolder(Chemin)
  6.     Set sRep = ListR.SubFolders
  7.     For Each Rep In sRep
  8.         LesReps = LesReps & Rep.Name
  9.         LesReps = LesReps & vbCrLf
  10.         Set ListF = Rep.Files
  11.         For Each fich In ListF
  12.             LesFichs = LesFichs & fich.Name
  13.             LesFichs = LesFichs & vbCrLf
  14.         Next
  15.         If LesFichs <> "" Then
  16.               MsgBox LesFichs, 0, "Fichiers du répertoire " & Rep.Name
  17.           Else
  18.               MsgBox "Il n'y a pas de fichier dans ce répertoire !", 0, "Répertoire " & Rep.Name
  19.         End If
  20.         LesFichs = ""
  21.     Next
  22.     MsgBox LesReps, 0, "Répertoires du dossier " & Chemin
  23. End Sub


 
Je cherche à l'adapter pour qu'il me remonter l'emplacement de tous les répertoires nommés test dans c:\Program files.
 
Pour le résultat, ce que je souhaiterais, c'est qu'il n'y ai plus de message Box, mais que les répertoires où se situent les répertoires test apparaissent dans la feuille de calcul.
 
Merci d'avance pour votre aide.


Message édité par mattwarend2002 le 17-11-2008 à 17:37:21
Reply

Marsh Posté le 17-11-2008 à 17:36:16   

Reply

Marsh Posté le 20-11-2008 à 12:37:01    

Bonjour
 
Enlever les message box tu devrais t'en sortir quand meme je pense....
 
Ensuite il suffit de tester si le nom contient "Test", si oui tu le mets dans une cellule, ou tu incrementes le numéro de ligne.
 
Deja regarde du coté de la fonctions InStr() ou de la propriété Cells()
 
Si vraiment tu t'en sors pas, je zieuterais. Le but c'est qd meme que tu saches ce que tu fais...
 
Cordialement


---------------
Soyez malin, louez entre voisins !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed