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!
Partager