MkDir et création multi répertoires

Re,

Merci, ça marche

Comment dois-je faire pour créer un second sous-répertoire 'Récup données ' tel que :

disque:\Commun\Récup données\Equipe 1

Merci d'avance.

Cap

re,

Tu vas le module où se trouve le code et tu remplaces l'instruction

dsk = Sheets("Liste").Range("B2") & ":\commun\"

par

dsk = Sheets("Liste").Range("B2") & ":\commun\Récup données\"

D'une manière plus générale, évite les accents dans les noms de répertoire.

Idem pour les noms de fichiers et feuilles.

Amicalement

Dan

Salut le forum

Mkdir ne peut créer des répertoire multiples

Mkdir C:\Excel Ok ca passe

mais si C:\Excel n'existe pas

Mkdir ne peut pas faire C:\Excel\Data en une seul commande

Mytå

re,

Evidemment comme Myta le souligne (merci à toi de cette précision), "mkdir" ne va pas créer deux répertoires d'un coup.

Dans ma réponse j'ai supposé que ton répertoire RECUP DONNEES était déjà créé. Si ce n'est pas le cas, il faut s'y prendre autrement.

A te relire

Dan

OK, ça marche.

J'ai fait deux listes de codes pour créer les réperts l'un après l'autre.

Et comme le dit très justement Myta, le répertoire ne peut pas être créé si le fichier Excel n'est pas sur le répertoire d'appel.

MERCI à vous tous pour votre aide très précieuse.

Je clos le sujet.

Bonne semaine.

Cap