XL 2016 Création de répertoires

christ77000 · 24 Avril 2020

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.

VB:

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

patricktoulon · 24 Avril 2020

re

christ77000 à dit:
Merci beaucoup pour votre aide, cela fonctionne très bien et surtout plus court , pour ma compréhension personnel c'est quoi la différence entre Sheets(1) et Sheets("Menu") car quand je mets Sheets("Menu") ca ne fonctionne pas.
Et je me suis rendu compte que si je clic 2 fois ca plante, certainement du au faite que les répertoires existes déjà comment palier a cela.

VB:

Sub Creation_Dossiers()
 dim chemin$
 with sheets(1)
    For i = 1 To 25
       chemin=.Range("R" & i) & .Range("S1")
       if dir(chemin,vbdirectory)="" then MkDir (chemin )
    Next i
end with
End Sub

Staple1600 · 24 Avril 2020

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 · 24 Avril 2020

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 · 24 Avril 2020

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 · 24 Avril 2020

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 · 24 Avril 2020

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,

XL 2016 Création de répertoires

christ77000

XLDnaute Occasionnel

patricktoulon

Staple1600

XLDnaute Barbatruc

The Windows 10 Privacy Settings You Should Check Right Now

jmfmarques

XLDnaute Accro

jmfmarques

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

Discussions similaires