VBA recherche de sous-dossier avec nom incrémenté

Version imprimable

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:

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

Citation:

Envoyé par raph6490

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:

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

Debug

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:

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

12/04/2017, 11h18
Menhir

Citation:

Envoyé par raph6490

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

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

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

12/04/2017, 13h59
raph6490

Wahou ! Ton code fonctionne.
Merci beaucoup !

Je peux continuer avec mes étapes suivantes.

Encore merci pour votre aide !