[XL-2002] Sélectionner fichier en fonction d'une partie de son nom

[johan89]

Bonjour,

Je souhaite récupérer tous les fichiers d'un répertoire qui ont dans leur nom l'ID d'un utilisateur auparavant stocké dans une variable.

Par exemple :
ID = 1234567890

J'ai dans mon répertoire :
- fichier1.form.1234567890
- fichier2.form.0123456789
- fichier3.form.1234567890
- fichier4.form.1234567890
- fichier5.form.1234567890

Je souhaite récupérer tous les fichiers ayant 1234567890 dans le nom, càd :
- fichier1.form.1234567890
- fichier3.form.1234567890
- fichier4.form.1234567890
- fichier5.form.1234567890

Pouvez-vous m'aider svp ?

[jfontaine]

Bonjour,

Sur ces posts tu trouveras un exemple pour boucler sur les fichiers d'un répertoire
http://www.developpez.net/forums/d11...ier-txt-celle/

http://www.developpez.net/forums/d11...cro-vba-chdir/

[johan89]

merci, je vais regarder

[patricktoulon]

bonjour

pour faire ce que tu veux il va falloir

boucler sur tout les fichiers du dossiers
récupérer le nom
utilisation de split par les points
ensuite la variable tableau (2) par le split devrais te donner les numero
ensuite avec "if " tu teste si c'est le bon numero


voila au plaisir

[Theze]

Bonjour,

Teste ce qui suit pour voir si ça convient. Lancer la sub "Test" après avoir adapté le chemin :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Sub Test()
 
    Dim Tbl() As String
    Dim I As Integer
 
    'adapter le chemin !!!
    Tbl = ChargeFichiers("D:\Mon dossier\")
 
    For I = 1 To UBound(Tbl)
 
        If InStr(Tbl(I), "1234567890") <> 0 Then
 
            MsgBox Tbl(I)
 
        End If
 
    Next I
 
End Sub
 
Function ChargeFichiers(Chemin As String) As String()
 
    Dim TableauFichiers() As String
    Dim Fichier As String
    Dim I As Integer
 
    If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\"
 
    Fichier = Dir(Chemin)
 
    Do While (Len(Fichier) > 0)
 
        If Right(Fichier, 3) = "xls" Then 'ou xlsx ou autres
 
            I = I + 1
            ReDim Preserve TableauFichiers(1 To I)
            TableauFichiers(I) = Fichier
 
        End If
 
        Fichier = Dir()
 
    Loop
 
    ChargeFichiers = TableauFichiers()
 
End Function

Hervé.

[johan89]

Bonjour,

Merci de ton aide et désolé pour cette réponse un peu tardive.
Mes fichiers se trouvent sur un serveur linux alors j'ai remplacé "\" par "/".
J'aurai du le préciser J'ai des erreurs avec les "Dir".
Maintenant il bloque sur "UBound" en me disant que l'indice n'appartient pas à la sélection.
Je n'arrive pas vraiment à comprendre ton code
Le principe est simplement de boucler sur chaque nom de fichier, puis d'enregistrer les noms qui sont associés à l'ID pour pouvoir les utiliser par la suite. Mais la mise en oeuvre n'est pas facile !

[Theze]

Bonsoir,

J'ai un serveur sous Windows chez moi et le code donné fonctionne parfaitement mais comme je n'ai pas de serveur Linux, je ne peux pas t'aider plus.
Désolé :o((

Hervé.

[johan89]

merci tout de même, je vais me pencher d'avantage sur le problème dès que j'ai le temps