Discussion :

[nLineMayuri]

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.

[Sebphyto]

Salut,
Voici une solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
Dim tablo()
nomfichier = "nom_prénom_dd_mm_yy-hhhmm"
Découp = Split(nomfichier, "_")
nomprenom = Split(nomfichier, "_")(0) & Split(nomfichier, "_")(1)
ddmm = Split(nomfichier, "_")(2) & Split(nomfichier, "_")(3)
yy = Split(nomfichier, "_")(4)
 
With Sheets("Feuil1")
    .Activate
    .Cells(1, 1) = nomprenom
    .Cells(1, 2) = ddmm
    .Cells(1, 3) = yy
End With
End Sub

seb

[nLineMayuri]

Merci à vous Sebphyto. J'ai un peu modifié le code, cela m'a fortement aidé. Merci infiniment!

[kiki29]

Salut, voir Manipuler les chaînes de caractères en VB6 et VBA Excel