Créer des répertoires à partir d"une table access via VBA

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

Bonjour,

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

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

Tu écris une boucle :

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

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

---