Discussion :

[guidzit]

Bonjour,

Je cherche à creer une arborescence de dossiers en automatique, je connais la fonction pour creer les dossiers, seulement j'aimerais qu'ACCESS me crée mon architecture de dossier tout seul en fonction des valeurs que j'ai saisie precedemment,

J'ouvre un formulaire, je saisis un nom de client et un nom de dossier, ensuite je valide et sur la validation j'aimerais qu'il me sorte cela:
Exemple:
Je sais comme nom de client: machin
et comme non de dossier: bidule

Sur la validation je voudrais qu'il me sorte l'arborescence

C:\Machin\Bidule\devis...
C:\Machin\Bidule\commande...

etc... la creation des sous dossiers de Bidule ne me pose pas de problemes.

2eme question, quid si je saisis un autre enregistrement avec comme client machin mais comme nom de dossier truc?

Va t il me creer un C:\Machin(1)\Truc...

Ou aurai je deux sous dossiers dans mon repertoire Machin???

Merci

[pgz]

Bonjour,

Le plus simple me semble à chaque fois que tu as besoin d'un répertoire de regarder s'il existe et sinon de le créer. Idée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim sRepClient as String, sRepDossier As String
sRepClient = "C:\" & NomClient
sRepDosier = sREpClient & "\" & NomDossier
On Error Resume Next
GetAttr (sRepClient)
If Err.Number <>0 Then MkDir(sRepClient)
GetAttr(sRepDossier)
If Err.NumBer <>0 Then MkDir(sRepDossier)
' à partir de là les répertoires existent
Err.Clear
On Error GoTo 0
...

Voilà on crée à chaque fois les répertoires utiles, mais pas s'ils existent déjà.
A mettre au point, bien sûr.

Bon courage,

PGZ

[guidzit]

Ok merci, je jette un coup d'oeil la dessus

Je te tiens au courant

[guidzit]

La création des dossiers en fonction des parametres saisis fonctionne, mais j'ai un probleme pour creer les dossiers suivants!

Mon 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
17
 Dim srepclient As String, srepdossier As String, srepcao As String, srepfao As String
    srepclient = "C:\" & Client
    srepdossier = srepclient & "\" & [Nom de dossier] & "_" & [Numéro de dossier]
    srepcao = srepdossier & "\" & CAO
    srepfao = srepdossier & "\" & fao
    On Error Resume Next
    GetAttr (srepclient)
    If Err.Number <> 0 Then MkDir (srepclient)
    GetAttr (srepdossier)
    If Err.Number <> 0 Then MkDir (srepdossier)
    GetAttr (srepcao)
    If Err.Number <> 0 Then MkDir (srepcao)
    GetAttr (srepfao)
    If Err.Number <> 0 Then MkDir (srepfao)
 
    Err.Clear
    On Error GoTo 0

Il me cree bien le chemine c:\nom de client\nom de dossier\CAO, mais pas c:\nom de client\nom de dossier\FAO ! J'avoue ne pas comprendre!

Merci

[guidzit]

c'est bon j'ai rien dis, probleme corrigé :p
Manque juste des crochets

Dur dur le Lundi matin