Ouvrir fichier dont nom comporte date de la dernière modif.
Fermé
keef
-
20 juin 2014 à 15:21
via55 Messages postés 14509 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 2 janvier 2025 - 21 juin 2014 à 23:02
via55 Messages postés 14509 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 2 janvier 2025 - 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
- Comment ouvrir un fichier dat - Guide
- Comment ouvrir un fichier docx ? - Guide
- Fichier rar - Guide
1 réponse
via55
Messages postés
14509
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
2 janvier 2025
2 739
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