Nom de dossier +1

bonjour

je voudrais créer des dossier avec un index du genre 1-jjjjjjj, 2-yyyyyyyy

j'ai essayer mais il ne commence pas a 1 il commence à n'importe quel nombre

merci

Répertoire = "C:\Users\*****\*****\chantier 2022\"
 ' Répertoire = ActiveWorkbook.Path
  nomFichier = TextBox1.Value
  nf = Dir(Répertoire & "\" & "*", vbDirectory)
  n = 0
  Do While nf <> ""

    nf = Dir
     n = n + 1
  Loop
  MkDir (Répertoire & "\" & n + 1 & "-" & nomFichier)

bonjour,

le paramètre vbdirectory de la fonction dir() indique que l'on souhaite prendre en compte les fichiers ET les répertoires (et pas uniquement les répertoires).

une solution possible

    Répertoire = "C:\Users\*****\*****\chantier 2022\"
    ' Répertoire = ActiveWorkbook.Path
    nomFichier = TextBox1.Value
    Set fso = CreateObject("scripting.filesystemobject")
    Set rep = fso.getfolder(Répertoire)
    n = rep.subfolders.Count
    MkDir (Répertoire & "\" & n + 1 & "-" & nomFichier)
    Set rep = Nothing
    Set fso = Nothing

merci beaucoup sa fonctionne