Problème avec fonction Split

Version imprimable

Bonjour,

J'aimerais parcourir un répertoire pour trouvere les différents fichiers et scinder le nom du fichier avec la fonction SPLIT (délimiteur "_") :
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 Public Sub RecupFichiersBMA() Dim Repertoires_rec As String Dim i As Integer Dim liste() As String Dim nom As String Repertoires_rec = Dir("C:\recep\*.xls", vbDirectory) Do While (Repertoires_rec <> "") Repertoires_rec = Dir Loop liste = Split(nom, "_") For i = 1 To 3 MsgBox CStr(liste(1)) Next i End Sub
Lorsque j'execute mon programme j'ai une erreur : " L'indice n'appartient pas à la sélection".

Merci pour votre aide.

12/02/2016, 18h40
marot_r
Bonjour.

Les tableaux, sauf indication contraire (instruction Base) , commence à 0.

Un moyen d'éviter les problèmes est de faire :
Code:

1 2 3 4 For i = lbound(Liste) To ubound(liste) MsgBox CStr(liste(i)) Next i
A+

Fonction split

Vous pouvez essayer ceci, comme exemple :

Code:

1
2
3
4
5
6
7
 
sub test()
bb=currentproject.FullName 'détermine le fichier voulu
pl = instrrev(bb,"\") 'identifie le délémiteur à partir de la droite
nn = right(bb,len(bb)-pl)  'extrait le nom de fichier
debug.print nn
end sub

Bonjour developpeur71, Zekraoui_Jakani, René,

Si tu as mis tout ton code, c'est impossible que ça fonctionne. Tu n'affectes pas de valeur à la variable liste donc impossible d'avoir un tableau(split).

Si on regarde ton code plus en détail:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Sub RecupFichiersBMA()
 
Dim Repertoires_rec As String
Dim i As Integer
Dim liste() As String
Dim nom As String
 
Repertoires_rec = Dir("C:\recep\*.xls", vbDirectory) 'Ici tu demandes de récupérer le premier fichier Excel présent dans le répertoire recep et tu l'affectes à la variable Repertoires_rec
 
 
Do While (Repertoires_rec <> "")  'Tu balayes le répertoire tant qu'il y a des fichiers Excel
 
    Repertoires_rec = Dir  'Tu affectes le nom du fichier Excel à la variable Repertoires_rec
Loop
'Ta variable liste ainsi que ta variable nom est toujours vide alors comment veux-tu la diviser 
     liste = Split(nom, "_")
     For i = 1 To 3
        MsgBox CStr(liste(1))  'Ici si ta variable avait quelque chose tu aurais toujours le même message puisque tu demande systématiquement la deuxième partie du tableau
     Next i
 
 
End Sub

Si j'ai bien compris ce que tu veux faire et si tes fichiers Excel sont bien identifier avec un "_" dans leurs noms comme: Le_Fichier_Excel.xls voici un code qui fonctionnerait:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub RecupFichiersBMA()
 
Dim Repertoires_rec As String
Dim i As Integer
Dim liste() As String
 
Repertoires_rec = Dir("C:\recep\*.xls") 'Ici on récupère le premier fichier Excel du répertoire "recep"
Do While (Repertoires_rec <> "")  'Parcours du répertoire
 
    liste = Split(Repertoires_rec, "_")  'On affecte le tableau créé avec la fonction split et le nom du fichier à la variable liste
    For i = LBound(liste) To UBound(liste)
        Debug.Print CStr(liste(i))  'On découpe le fichier et on imprime dans la fenêtre d’exécution la partie découpé
    Next i
    Repertoires_rec = Dir  'On récupère le fichier suivant
 
Loop
 
End Sub

Bonne journée