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 : Sélectionner tout - Visualiser dans une fenêtre à part
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!