Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Extraction à partir d'un string

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Troudz
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

Troudz

XLDnaute Occasionnel
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.
 
Trier par date Trier par votes
Re : Extraction à partir d'un string

Bonjour
En Excel, si la cellule contenant le nom de fichier s'appelle "NFic":
Code: 
=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
VB: 
DateSerial(year, month, day) + TimeSerial(hour, minute, second)
Utiliser Mid$ au lieu de STXT
 
Dernière édition:
Vote positif 0 Vote négatif
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 🙄...
Code: 
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 😎
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
[REF] Wiki Page 8 de MichelXld
Réponses
0
Affichages
39 K
MichelXld
M
N
  • Question Question
Création d'un fichier Excel à partir d'une autre page Excel
Réponses
0
Affichages
2 K
NonO51
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…