récupération de la date dans le titre du fichier

[philmaure]

bonjour je reçois un fichier chaque jour avec une date
Pour transférer ces données dans une table access, j'ai besoin de récupérer la date pour la mettre en colonne A

dans le fichier joint : 2017-05-15-Test.xlsx

en feuil1 j'ai les données du fichier

en feuil2 j'ai mis le résultat attendu avec en colonne 1 la date sous la forme 15/05/2017

Nota : si le format date ne peut être modifier et resterait sur la forme 2017-05-15 je m'en arrangerait en créant une table date dans la base Access

Merci pour votre aide

Cdlt
Philmaure

 

[natorp]

Bonjour Philmaure

A partir du moment où le fichier a été enregistré au moins une fois sur le disque, voir la formule en A2 feuil2

Cordialement, Gérard

 

[vgendron]

Hello
peut etre avec cette formule
=TEXTE(GAUCHE(NOMCLASSEUR();10);"jj/mm/aaaa")

 

[Jocelyn]

Bonjour le Forum,
Bonjour philmaure,

Un essai en fichier joint

Cordialement

EDIT : Bonjour natorp, vgendron, désolé pour la collision pas raffraichi

 

[DoubleZero]

Bonjour à toutes et à tous, bises à jcelyn,

Une autre suggestion par macro :

Option Explicit
Sub Nom_fichier_date_récupérer()
    Dim nom
    Application.ScreenUpdating = False
    nom = ThisWorkbook.Name
    With Sheets("Feuil2")
        .Cells.Clear
        Sheets("Feuil1").Range("a1").CurrentRegion.Copy .Range("b1")
        .Range("a2").Value = nom: .Range("a2").Value = Left(nom, 10)
        .Activate
        .Range("a1") = "date"
        With .Range("a3:a" & Cells(Rows.Count, 2).End(xlUp).Row)
            .Value = Range("a2")
            .NumberFormat = "m/d/yyyy"
        End With
    End With
    Application.ScreenUpdating = False
End Sub

A bientôt

 

[philmaure]

Re- Bonjour à tous et un grand merci pour vos solutions.


Bonne a-m

cordialement
Philmaure