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 rechercher un fichier dans un 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
- Fichier host - Guide
- Comment ouvrir un fichier apk ? - Guide
2 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 janvier 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