Discussion :

[cfidko]

Bonjour,

J'ai un formulaire avec lequel je peux créer des répertoires en appuyant. Le chemin des répertoires est dans un autre formulaire "Paramétres" .
J'ai un problème avec mon code VBA concernant le chemin des répertoires.
Il me classe les répertoires dans un chemin quelconque.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MkDir "Chemin.Value" & Numéro.Value & " - " & NAffaire.Value

Formulaire "Créer une Affaire"

Formulaire "Paramètre"


Merci d'avance

[lola06]

Salut,
Tout d'abord il faudrait que tu nous montre ton code parce qu'on peut pas te dire où il y a une erreur si tu nous le montre pas.
C'est quoi exactement ta question ?
Et qu'est ce que tu veux faire exactement ?
Voilà avec ces informations déjà ce sera plus facile de t'aider...

[cfidko]

Voilà le code complet:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
    If Dir("Chemin.Value" & Numéro.Value & " - " & NAffaire.Value,
vbDirectory) > "" Then
          MsgBox ("Cette Affaire existe déjà")
    Else
        MkDir "Chemin.Value" & Numéro.Value & " - " & NAffaire.Value
        MkDir "Chemin.Value" & Numéro.Value & " - " & NAffaire.Value & "\ESQ"
        MkDir "Chemin.Value" & Numéro.Value & " - " & NAffaire.Value & "\ESQ\Secrétariat"
        MkDir "Chemin.value" & Numéro.Value & " - " & NAffaire.Value & "\ESQ\Autocad"
       End If
 
On Error GoTo Err_Créer_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "AFFAIRE"
    DoCmd.Close
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Créer_Click:
    Exit Sub
 
Err_Créer_Click:
    MsgBox Err.Description
    Resume Exit_Créer_Click
 
End Sub

"Chemin.value", c'est censé etre le chemin dans lequel sera stocké les répertoires.Le problème, c'est qu'il stock les répertoires dans "E:\Mes documents", ce qui n'est pas le chemin mis dans le formulaire "Parametre"
Est ce que quelqu'un pourrai m'aidé à corriger ce code?
Merci d'avance.

[it-worker]

Salut,

Est-ce que tu es sûr que la valeur de la chaîne de caractère "chemin" se termine par le caractère "\"?

si non, ton tu devra modifier les lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
MkDir "Chemin.Value" & Numéro.Value & " - " & NAffaire.Value
MkDir "Chemin.Value" & Numéro.Value & " - " & NAffaire.Value & "\ESQ"
MkDir "Chemin.Value" & Numéro.Value & " - " & NAffaire.Value & "\ESQ\Secrétariat"
MkDir "Chemin.value" & Numéro.Value & " - " & NAffaire.Value & "\ESQ\Autocad"

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
MkDir "Chemin.Value" & "\" & Numéro.Value & " - " & NAffaire.Value
MkDir "Chemin.Value" & "\" & Numéro.Value & " - " & NAffaire.Value & "\ESQ"
MkDir "Chemin.Value" & "\" & Numéro.Value & " - " & NAffaire.Value & "\ESQ\Secrétariat"
MkDir "Chemin.value" & "\" & Numéro.Value & " - " & NAffaire.Value & "\ESQ\Autocad"

Je lance la piste!!!

[cfidko]

Ca ne marche toujours pas. J'avais deja penssé à mettre le \ dans le formulaire "Parametre" mais c'était sans succés. Idem en le mettant dans le code VBA.
Je pense que c'est le ".Value" dans "Chemin.value " qui ne va pas.

[it-worker]

Oups .... j'ai pas été vite sur ce coup là ...

Mais enlève les guillemets qui encadre "chemin.value" ...

c'est fort probablement le problème ...
simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
MkDir Chemin.Value & "\" & Numéro.Value & " - " & NAffaire.Value
MkDir Chemin.Value & "\" & Numéro.Value & " - " & NAffaire.Value & "\ESQ"
MkDir Chemin.Value & "\" & Numéro.Value & " - " & NAffaire.Value & "\ESQ\Secrétariat"
MkDir Chemin.value & "\" & Numéro.Value & " - " & NAffaire.Value & "\ESQ\Autocad"

Et à mon avis, ca devrait fonctionner...