Sélection sous-répertoire dont on ne connait que le début du nom

Bonjour,

La même Sub avec un message disant que le dossier existe déjà si c'est le cas :

Sub LouReeD()

    Dim Tbl() As String
    Dim TblTest() As String
    Dim I As Long
    Dim Repertoire As Long
    Dim repertoire1
    Dim Chemin As String

    Repertoire = IIf(Mid(ThisWorkbook.Name, 2, 1) <> "0", Mid(ThisWorkbook.Name, 2, 4), Mid(ThisWorkbook.Name, 3, 3))

    For I = 100 To 2000 Step 100

        If Repertoire <= I Then

            repertoire1 = Format(I - 100 + 1, "000") & "-" & Format(I, "000")
            Exit For

        End If

    Next I

    Chemin = "W:\PE\Dossiers Projets\" & repertoire1 & "\"

    RecupDossiers Chemin, Tbl()

    If Not (Not Tbl()) Then

        For I = 1 To UBound(Tbl)

            'si les 4 premiers caractères correspondent, création du dossier "Nomenclature"
            If Left(Tbl(I), 4) = Repertoire Then

                On Error Resume Next
                MkDir Chemin & Tbl(I) & "\" & "13 - Nomenclature"

                'si existe déjà, une erreur se produit donc message
                If Err.Number <> 0 Then MsgBox "Le dossier existe déjà dans le dossier '" & Chemin & "' !"

                Exit For '<--- ici, sortie de boucle car normalement pas d'autre dossier

            End If

        Next I

    End If

End Sub

Merci beaucoup ça fonctionne.

Bonjour à tous,

Je n'ai pas Excel pour tester et confirmer mais de mémoire dir() accepte les jokers.

On peut imaginer qq chose comme :

Rep = dir ("chemin\1487*")
If Rep = "" then
' non trouvé
Else
' trouvé, nom répertoire complet dans Rep
End If

Pour éviter la boucle.

Si ça inspire qq'un, en espérant que ma mémoire soit correcte... 😀

Il faut sans doute ajouter un paramètre à Dir () pour spécifier que c'est un répertoire et non un fichier que l'on cherche. ,vbDirectory ou qq chose d'approchant

Eric

Alors ça ! C'est du smileys !!!

A défaut de mémoire vous voyez grand !

@ bientôt

LouReeD

J'ai mis celui de la tablette et non celui du site

Ah, quand on est mal équipé tout se complique