Bonsoir,
j'ai un répertoire remplie de Datas sous
et voudrais adaptés ce début de code que voici qui fonctionne sous le Lecteur physique F: de mon Pc.
Par avance Merci d'apporter votre support à ma requête
Bien cordialement
GDS
Sub Fichierecent()
Dim Fso As Object
Dim F As String
Dim Fich As Object
Dim Ladate As Date
Dim Lenom As String
Dim Msg, Style, Title, Response
Set Fso = CreateObject("scripting.filesystemobject")
F = Dir("F:\Done ST sauvegarde\Act-Preal PCA" & "\" & "*.CSV")
While F <> ""
Set Fich = Fso.GetFile("F:\Done ST sauvegarde\Act-Preal PCA" & "\" & F)
If Lenom = "" Then
Ladate = Fich.DateCreated
Lenom = F
Else