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

[CHALET53]

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

 

[sylvanu]

Bonjour Chalet,
Sur mon PC le dossier téléchargement est en : g:\Users\PC_PAPA\Downloads\
Donc chez vous, vous allez dans le disque D: puis propriétés et dans l'onglet Emplacement vous avez la valeur :

 

[CHALET53]

Bonjour Sylvanu
Ci-joint capture d'écran
L'emplacemement est directement dans le répertoire D
Je ne comprends pas pourquoi, dans ce cas, ta macro ne fonctionne pas. Elle fonctionne parfaitement sur les autres répertoires
Merci

 

[sylvanu]

Oui mais regardez mon image.
Dans l'explorateur ça s'appelle Téléchargement, mais dans l'emplacement c'est Download.
Remplacez Téléchargement par Download. Je pense que les noms sont en anglais puis juste traduits pour présentation.
Par contre je ne comprends pas pourquoi il donne ce nom en français sur votre PC.

 

[sylvanu]

Dans mon Explorer lorsque je vais dans G:/Utilisateurs/PC_PAPA/Téléchargement l'adresse est la suivante :

Si je clique sur cette adresse elle devient :

qui est l'adresse réelle du dossier.

 

[CHALET53]

Re,
J'ai trouvé :
Le nom visible du répertoire dans l'explorateur est :Téléchargements
Le nom de l'emplacement est : Téléchargement (sans s)

Encore Merci