VBA et Organisation de nom de fichier sur Excel
Bonjour a tous,
J'ai un petit soucis avec VBA, je n'arrive pas a organiser mes fichiers. Je m'explique, j'ai actuellement une liste de fichier sur dans un dossier, Ils sont nommés de cette facon : XYY_... J'arrive bien a les lire, a extraire une partie de la chaîne de caractère etc mais j'aimerai que des que X change cela m'écrive dans une colonne le titre auquel cette section appartient.
Par exemple :
I - Titre 1
doc1
doc2
II - Titre 2
doc3
doc4...
Je n'arrive pas a savoir s'il me faut une boucle While ou Until ou autre?
Monde code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
| Sub ListingFichiers()
Dim Rep As String, Fichier As String, Id As String
Dim i As Integer
Cells.Clear
Rep = "C:\test\"
Fichier = Dir(Rep)
Cells(1, 1) = "Selection"
Cells(1, 2) = "ID"
Cells(1, 3) = "Page"
Cells(1, 4) = "Nom"
Cells(1, 5) = "Adresse"
i = 2
Do While Fichier <> ""
Taille = Len(Fichier) - 10
Sheets("Feuil1").Range("B" & i) = Left(Fichier, 3)
Sheets("Feuil1").Range("C" & i) = Mid(Fichier, 4, 2)
Sheets("Feuil1").Range("D" & i) = Mid(Fichier, 7, Taille)
Sheets("Feuil1").Range("E" & i) = Rep + Fichier
i = i + 1
Fichier = Dir
Loop
End Sub |
Merci d'avance! :)
