Ouvrir fichier dont nom comporte date de la dernière modif.
Fermé
keef
-
20 juin 2014 à 15:21
via55 Messages postés 14477 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 3 octobre 2024 - 21 juin 2014 à 23:02
via55 Messages postés 14477 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 3 octobre 2024 - 21 juin 2014 à 23:02
A voir également:
- Ouvrir fichier dont nom comporte date de la dernière modif.
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir fichier .bin - Guide
- Fichier rar - Guide
- Ouvrir un fichier .dat - Guide
- Comment ouvrir un fichier docx ? - Guide
1 réponse
via55
Messages postés
14477
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
3 octobre 2024
2 730
Modifié par via55 le 21/06/2014 à 23:03
Modifié par via55 le 21/06/2014 à 23:03
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
