[gbinforme]

bonsoir,

Comme tu introduis un répertoire supplémentaire, il faut aussi le créer, et donc rajouter :

If Dir(Chemin1 ), 16) = "" Then MkDir Chemin1


avant le contrôle :

If Dir(Chemin1 & Client, 16) = "" Then MkDir Chemin1 & Client

et idem pour Chemin2 bien sûr !