Création de sous-dossiers avec combobox

[pattedechien]

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

 

[pattedechien]

Re : Création de sous-dossiers avec combobox

petite précision : lorsque je lance cette macro, il n'y a aucun dossier de créer et la message box me dit que le dossier existe déjà

 

[Pierrot93]

Re : Création de sous-dossiers avec combobox

Bonjour,

essaye comme ceci :

Dim chemin As String
chemin = "D:\Documentation\" & ComboBox1.Value & " \ & TextBox1.Value"
If Dir(chemin, vbDirectory) = "" Then MkDir chemin Else MsgBox "Dossier existe..."

A condition que ta combo et ta textbox soient bien valorisées...

bon après midi
@+

 

[pattedechien]

Re : Création de sous-dossiers avec combobox

Je suis novice en la matière et je ne sais pas comment on valorise une combo ou une list box

 

[Pierrot93]

Re : Création de sous-dossiers avec combobox

Je suis novice en la matière et je ne sais pas comment on valorise une combo ou une list box

cela veut dire, qu'il y ait bien des noms de dossiers valides d'afficher dans ces contrôles, lorsque l'instruction est donnée...

 

[pattedechien]

Re : Création de sous-dossiers avec combobox

cela veut dire, qu'il y ait bien des noms de dossiers valides d'afficher dans ces contrôles, lorsque l'instruction est donnée...

Merci Pierrot pour ces réponses.

Le problème est que ma textbox sert à créer le sous-dossier donc il n'existe pas auparavant.

 

[Pierrot93]

Re : Création de sous-dossiers avec combobox

Re,

as tu testé le code donné ??

 

[pattedechien]

Re : Création de sous-dossiers avec combobox

Oui,

Erreur d'excécution '76'
"Chemin d'accès introuvable"

 

[Pierrot93]

Re : Création de sous-dossiers avec combobox

Re,

peut être testé si une valeur manque dans la combo et dans le textbox..;

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..."

mets un point d'arrêt sur ton code (touche F9) et exécute pas à pas (touche F8)...

 

[pattedechien]

Re : Création de sous-dossiers avec combobox

Re,

peut être testé si une valeur manque dans la combo et dans le textbox..;

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..."

mets un point d'arrêt sur ton code (touche F9) et exécute pas à pas (touche F8)...

Lorsque je fait le pas à pas, il reconnaît la valeur de la combobox1 et la valeur de la textbox1 de la première ligne de code
(If ComboBox1.ListIndex = -1 Or TextBox1 = "" Then MsgBox "il manque une donnée...)
mais ensuite il reconnait la valeur de la combobox1 mais pas celle de la textbox1
(chemin = "D:\Documentation\" & ComboBox1.Value & " \ & TextBox1.Value")
Du coup il me remet la même erreur que toute à l'heure

 

[Pierrot93]

Re : Création de sous-dossiers avec combobox

Re,

la variable "chemin" est mal alimentée alors ??? que renvoie "textbox1" dans cette même variable ? et que contient cette "textbox" ?

 

[pattedechien]

Re : Création de sous-dossiers avec combobox

Re,

la variable "chemin" est mal alimentée alors ??? que renvoie "textbox1" dans cette même variable ? et que contient cette "textbox" ?

La textbox ne renvoie rien et elle contient du texte (nom du futur dossier à créer)

 

[pattedechien]

Re : Création de sous-dossiers avec combobox

Un imprim écran pour mieux comprendre.

 

[Pierrot93]

Re : Création de sous-dossiers avec combobox

Re,

aarf, modifie comme suit :

chemin = "D:\Documentation\" & ComboBox1.Value & " \" & TextBox1.Value

 

[pattedechien]

Re : Création de sous-dossiers avec combobox

Impeccable.

Merci beaucoup pour cette aide précieuse

Cordialement,