XL 2016 Création de répertoires

[christ77000]

Bonjour à tous, j'aurais besoin d'un petit coup de main pour savoir s'i y avait un moyen pour faire plus simple. Vu mon niveau en vba j'ai pas su faire mieux

explications : dans ma feuille Menu j'ai de R1 à R25 le chemin réseau des différents répertoires et en S1 le nom du nouveau répertoire à créer.

Merci pour votre aide.

Sub Creation_Dossiers()

Chemin = Range("R1").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire Quick Kaizen EQ.1 ---
Chemin = Range("R2").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire Quick Kaizen EQ.2 ---
Chemin = Range("R3").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire Quick Kaizen EQ.3 ---
Chemin = Range("R4").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire Quick Kaizen EQ.4 ---
Chemin = Range("R5").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire Quick Kaizen EQ.5 ---
Chemin = Range("R6").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire EWO volet 1 EQ.1 ---
Chemin = Range("R7").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire EWO volet 1 EQ.2 ---
Chemin = Range("R8").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire EWO volet 1 EQ.3 ---
Chemin = Range("R9").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire EWO volet 1 EQ.4 ---
Chemin = Range("R10").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire EWO volet 1 EQ.5 ---
Chemin = Range("R11").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire EWO volet 3 EQ.1 ---
Chemin = Range("R12").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire EWO volet 3 EQ.2 ---
Chemin = Range("R13").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire EWO volet 3 EQ.3 ---
Chemin = Range("R14").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire EWO volet 3 EQ.4 ---
Chemin = Range("R15").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire EWO volet 3 EQ.5 ---
Chemin = Range("R16").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire Avant-Après EQ.1 ---
Chemin = Range("R17").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire Avant-Après EQ.2 ---
Chemin = Range("R18").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire Avant-Après EQ.3 ---
Chemin = Range("R19").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire Avant-Après EQ.4 ---
Chemin = Range("R20").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire Avant-Après EQ.5 ---
Chemin = Range("R21").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire Projet Equipe EQ.1 ---
Chemin = Range("R22").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire Projet Equipe EQ.2 ---
Chemin = Range("R23").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire Projet Equipe EQ.3 ---
Chemin = Range("R24").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire Projet Equipe EQ.4 ---
Chemin = Range("R25").Value
MkDir (Chemin & Sheets(1).Range("S1").Value) '---nouveau répertoire Projet Equipe EQ.5 ---

End Sub

 

[Staple1600]

Bonsoir le fil, et ses intervenants

[aparté]

Mais c'est là un autre aspect et (une autre fois) le propriétaire d'une machine est seul à décider ceci ou cela sur sa machine

Pas d'accord (je parle d'un PC sous Windows)
L'utilisateur lambda laisse souvent la porte ouverte

The Windows 10 Privacy Settings You Should Check Right Now

Whether you're new to Windows 10 or have been using it for years, take a minute to lock down your privacy.

www.wired.com

Parfois je regrette mon bon vieux W98SE
[/aparté]

 

[jmfmarques]

Bonjour kiki29
C'est de très loin sous Windows, la meilleure solution en ce sens qu'elle ne crée que le nécessaire.
Elle ne saurait toutefois être mise en oeuvre sous Mac
Amitiés

 

[jmfmarques]

Bonjour Staple1600

Parfois je regrette mon bon vieux W98SE

ouais ... J'en arrive personnellement à regretter les lecteurs de disquettes en ce sens qu'il suffisait d'une épingle pour faire un trou sur une disquette et en empêcher ainsi la duplication, sauf à tâtonner des heures et des heures et à "bousiller" plusieurs disquettes dans la foulée.
On ne peut pas être et avoir été, hélas.

 

[Staple1600]

Re

[aparté bis]
Je disais juste que sur un PC sous Windows , le véritable propriétaire, c'est pas le péquin qui a sorti les pépètes, mais Windows
(Et que c'est la croix et la bannière pour pouvoir maîtriser "librement" l'OS de A à Z)
[/aparté bis]

 

[jmfmarques]

Il est en effet plus que certain, Jean-Marie, que le logeur en connaît toujours beaucoup plus que le locataire en ce qui concerne le fonctionnement de la chaudière,