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

CHALET53

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Supporter XLD
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 :
1615215386304.png
 

CHALET53

XLDnaute Barbatruc
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
 

Pièces jointes

  • Capture.JPG
    Capture.JPG
    61.5 KB · Affichages: 9

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 

Discussions similaires

Haut Bas