Microsoft 365 Liste fichiers d'un répertoire (la requête de Sylvanu)

Bonjour à tous,
La requête développée par Sylvanu (ci-dessous) fonctionne très bien.
Seulement si je l'applique sur le répertoire D:\Téléchargements , ça ne fonctionne pas
Je sais que ce répertoire répond à des règles d'alimentation spécifiques. Il faut sans doute retrouver le chemin d'origine.

Merci de votre collaboration

Marc


La requête est la suivante :

Sub FichierLePlusRecent()
Dim Rep As String, Fichier As String, i As Integer, Liste(1000), DateFile(1000), DateFichier, Indice As Integer
[D6] = ""
[D7] = ""
On Error GoTo Fin
i = 0
Rep = [Directory]
If Right(Rep, 1) <> "\" Then Rep = Rep & "\" ' Le nom doit se terminer par \
Fichier = Dir(Rep)
Do While Fichier <> ""
i = i + 1
Liste(i) = Fichier
DateFile(i) = FileDateTime(Rep & Fichier) ' Enregistre la date de création du fichier ( en type date )
Fichier = Dir
Loop
DateFichier = 0
For i = 1 To UBound(DateFile)
If DateFile(i) > DateFichier Then
DateFichier = DateFile(i)
Indice = i
End If
Next i
[D6] = Liste(Indice)
[D7] = DateFile(Indice)
Fin:
End Sub