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!