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