Macro recherche fichiers
Résolu/Fermé
happy4u
Messages postés
39
Date d'inscription
vendredi 28 octobre 2016
Statut
Membre
Dernière intervention
17 septembre 2017
-
Modifié par happy4u le 19/01/2017 à 15:59
happy4u Messages postés 39 Date d'inscription vendredi 28 octobre 2016 Statut Membre Dernière intervention 17 septembre 2017 - 20 janv. 2017 à 10:13
happy4u Messages postés 39 Date d'inscription vendredi 28 octobre 2016 Statut Membre Dernière intervention 17 septembre 2017 - 20 janv. 2017 à 10:13
A voir également:
- Vba recherche fichier dans dossier et sous dossier
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
- Fichier rar - Guide
- Mettre un mot de passe sur un dossier - Guide
- Dossier appdata - Guide
- Recherche musique - Guide
2 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 762
19 janv. 2017 à 17:56
19 janv. 2017 à 17:56
Bonjour,
Pour trouver le fichier le plus récent :
Pour trouver le fichier le plus récent :
Option Explicit
Sub FichierLePlusRécent()
Dim rep As String 'Répertoire
Dim fic As String 'Fichier
Dim daR As Date 'Date fichier récent
Dim nom As String 'Nom fichier récent
rep = "N:\Projets02\RFC2\B- Groupe CA\DEV\" & _
"Historical_Hypothetical_Stress\"
fic = "Global_Stress_CACIB_REG_*.xls"
daR = 0
nom = ""
fic = Dir(rep & fic)
Do While fic <> ""
If daR < FileDateTime(rep & fic) Then
'mémoriser le nom du fichier le plus récent
daR = FileDateTime(rep & fic)
nom = fic
End If
fic = Dir
Loop
If nom <> "" Then
MsgBox nom
End If
End Sub
Modifié par happy4u le 20/01/2017 à 10:57