Dim chemin As String
If ComboBox1.ListIndex = -1 Or TextBox1 = "" Then MsgBox "il manque une donnée..."
chemin = "D:\Documentation\" & ComboBox1.Value & " \ & TextBox1.Value"
If Dir(chemin, vbDirectory) = "" Then MkDir chemin Else MsgBox "Dossier existe..."