Discussion :

[raph6490]

Bonjour à tous,

Je suis nouvelle sur le forum et débutante en VBA.

J'ai un dossier dont les sous dossier ont tous la même structure en termes de contenu.
Chacun de ces sous dossiers possède un incrément dans leur nom.
Exemple : "000_Exemple" "001_Exemple1"

Je voudrais un code VBA qui me recherche le dossier avec le plus grand incrément. Le nom "Exemple" pourra également contenir un grand nombre donc si possible, l'idéal serait de localiser le début du nom du dossier.

Une fois le sous-dossier localisé, je souhaite accéder à un "sous-sous-dossier" dont le nom sera toujours le même puis récupérer des données dans un fichier Word.

J'espère avoir été claire.
J'ai fait deux ou trois recherches sur internet et j'ai écrit ce début de 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
 Sub Find_folder()
 
            Dim FSO As Scripting.FileSystemObject
            Dim Fol As Folder
            Dim i As Integer
            Dim Subfol As Folder
 
            'Activation of FSO
            Set FSO = New Scripting.FileSystemObject
            'Access to folder
            If FSO.FolderExists("W:\Mon chemin vers le dossier source") Then
                Set Fol = FSO.GetFolder("W:\HL_Business_Development\Transfer\BD - Aerospace & Aviation\Test Cell\04_Manufacturing_Process\04_Manufacturing_Data\02_Build_Job_Data")
            Else
                MsgBox "The folder doesn't exist"
            End If
 
            For Each Subfol In Fol

Et là c'est le drame, je bloque... Comment trouver l'incrément le plus grand dans le nom de plusieurs dossiers?

Si vous avez aussi des conseils pour les étapes suivantes, je suis preneuse !

Par avance, un grand merci pour m'avoir lue et pour les éventuelles réponses !

Raphaelle

[Menhir]

J'ai un dossier dont les sous dossier ont tous la même structure en termes de contenu.
Chacun de ces sous dossiers possède un incrément dans leur nom.
Exemple : "000_Exemple" "001_Exemple1"

Je voudrais un code VBA qui me recherche le dossier avec le plus grand incrément. Le nom "Exemple" pourra également contenir un grand nombre donc si possible, l'idéal serait de localiser le début du nom du dossier.

Passer par le FileSystem, c'est bien. Mais si on peut l'éviter, c'est mieux.
La fonction Dir() est très salutaire pour appliquer ce précepte.

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
Dim Lim As Integer, Num As Integer
Dim Nom As String, NomLim As String
 
Nom = Dir("W:\Mon chemin vers le dossier source", vbDirectory)
If Nom = "" Then Exit Sub
Lim = CInt(Left(Nom, 3))
NomLim = Nom
 
Do
    Nom = Dir("")
    If Nom = "" Then Exit Do
    Num = CInt(Left(Nom, 3))
    If Lim < Num Then
        Lim = Num
        NomLim = Nom
    End If
Loop
 
MsgBox "Le fichier ayant le plus grand incrément est " ; NomLim

C'est du code fait à l'arrache, non testé. Il faudra donc peut-être le débuguer.

https://msdn.microsoft.com/fr-fr/lib.../gg278779.aspx

[raph6490]

Merci beaucoup pour ton aide !

Malheureusement il y a un bug que je n'arrive pas à résoudre.
Il se situe en gras ci-dessous. On dirait que la fonction CInt ne parvient pas à convertir le nom du dossier...

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
Sub Button1_Click()

Dim Lim As Integer, Num As Integer
Dim Nom As String, NomLim As String
 
Nom = Dir("W:\Chemin fichier source", vbDirectory)
If Nom = "" Then Exit Sub
Lim = CInt(Left(Nom, 3))
NomLim = Nom
 
Do
    Nom = Dir("")
    If Nom = "" Then Exit Do
    Num = CInt(Left(Nom, 3))
    If Lim < Num Then
        Lim = Num
        NomLim = Nom
    End If
Loop
 
MsgBox ("Le fichier ayant le plus grand incrément est " & NomLim)

End Sub

Sais-tu comment le débuguer?

Merci encore !
Raphaelle

[Menhir]

Malheureusement il y a un bug que je n'arrive pas à résoudre.
Il se situe en gras ci-dessous. On dirait que la fonction CInt ne parvient pas à convertir le nom du dossier...

Est-ce que tu as essayé de regarder le contenu de la variable "Nom" ?

Je t'ai donné le principe mais il faudrait quand même que tu y mettes un peu du tien...

[kiki29]

Salut, je m'immisce dans la discussion, à tenter en testant ...

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
Option Explicit
 
Sub Test()
Dim vDossier As Variant
Dim flag As Boolean
Dim sDossier As String
Dim iMax As Long, iNum As Long
 
    sDossier = ThisWorkbook.Path & "\"
    iMax = -999
    flag = True
    vDossier = Dir(sDossier, vbDirectory)
 
    While flag = True
        If vDossier = "" Then
            flag = False
        Else
            If IsNumeric(Left$(vDossier, 3)) Then
                iNum = CLng(Left$(vDossier, 3))
                If iNum > iMax Then iMax = iNum
            End If
            vDossier = Dir()
        End If
    Wend
 
    MsgBox Format(iNum, "000")
End Sub

Sinon juste pour info ( on revient à FSO ... ) et il serait à élaguer car lourd pour ta demande, à voir si curieuse : liste des fichiers avec visualisation de l'arborescence .

[raph6490]

Wahou ! Ton code fonctionne.
Merci beaucoup !

Je peux continuer avec mes étapes suivantes.

Encore merci pour votre aide !