Extration date du nom du fichier

Bonjour,

Je cherche à extraire la date du nom de mon fichier.

Mon fichier se libelle de la façon suivante : S42 (Du 17-10-16 au 21-10-2016)

J'aimerai qu'en case D15 s'affiche automatiquement la date sous cette forme : 21/10/2016

Quelqu'un peut m'aider, je tourne en rond depuis un petit moment

Merci par avance !

François

Bonjour,

une manière comme ceci :

P.

Option Explicit
Sub CelD15()
Dim x
x = Application.WorksheetFunction.Search("au", ActiveWorkbook.Name) + 3
[D15].Value = Mid(ActiveWorkbook.Name, x, 10)
End Sub

ou bien dans le workbook_open

Private Sub Workbook_Open()
Dim x
x = Application.WorksheetFunction.Search("au", ActiveWorkbook.Name) + 3
[D15].Value = Mid(ActiveWorkbook.Name, x, 10)
End Sub

Bonjour et merci pour votre réponse.

Existe t-il un moyen d'extraire la date sans avoir recours aux macros ?

Merci !

Oui

il y a surement plus court , mais je ferais:

en D16: =STXT(CELLULE("filename");TROUVE("[";CELLULE("filename"))+1;SOMME(TROUVE({"[";"]"};CELLULE("filename"))*{-1;1})-1)

en D15: =STXT(D16;CHERCHE("au";D16)+3;10)

P.

Merci !

Cela extrait la date sous cette forme : 21-10-2016. Est-il possible de la transformer en 21/10/2016 ?

Encore merci !

fmartini a écrit :

Merci !

Cela extrait la date sous cette forme : 21-10-2016. Est-il possible de la transformer en 21/10/2016 ?

Encore merci !

Change le format de la cellule par un clic droit/format

Bonjour,

Non malheureusement cela ne fonctionne pas.

Cordialement,

François

Bonsoir,

Personne pour trouver la solution ? Je n'arrive toujours pas à transformer la forme en jj/mm/aa (au lieu de jj-mm-aa).

Merci pour votre aide.

Cordialement,

Bonjour,

Comme le problème n'a pas l'air d'inspirer beaucoup de monde je vais essayer avec un fichier exemple

C'est pour un ficher de facturation avec une nomenclature imposée par le client. Je ne peux donc rien modifier sur le nom du fichier ni sur le chrono de la facturation.

En B4 doit figurer l'année et le mois de facturation sous cette forme : aa / mm et en D4 la date extraite du nom du fichier sous cette forme jj/mm/aa.

Aujourd'hui je n'arrive pas à extraire (sans macro si possible) la date du nom du fichier au format "date" pour en extrapoler le chrono de facturation au format aa / mm.

J’espère avoir été assez clair et merci par avance pour votre aide !

François

Bonjour,

En D4 :

=DATEVAL(STXT(D6;CHERCHE("au";D6)+3;8))

Super ! merci c'est parfait !

Tant que j'y suis j'ai un autre petit problème.

J'aimerai créer une liste des factures crées entre deux onglets fixe.

Comme le fichier exemple fonctionne bien je vous le joint.

Merci encore pour votre aide,

François

Un petit up svp !

fmartini a écrit :

Un petit up svp !

Votre nouvelle demande est sans rapport avec le titre de votre post !

Il me semble préférable d'ouvrir un nouveau sujet......

Ah ok pardon je vais modifier