Bonjour à toutes et à tous,

Actuellement j'ai un répertoire où se trouve différents fichiers csv. Ils se présentent sous la forme : nom_prénom_dd_mm_yy-hhhmm
J'aimerais placer le nom_prénom dans une cellule, puis dans la suivante dd_mm_yy et dans l'autre hhhmm.

Mon code est celui-ci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Application.ScreenUpdating = False
  Range("A2:D65000").ClearContents
  repertoire = ThisWorkbook.Path & "\"
  ligne = 1
  nf = Dir(repertoire & "*.csv")
  Do While nf <> ""
    Cells(ligne, 1) = nf
    ligne = ligne + 1
    nf = Dir
  Loop
Je fais juste une copie des noms de fichiers actuellement.

En vous remerciant.