XL 2010 récupération d'info à partir du nom du fichier

vgendron

XLDnaute Barbatruc

• 23 Septembre 2016

• #2

Hello
jouer avec la fonction Nomclasseur()
et stxt

voir PJ pour exemple

 

Pièces jointes

• test (16).xlsx

  16.4 KB · Affichages: 25

Vote positif 0 Vote négatif

P

philmaure

XLDnaute Impliqué

• 23 Septembre 2016

• #3

bonjour
merci pour la réponse par contre je me suis trompé de fichier que j'ai joins

Cdlt
Philmaure

 

Pièces jointes

• Test2016-09-23-15-54-19.XLS

  26 KB · Affichages: 22

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 23 Septembre 2016

• #4

c'est pour ca que j'avais mis en D19 un nom qui corresponde
avec ton nouveau fichier, suffit d'adapter
en B2
=DATE(STXT(NOMCLASSEUR();NBCAR(NOMCLASSEUR())-22;4);STXT(NOMCLASSEUR();NBCAR(NOMCLASSEUR())-17;2);STXT(NOMCLASSEUR();NBCAR(NOMCLASSEUR())-14;2))
et en C2
=TEMPS(STXT(NOMCLASSEUR();NBCAR(NOMCLASSEUR())-11;2);STXT(NOMCLASSEUR();NBCAR(NOMCLASSEUR())-8;2);STXT(NOMCLASSEUR();NBCAR(NOMCLASSEUR())-5;2))

 

Vote positif 0 Vote négatif

P

philmaure

XLDnaute Impliqué

• 23 Septembre 2016

• #5

re et encore merci

ca me renvoie une erreur : Nom ?

Cdlt
Philmaure

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 23 Septembre 2016

• #6

Bonjour philmaure, vgendron,

un essai macro :

Code:

Sub Recup()
dim DateT as string, d
DateT = ThisWorkbook.Name
d = Split(Left(Right(DateT, 23), 19), "-")
With Worksheets("Rapport 1")
.Range("B2") = DateSerial(d(0), d(1), d(2))
.Range("C2") = TimeSerial(d(3), d(4), d(5))
.Range("C2").NumberFormat = "[$-F400]h:mm:ss AM/PM" ' à adapter
End With
End Sub

A+

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 23 Septembre 2016

• #7

ca me renvoie une erreur : Nom ?

Cliquez pour agrandir...

peut etre une fonction du pack Morefunc à télécharger et installer..
sinon, pour l'heure il y a aussi cette facon de faire
=TEXTE(SUBSTITUE(STXT(NOMCLASSEUR();NBCAR(NOMCLASSEUR())-11;8);"-";":");"hh:mm:ss")


Hello Paf

 

Vote positif 0 Vote négatif

P

philmaure

XLDnaute Impliqué

• 23 Septembre 2016

• #8

re et merci à tous les deux.

la macro renvoie une erreur sur la ligne
.Range("B2") = DateSerial(d(0), d(1), d(2))

et pour la reponse de Paf j'ai toujours une erreur Nom ?

Cdlt
Philippe

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 23 Septembre 2016

• #9

re,

philmaure à dit:

la macro renvoie une erreur sur la ligne
.Range("B2") = DateSerial(d(0), d(1), d(2))

Cliquez pour agrandir...

Pourtant ça tourne sur le classeur joint au post 3

philmaure à dit:

et pour la reponse de Paf j'ai toujours une erreur Nom ?

Cliquez pour agrandir...

il doit y avoir confusion de qui a envoyé quoi ??


Un essai par fonctions personnalisées

en B2 : =RecupDate() , en C2 : =RecupHeure()

dans un module standard

Code:

Function RecupDate()
DateT = ThisWorkbook.Name
d = Split(Left(Right(DateT, 23), 19), "-")
RecupDate = DateSerial(d(0), d(1), d(2))
End Function

Function RecupHeure()
DateT = ThisWorkbook.Name
d = Split(Left(Right(DateT, 23), 19), "-")
RecupHeure = TimeSerial(d(3), d(4), d(5))
End Function

ou bien si on veut date et heure dans la même cellule:

en B2 : =RecupDateHeure()

dans un module standard :

Code:

Function RecupDateHeure()
DateT = ThisWorkbook.Name
d = Split(Left(Right(DateT, 23), 19), "-")
RecupDateHeure = CDbl(DateSerial(d(0), d(1), d(2))) + CDbl(TimeSerial(d(3), d(4), d(5)))
End Function

A+

 

Vote positif 0 Vote négatif

P

philmaure

XLDnaute Impliqué

• 23 Septembre 2016

• #10

re et encore merci

Je dois avoir un pb de compatibilité car j'ai le même pb.
ca doit être date serial et Timeserial qu'il ne reconnait pas.
Je vais chercher et je reviendrais au cas ou.

Cdlt
Philippe

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 23 Septembre 2016

• #11

re,

le classeur est il toujours de la forme :
Test2016-09-23-15-54-19.XLS

tout caractère en plus ou en moins fera planté dateserial et timeserial qui ne reconnaitont plus le découpage comme élément de date ( ou time).

A+

Edit : le problème sera le même sur les formules

 

Vote positif 0 Vote négatif

P

philmaure

XLDnaute Impliqué

• 23 Septembre 2016

• #12

re,

oui je fais les tests avec le meme fichier.
J'ai trouve un contournement. Je récupère le nom du fichier dans une cellule avec la formule :
=STXT(CELLULE("filename";A1);TROUVE("[";CELLULE("filename";A1))+1;SOMME(TROUVE({"[";"]"};CELLULE("filename";A1))*{-1;1})-5)

puis je récupère l'heure avec la fonction Droite

Je suis certain que les solutions proposées fonctionnent mais je trouve pas d'où vient le pb. Je continue à chercher.

Si je peux abuser est ce que la macro fonctionne chez vous sur mon fichier ?

Cdlt
Philmaure

 

Vote positif 0 Vote négatif