pattedechien
XLDnaute Nouveau
Bonjour,
Le but de ma feuille excel est de ranger des documents automatiquement dans des dossiers et sous-dossier.
Mon problème est que je n'arrive pas à créer de sous-dossier (textbox1) à partir d'une valeur de combobox (qui représente le dosssier parent).
Private Sub CommandButton3_Click() 'création de dossier
On Error Resume Next
MkDir "D:\Documentation\" & ComboBox1.Value & " \ & TextBox1.Value"
If Err Then
MsgBox "Ce dossier existe déjà"
End If
Call ComboBox1_Change
End Sub
Je ne sais pas si c'est très clair.
Merci d'avance
Le but de ma feuille excel est de ranger des documents automatiquement dans des dossiers et sous-dossier.
Mon problème est que je n'arrive pas à créer de sous-dossier (textbox1) à partir d'une valeur de combobox (qui représente le dosssier parent).
Private Sub CommandButton3_Click() 'création de dossier
On Error Resume Next
MkDir "D:\Documentation\" & ComboBox1.Value & " \ & TextBox1.Value"
If Err Then
MsgBox "Ce dossier existe déjà"
End If
Call ComboBox1_Change
End Sub
Je ne sais pas si c'est très clair.
Merci d'avance