Ouvrir fichier dont nom comporte date de la dernière modif.
keef
-
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14512 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.
A voir également:
- Ouvrir fichier dont nom comporte date de la dernière modif.
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir fichier .bin - Guide
- Ouvrir fichier .dat - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier docx ? - Guide
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
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