problème date de photo

[Sheldor]

bonjour et bonne 2013,

j'utilise la référence microsoft shell controls automation pour récupérer les dates de prises de vues d'images mais le format de date est loin d'être pratique à utiliser, format texte avec des espaces invisibles (ascii 63??)

je peux m'en sortir en faisant une usine à gaz de =stxt() mais je me dis que quelqu'un aurait peut être une idée plus élégante

grand merci de me lire

le reste dans le fichier

amicalement
nico

 

[Sheldor]

Re : problème date de photo

il y a d'autres dates comme dernière modification etc qui sont dans un bon format de date mais celle qui m'intéresse, la prise de vue, est récalcitrante, j'ai essayé d'attraper ce caractère et le remplacer mais pas facile par chr() voir pj

 

[Sheldor]

Re : problème date de photo

à défaut je ferais
Dim c As Range
For Each c In Selection
c.Value = Mid(c.Text, 2, 3) & Mid(c.Text, 6, 3) & Mid(c.Text, 10, 5) & Mid(c.Text, 17, 5)
Next

en espérant que les espaces ne bougent pas comme ils l'ont fait visiblement depuis la dernière fois que j'ai utilisé ce traitement...

 

[JHA]

Re : problème date de photo

Bonjour à tous,

A améliorer,

JHA

 

[JHA]

Re : problème date de photo

Re,

A essayer:

=STXT(SUBSTITUE(SUBSTITUE(B5;STXT(B5;1;1);"µ");"µ";"");1;10)+DROITE(B5;5)

Format cellule:
j/m/aaaa hh:mm;@

JHA

 

[Sheldor]

Re : problème date de photo

bonjour JHA et merci beaucoup, bonne idée d'attraper la "chose" par le stxt en A6 !

 

[Modeste geedee]

Re : problème date de photo

Bonsour®

Bonjour à tous,

A améliorer,

JHA

peut-etre :
=DATEVAL(SUBSTITUE(GAUCHE(B5;13);GAUCHE(B5);""))+DROITE(B5;5)

 

[Sheldor]

Re : problème date de photo

bonjour Modeste Geedee,
joli, merci beaucoup
je n'avais jamais trop compris DATEVAL, il y a un équivalent vba?