Rebonjour, Je cherche a selectionner, aller dans le sous dossier le plus recent, c'est a dire finalement le dernier. Dans ma feuille le range nommé "Link_Folder" est un lien vers ce folder , puis dans ce folder , j'ai des folder yyyymmdd qui contiennent des workbooks. Mon idee est donc d'y aller de selectionner le nombre( ca c'est bon) et puis le le nom pour ensuite y aller (ca je saurais y aller) mais la mon code me sort une erreur aparement le nom c'est pas possible ..
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Sub test1234() 'lien fixe Dim NbF As Integer Dim Nom As String Dim Folder As Folder Dim folderPath As New Scripting.FileSystemObject NbF = folderPath.GetFolder(ThisWorkbook.Worksheets("DB").Range("Link_Folder")).SubFolders.Count Nom = folderPath.GetFolder(ThisWorkbook.Worksheets("DB").Range("Link_Folder")).SubFolders(NbF).Name End Sub
Partager