Extraction à partir d'un string

[Troudz]

Bonjour tout le monde,

J'ai une série de fichiers nommés :
- Sauvegarde du 02032011 à 132726.xls
- Sauvegarde du 02032011 à 132733.xls
.....

Je voudrais cette série dans un listview. Pour cela, j'ai créée une routine qui boucle sur tous les fichiers du répertoire. Jusque là ça va.

Afin de soigner la présentation, je voudrais transformer ces noms de fichiers en :
- Sauvegarde du mercredi 3 mars 2011 à 13h 27min 26s

Mais seulement impossible d'extraire la date pour la manipuler.

Auriez vous une idée ?

Je vous remercie par avance.

 

[Dranreb]

Re : Extraction à partir d'un string

Bonjour
En Excel, si la cellule contenant le nom de fichier s'appelle "NFic":

=DATE(STXT(NFic;19;4);STXT(NFic;17;2);STXT(NFic;15;2)+TEMPS[STXT(NFic;26;2);STXT(NFic;28;2);STXT(NFic;30;2))

Il existe une solution très analogue en VBA

DateSerial(year, month, day) + TimeSerial(hour, minute, second)

Utiliser Mid$ au lieu de STXT

 

[Troudz]

Re : Extraction à partir d'un string

Merci beaucoup pour ton aide et bonne journée

 

[Bebere]

Re : Extraction à partir d'un string

bonjour Troudz
un essai avec formule
à bientôt

 

[JNP]

Re : Extraction à partir d'un string

Bonjour le fil 🙂,
Avec un titre aussi alléchant (je veux bien les photos après l'extraction 😛...), un petit RegExp serait pas mal 🙄...

Sub test()
Dim MaString As String
MaString = "Sauvegarde du 02032011 à 132726.xls"
With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "(\d{2})(\d{2})(\d{4})(.*)(\d{2})(\d{2})(\d{2}).xls"
MaString = .Replace(MaString, "$1/$2/$3$4$5h $6min $7s")
End With
MsgBox MaString
End Sub

Bonne journée 😎