Numéros de dossiers évolutifs

Bonjour à tous,

Alors voilà, j'aimerai pouvoir faire une macro qui me crée des dossiers portant tous le même nom mais en rajoutant à chaque fois un numéro à la fin de chaque dossier, numéro qui sera égale à n+1 par rapport au numéro du dossier précédent.

Si quelqu'un peut m'aider à faire ça ça serait vraiment génial.

Merci d'avance.

Bonjour,

Une piste, ici du code pour créer 10 dossiers commençant par Nom dans le dossier contenant le fichier xl d'origine

Sub dossier()
Dim i As Byte, NDF As String
    For i = 1 To 10
        NDF = ActiveWorkbook.Path & "\Nom" & i
        If Dir(NDF, 16) = "" Then MkDir NDF
    Next i
End Sub

Pierre

merci ça marche

pouvez vous m'aider pour un autre problème s'il vous plaît ?