Problème d'un Code VBA pour créer un répertoire

**cfidko** · 11/06/2007, 13h03

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** · 11/06/2007, 13h43

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** · 11/06/2007, 19h45

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** · 11/06/2007, 20h12

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** · 11/06/2007, 20h25

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** · 11/06/2007, 20h43

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

**cfidko** · 11/06/2007, 21h08

Toujours pas,cette fois il ne me créer rien.
Par contre j'ai essayé de créer une zone de liste de la Table "Paramètre" dans le Formulaire "Créer une affaire", il me créer les répertoires mais dans le chemin "E:\" .
En elevant " & "\" " dans ke code,il me les crée dans " E:\Mes document". Et le pire c'est que meme si je ne met aucun chemin dans le Formulaire "Parametre", il créer les répertoires.

Je ne comprends plus rien.

**Domi2** · 11/06/2007, 21h36

Bonsoir,

Ton problème vient de la façon dont tu récupères le chemin de ton répertoire...

Tout d'abord, dans ton code, pendant le temps du débogage, mets une msgbox qui affiche le paramètre (le nom de ton chemin).

Ensuite, si ton formulaire est affiché à l'écran (ce qui ne me semble pas une bonne idée), tu peux effectivement passer ton chemin en variable, avec Me.Chemin, etc... Mais ce n'est pas la solution vraiment adéquate...

L'idée de la table paramètre est très bonne

Le formulaire basé sur cette table pour modifier le chemin aussi

Maintenant, pour récupérer le chemin en variable, intéresse toi à la fonction DLookup... C'est à dire que tu vas aller rechercher directement la valeur dont tu as besoin dans la table Paramètres, sans passer par le formulaire.

Regarde dans l'aide et fais des recherches sur le forum, les exemples sont très nombreux.

Courage, tu tiens le bon bout

Domi2

**cfidko** · 11/06/2007, 22h38

Je pense que je suis au bout, mais la corde est coupée.
J'arrive pas.Est ce que quelqu'un pourrai me donner un début du code ?
Merci d'avance.

**AlainTech** · 12/06/2007, 05h33

Un début de code?

Voilà:

Code :

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

1
2
3
Dim strDirPath As String
strDirPath = Chemin.Value & "\" & Numéro.Value & " - " & NAffaire.Value
MsgBox strDirPath

Il faudrait arrêter de coder "au petit bonheur la chance".
Quand quelque chose ne fonctionne pas comme on voudrait, on en analyse les causes possibles.

**cfidko** · 13/06/2007, 00h37

Ca ne marche toujours pas.
Voici le code :

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
    Dim varX As Variant
    varX = DLookup("[Chemin]", "PARAMETRE")
 
    Dim strDirPath As String
    strDirPath = "Chemin.value"
    MsgBox strDirPath
 
    If Dir(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

Tout d'abord, il me met "Chemin.value" comme chemin. Ensuite, il faut que j'enlève " & "\" " pour qu'il crée les répertoires et enfin, il crée les répertoires dans "C:\Documents and Settings\X\Mes documents", ce qui n'est pas le chemin indiqué dans le formulaire "Parametre".
Je n'y arrive vraiment pas. Est ce que quelqu'un peut m'aider svp ?
J'en ai vraiment besoin pour avancer dans mon projet.

Merci d'avance.

**AlainTech** · 13/06/2007, 03h52

Envoyé par AlainTech

Il faudrait arrêter de coder "au petit bonheur la chance".

Je te donne un code et tu le modifies...

Qu'affiche le code que je t'ai donné?

A quoi te sers varX?

D'où vient Numéro.Value?

**cfidko** · 13/06/2007, 09h04

1ere erreur: "Erreur d'éxecution '424' " , Objet requis
Je ressaye en mettant chemin.value entre guillemets.

"varX", c'était simplement pour tester la fonction DloockUp mais ca ne marche pas pour l'instant.
Numéro.value, c'est le Numéro de l'affaire qu'il va récuperer dans le formulaire.
Les répertoires vont se nommé par exemple : 898 - JPD ; Le numéro de l'affaire suivie du nom de l'affaire.

**AlainTech** · 13/06/2007, 11h22

Envoyé par cfidko

1ere erreur: "Erreur d'éxecution '424' " , Objet requis
Je ressaye en mettant chemin.value entre guillemets.

C'est exactement ça que j'appelle programmer au petit bonheur la chance!
Si tu mets des guillemets, tu vas obtenir la chaîne de caractères "Chemin.Value".
C'est ce qu'on voit dans le MsgBox.
Le message d'erreur n'est pas là pour essayer de le contourner mais pour dire où se situe l'erreur.
Dans ton cas, il dit qu'il ne connait pas l'objet Chemin.

Et ça me paraît logique car tu ne dis pas à quel Form ce contrôle appartient.

**cfidko** · 25/06/2007, 15h27

Bonjour,

J'ai trouver le code pour atteindre le controle d'un autre formulaire mais j'arrive pas à récuperer le récuperer.

Code :

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

Forms![PARAMETRE]![MaZoneDeText]

**AlainTech** · 25/06/2007, 18h48

Si tu nous donnais le vrai code que tu utilises, tu ne penses pas qu'on s'en sortirait mieux?

Ta zone de texte ne s'appelle-elle pas chemin?

**cfidko** · 26/06/2007, 11h34

Voici le code en entier :

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
28
29
30
31
32
33
34
35
36
Private Sub Créer_Click()
 
    Chemin.Value = Forms![PARAMETRE]![Chemin]
    Dim strDirPath As String
    strDirPath = Chemin.Value & "\" & Numéro.Value & " - " & NAffaire.Value
    MsgBox strDirPath
 
    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
    End If
 
        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"
 
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

Il me met un erreur :

La zone texte s'appelle effectivement Chemin.

**Trini** · 26/06/2007, 11h43

Bonjour,

Vu l'erreur :
Ton formulaire se nomme bien PARAMETRE ?
Est-il toujours bien ouvert quand la procédure Créer_Click() est appellée ?

Si la procédure Créer_Click() se trouve dans le formulaire PARAMETRE tu peux simplifier l'écriture du code par :

Code :

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

1
2
3
4
5
 
Private Sub Créer_Click()
 
    Chemin.Value = Me.Chemin 
....

**cfidko** · 26/06/2007, 11h57

Ouais il s'appel toujours PARAMETRE.
Non, il n'est pas ouvert quand la procédure Créer_Click() est appellée et il ne doit pas etre ouvert.
la procédure Créer_Click() ne se trouve pas dans le formulaire "PARAMETRE "mais dans le formulaire "Créer une nouvelle Affaire".

**Trini** · 26/06/2007, 12h06

Si tu veux lire le contenu d'un champ d'un formulaire, y faut que celui-ci soit ouvert, obligé, sinon faut trouver une autre soluce....
- Passer le chemin dans le formulaire "Créer une nouvelle Affaire" avant que le formulaire PARAMETRE ne se ferme
- En variable Global (à éviter à mon avis...)
- Laisser le formulaire PARAMETRE ouvert

Problème d'un Code VBA pour créer un répertoire

VBA Access

Discussions similaires

Partager

Partager