Recherche dossier avec

Bonjour, j'ai créé un programme dans le quelle je veux copier des fichiers dans des répertoires (il ne s'agit pas de fichier excel). Mon problème est que les noms des dossiers changent pour chaque fichier. Je dois trouver le répertoire en fonction du nom du fichier. Donc, si le fichier est : pomme_2014_mcintoch, je dois trouver le répertoire mcintoch

Ex: c:\test\fruit\pomme\pomme_verte\

c:\test\fruit\pomme\pomme_rouge\paulared

c:\test\fruit\pomme\pomme_rouge\mcintoch

c:\test\fruit\pomme\pomme_jaune\

ma question est: sur dos, j'écrirais: dir pomme* et j'aurais comme résultat, tout les répertoires qui contiennent le mot pomme. Comment on remplace "*" en vba pour obtenir la même réponse? Je ne sais pas si c'est possible mais peut-être que quelqu'un peut m'éclairer ou m'envoyer sur une piste.

merci de votre aide.

Bonjour infodes

La commande existe en VBA

Sub test()
  Dim sPath As String
  sPath = Dir(ThisWorkbook.Path & "\*mcintoch*", vbDirectory)
End Sub

Mais attention, elle ne traite pas les sous-dossiers

A+

Merci BrunoM45, ça répond à mon questionnement et ça fonctionne très bien. Pour les sous-répertoires, je vais m'arranger facilement.

merci!

Rechercher des sujets similaires à "recherche dossier"