Ouvrir un fichier Excel dont le nom a une partie fixe et une autre variable

Version imprimable

01/12/2010, 09h05
DonGosma

Ouvrir un fichier Excel dont le nom a une partie fixe et une autre variable

Bonjour,

Je suis actuellement en stage ; Je dois faire du VBA et je ne peux pas faire autrement car il y a des milliers de fichiers :

J'ai un petit problème car je souhaite ouvrir un fichier qui se trouve dans un répertoire et qui commence toujours par PKR_HIJ_1.xls ou PKR_HIJ_2.xls ou PKR_HIJ_3.xls ou PKR_HIJ_4.xls .
Or Le terme HIJ peut changer mais il est toujours composé de 3 lettres mais j'ai déjà réglé ce problème. Le souci vient du fait que certaines personnes veulent rajouter des commentaires à la fin des fichiers comme par exemple : PKR_HIJ_1___(escalier).xls ; Je suis donc bloqué car j'ai fait une boucle qui fait varier le chiffre de 1 à 4 mais je ne peux pas trouver un fichier s' il y a un commentaire entre paranthèses. Est-il possible de faire une recherche approximative avec juste le début du fichier et ensuite d'ouvrir tous les fichiers qui commencent par PKR_HIJ_1....?

Merci d'avance:ccool:
01/12/2010, 09h30
Godzestla

Bonjour,

regarde l'aide sur la méthode DIR dans ton VBA, et l'exemple qui va avec

Tu peux utiliser PKR_HIJ_1* voir PKR_HIJ_* pour tes recherches, en fonction de l''existence ou non de fichier à ne pas sélectionner (PKR_HIJ_9 par exemple).

Bonne journée.:P
01/12/2010, 11h00
DonGosma

salut
merci pour ta réponse , j'ai essayé avec l'étoile mais ça ne fonctionne pas...ou ma synthaxe n'est pas bonne , je ne sais pas!
01/12/2010, 11h08
Godzestla

Alors pense à montrer ton code.... en utilisant les balises codes pour ce faire (Voir rêgles du forum).

Parce que aider sans voir le code c'est :cry:

vOILa mon code VBA :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
for  ChiffreUnderscore = 1 to 4
chantier = HIJ
 
nomP3L = "P3L_" & Chantier & "_" & ChiffreUnderscore
 
With Application.FileSearch
 
   For iSearch = 1 To .FoundFiles.Count ' la  boucle continuera tant qu'on trouve des fichiers P3L sur le disque programme
 
     If GetFileNameFromPath(.FoundFiles(iSearch)) Like "nomP3L*" Then ' si on trouve le fichier recherché
 
         Workbooks.Open Filename:=.FoundFiles(iSearch), UpdateLinks:=0, ReadOnly:=True

merci d'avance pour ta réponse

01/12/2010, 14h32
Godzestla

Bonjour,

A première vue, il manque les quotes autour de Hij, qui comme cela ne vaudra rien car cette variable n'existe pas.

Donc Nomp3l vaudra P3L__1 !!! :aie:
01/12/2010, 14h48
DonGosma

oui désolé je les ai oubliées autour de HIJ car je l'ai rajouté aprés , mais ça c'est bon , le problème ne vient pas de là!
04/12/2010, 15h07
AlainTech

Bonjour,

Sans avoir vérifié l'usage de GetFileNameFromPath, petite correction pour ton Like:

Code:

If GetFileNameFromPath(.FoundFiles(iSearch)) Like nomP3L & "*" Then

Je suis d'ailleurs étonné que tu n'aies pas suivi le conseil qui t'a été donné d'utiliser Dir.
05/12/2010, 07h46
kiki29

Salut, Une remarque pour DonGosma : je vois que tu utilises FileSearch, il serait peut-être prudent de ne pas l'utiliser car FileSeacrh n'est plus disponible à partir d'Excel 2007 et ainsi anticiper une migration possible de ton projet dans la boite ou tu fais ton stage
voir http://silkyroad.developpez.com/vba/classefilesearch/ , il existe également des approches plus simples en adaptant par exemple http://www.developpez.net/forums/d20...feuille-excel/
05/12/2010, 10h32
Didier Gonard

Citation:

FileSearch, il serait peut-être prudent de ne pas l'utiliser car FileSeacrh n'est plus disponible

et pose des problèmes avec certaines options de XP sur les versions antérieures...

cordialement,

Didier

Bonsoir,

Un petit exemple avec une fonction récursive pour la recherche des fichiers. Il est possible d'indiquer si la recherche doit être faite ou non dans les sous-dossiers. Un exemple à adapter :

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
 
 
Sub Test()
 
    Dim I As Integer
    Dim T() As String
 
    T = DossierRecursif("D:\", "PKR_HIJ_1", True)
 
    For I = 1 To UBound(T)
    'adapter ici pour le traitement des fichiers
        Debug.Print T(I)
    Next I
 
End Sub
 
Function DossierRecursif(Dossier As String, _
                         DebutFichier As String, _
                         AvecSousDossier As Boolean) As String()
 
    Dim Tbl() As String
    Dim Fso As Object
    Dim Dos As Object
    Dim SousDos As Object
    Dim D As Object
    Dim DosParent As String
    Dim I As Integer
    Dim Fichier As Object
 
    'mémorise le chemin du dossier
    DosParent = Dossier
 
    Set Fso = CreateObject("Scripting.FileSystemObject")
 
    If Fso.FolderExists(Dossier) = False Then Exit Function
 
    Set Dos = Fso.GetFolder(Dossier)
 
    'recherche dans les fichiers du dossiers en cours
    For Each Fichier In Dos.Files
 
        If Dir(Fichier) = Dir(DebutFichier & "*") Then
            I = I + 1
            ReDim Preserve Tbl(1 To I)
            Tbl(I) = Fichier
            'si juste le nom sans le chemin
            'Tbl(I) = Fichier.Name
        End If
 
    Next Fichier
 
    'si la recherche doit aussi être faite dans les sous-dossiers
    If AvecSousDossier = True Then
 
        Set SousDos = Dos.SubFolders
 
        'boucle sur les dossiers
        For Each D In SousDos
 
            'évite l'erreur des dossiers interdits
            On Error Resume Next
 
            'cherche les fichiers
            For Each Fichier In D.Files
 
                If Dir(Fichier) = Dir("PKR_HIJ_1*") Then
                I = I + 1
                ReDim Preserve Tbl(1 To I)
                Tbl(I) = Fichier
            'si juste le nom sans le chemin
            'Tbl(I) = Fichier.Name
                End If
 
            Next Fichier
 
            'recherche dans les sous dossiers
            DossierRecursif DosParent & "\" & D.Name, _
                            DebutFichier, _
                            AvecSousDossier
 
        Next D
 
    End If
 
    DossierRecursif = Tbl()
 
End Function

Hervé.