Récupérer date vba
Résolu
happy4u
Messages postés
39
Date d'inscription
Statut
Membre
Dernière intervention
-
happy4u Messages postés 39 Date d'inscription Statut Membre Dernière intervention -
happy4u Messages postés 39 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai un code qui permets de récupérer le fichier le plus récent dans un dossier. Ce fichier est sous format alpha20012017 (alphaDATE).
Est -t-il possible de récupérer la date du ficheir? Merci de votre aide.
J'ai un code qui permets de récupérer le fichier le plus récent dans un dossier. Ce fichier est sous format alpha20012017 (alphaDATE).
Est -t-il possible de récupérer la date du ficheir? Merci de votre aide.
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:\Dossier\" & _
"Mes_docs\"
fic = "alpha_*.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
' Workbooks.Open rep & "\" & nom
' End If
If nom <> "" Then
MsgBox nom '' je voudrai récupérer la date pas le nom
End If
Workbooks.Open rep & "\" & nom
End Sub
A voir également:
- Récupérer date vba
- Recuperer message whatsapp supprimé - Guide
- Récupérer mon compte facebook désactivé - Guide
- Comment récupérer un compte facebook piraté - Guide
- Comment recuperer une video sur youtube - Guide
- Impossible de récupérer mon compte gmail - Guide
2 réponses
Bonjour,
Par exemple :
EDIT : si la date est précédée d'un -
et si c'est un _ :
Cordialement
Patrice
Par exemple :
If nom <> "" Then
str = Split(nom, ".")(UBound(Split(nom, ".")) - 1)
str = Split(str, "-")(UBound(Split(str, "-")))
str = Left(str, 2) & "/" & Mid(str, 3, 2) & "/" & Mid(str, 5)
MsgBox CDate(str)
End If
EDIT : si la date est précédée d'un -
et si c'est un _ :
If nom <> "" Then
str = Split(nom, ".")(UBound(Split(nom, ".")) - 1)
str = Split(str, "_")(UBound(Split(str, "_")))
str = Left(str, 2) & "/" & Mid(str, 3, 2) & "/" & Mid(str, 5)
MsgBox CDate(str)
End If
Cordialement
Patrice
Merci