Ouvrir fichier dont nom comporte date de la dernière modif.
keef
-
via55 Messages postés 14395 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14395 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'aimerais pouvoir créer une macro pour ouvrir un fichier excel dont le nom comporte la dernière date de modification :
Ex. : 2014-06-20 Tableau de bord
Le problème est que la date change souvent.
j'aimerais pouvoir créer une macro pour ouvrir un fichier excel dont le nom comporte la dernière date de modification :
Ex. : 2014-06-20 Tableau de bord
Le problème est que la date change souvent.
1 réponse
-
Bonsoir
Macro qui recherche sur les 30 jours précédents aujourd'hui un fichier avec le nom correspondant . A adapter en mettant le nom complet du chemin à la place de D:\EXCEL\
Sub dernier()
For n = 1 To 30
D = Date - n
j = Day(D)
If Len(j) = 1 Then j = "0" & j
m = Month(D)
If Len(m) = 1 Then m = "0" & m
y = Year(D)
nom = y & "-" & m & "-" & j & " Tableau de bord.xls" 'modifier l'extension si nécessaire
f = Dir("D:\EXCEL\" & nom) ' à adapter
If f <> "" Then Exit For
Next
If f <> "" Then Workbooks.Open Filename:="D:\EXCEL\" & nom 'à adapter
Else msgbox("Fichier non trouvé")
End Sub
Cdlmnt
"L'imagination est plus importante que le savoir." A. Einstein
