Re,
Il existe aussi la bonne vieille commande DOS Mkdir qu'on peut urtiliser en VBA:
Dans ton cas:
Private Sub CommandButton1_Click()
Dim NomFic As String
Dim Rep As String
Dim Nom As String
Application.DisplayAlerts = False
Rep = "C:\Mon repertoire\" ''ATTENTION RAJOUTER un Antislash
NomFic = TextBox1.Value
Nom = Rep & NomFic
On error resume next
Mkdir Nom
if Err<>0 then
Msgbox"Le repertoire " & Nom & " a été créé", vbokonly, "SUCCES"
else "Le repertoire " & Nom & " existe déjà", vbokonly, "ECHEC"
end if
End Sub
A+++