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

  • Initiateur de la discussion Initiateur de la discussion CHALET53
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
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: 29
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
1 K
Réponses
7
Affichages
842
Retour