Private Sub CommandButton8_Click()
Dim FSO As New FileSystemObject, NomDoss As String
NomDoss = Me.TextBox1.Text & "\Devis\" & Me.TextBox2.Text
If Not FSO.FolderExists(NomDoss) Then FSO.CreateFolder NomDoss
NomDoss = Me.TextBox1.Text & "\Commande\" & Me.TextBox2.Text
If Not FSO.FolderExists(NomDoss) Then FSO.CreateFolder NomDoss
End Sub