Bonjour à tous,
je rencontre un petite difficulté à trouver sous VBA (sous forme de function) le chemin de l'avant dernier dossier créé, parmi une liste de dossier, eux même se trouvant dans un dossier.
J'ai réussi à trouver (sur internet ) un bout de code qui me permet de trouver le dernier dossier créé dans un dossier mais comme les variables enregistrent du texte je ne peux pas faire des calculs avec pour déterminer l'avant dernier...
Vous trouverez ci-dessus la fonction. Si vous disposez d'une meilleure approche ou d'un moyen d'obtenir une fonction qui renvoie le chemin de l'avant dernier dossier créé dans un dossier je suis preneur
Je vous remercie d'avance pour votre aide
Function GetLastFolder(Path As String)
Dim FSO, FS, F, DtLast As Date, Result As String
Set FSO = CreateObject("scripting.FileSystemObject")
Set FS = FSO.GetFolder(Path).subfolders
For Each F In FS
If F.DateLastModified > DtLast Then
DtLast = F.DateLastModified
Result = F.Name
End If
Next
GetLastFolder = Result
End Function