Discussion :

[HABILER]

Bonsoir la Communauté,

Je voudrais créer un répertoire employé reprenant de sous-répertoires correspondant au numero d'un employé.

En bref dans un répertoire employé si le sous-répertoire X (numéro de l'employé) n'existe pas , celui-ci doit ëtre créé.

Merci d'avance

Habiler

[ClaudeLELOUP]

Bonjour,

Regarde ici, il y a un exemple : http://claudeleloup.developpez.com/t...s-types/#LIV-B

[HABILER]

Le probleme est que j'ai 800 personnes dont il faut créer un répertoire.

Je voudrais donccréer ces répertoires en une opération one-shot.

Bien à vous

Habiler

[ClaudeLELOUP]

Tu écris une boucle :

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
Option Compare Database
Option Explicit
 
Private Sub BtRep_Click()
 
  On Error GoTo GestionErreurs
  Dim sRepPrincipal As String
  Dim rst As Recordset
 
  'Créer le répertoire principal s'il n'existe pas encore
  sRepPrincipal = "c:\Personnel"      '<------------------À adapter
  MkDir sRepPrincipal
 
  'Lire les enregistrements de la table un à un
  Set rst = CurrentDb.OpenRecordset("LaTable")
  Do While Not rst.EOF
    MkDir sRepPrincipal & "\" & rst("NumEmploye")
    rst.MoveNext
  Loop
GestionErreurs:
  Select Case Err.Number
    Case 0 ' pas d'erreur
      Exit Sub
    Case 75 'le dossier existe déjà
      Resume Next
    Case Else
      MsgBox "Erreur dans CreerDosPatient" & " " & Err.Number & " " & Err.Description
  End Select
 
End Sub