XL 2016 trouver le dernier sous-dossier d'un dossier avec VBA

koblicandy

XLDnaute Nouveau
Bonjour à vous,

Je viens vers vous pour vous demander si vous avez une idée de comment atteindre le dernier sous dossier d'un dossier avec VBA.

J'ai essayé de chercher sur tous les forums mais je ne trouve rien.

Je recherche ce code afin que chaque fois qu'un sous dossier est créé, il soit utilisé par la macro que je suis en train de faire.

Je ne sais vraiment pas comment faire. si vous pouvez m'aider ca sera vaiment cool.

Merci d'avance
 

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour Koblicandy, bonjour le forum,

Ce code pourra t'aider :

VB:
Sub Macro3()
Dim FS As Object
Dim DS As Object
Dim SD As Object
Dim E As Object
Dim N As String
Dim D As Date
Dim DM As Date
Dim DF As String

Set FS = CreateObject("Scripting.FileSystemObject")
Set DS = FS.GetFolder("C:\Blablabla") 'à adapter ici tu mets le chemin completdu dossier source
Set SD = DS.SubFolders
For Each E In SD
    N = E.Name
    D = Format(E.datecreated, "dd/mm/yyyy")
    If D > DM Then DM = D: DF = N
Next E
MsgBox "Le dernier dossier créé est : " & DF & ", créé le " & DM 'à remplacer par le code qui utilisera DF
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 724
Messages
2 081 936
Membres
101 844
dernier inscrit
pktla