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

Version imprimable

Voir 40 message(s) de cette discussion en une page

11/06/2007, 13h03
cfidko

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

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:

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

Formulaire "Créer une Affaire"
http://img249.imageshack.us/img249/5...stitre1pb9.jpg
Formulaire "Paramètre"
http://img249.imageshack.us/img249/1...nstitreza9.jpg

Merci d'avance
11/06/2007, 13h43
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...

Voilà le code complet:

Code:

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.

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:

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:

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!!! ;)

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

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:

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

;):mouarf:

11/06/2007, 21h08
cfidko

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. :koi:
Je ne comprends plus rien. :help:
11/06/2007, 21h36
Domi2

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 :D

Domi2
11/06/2007, 22h38
cfidko

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.
12/06/2007, 05h33
AlainTech
Un début de code?

Voilà:
Code:

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.

Ca ne marche toujours pas.
Voici le code :
Code:

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.

13/06/2007, 03h52
AlainTech

Citation:

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?
13/06/2007, 09h04
cfidko

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

http://www.casimages.com/img/jpg/min...4044693840.jpg

"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.
13/06/2007, 11h22
AlainTech

Citation:

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.
25/06/2007, 15h27
cfidko

Bonjour,

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

Code:

Forms![PARAMETRE]![MaZoneDeText]
25/06/2007, 18h48
AlainTech

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?

Voici le code en entier :

Code:

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 :

http://www.casimages.com/img/jpg/070626112319761557.jpg

La zone texte s'appelle effectivement Chemin.

26/06/2007, 11h43
Trini
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:

1 2 3 4 5 Private Sub Créer_Click() Chemin.Value = Me.Chemin ....
26/06/2007, 11h57
cfidko

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".
26/06/2007, 12h06
Trini

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

Voir 40 message(s) de cette discussion en une page