Discussion :

[developpeur71]

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 :

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
 
 
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.

[marot_r]

Bonjour.

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

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

Code :

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

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

A+

[Zekraoui_Jakani]

Vous pouvez essayer ceci, comme exemple :

Code :

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

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

[Robert1957]

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 :

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
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 :

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