Macro pour creation de dossier automatique

[post prod]

bonjour a tous
jaimerai savoir si il est possible de faire une macro qui creer des dossier a partir d'une liste de nom
j'ai une liste de 300 noms de batiment dans la colonne A et je dois creer 300 dossiers avec leur noms respectif dans "mes documents"
j'avais deja eu des debut de reponse mais je ne m'en sort pas
merci d'avance pour vos reponses

 

[suistrop]

Re : Macro pour creation de dossier automatique

Salut,

Avec une boucle sur ta liste de nom et en utilisant le code ci dessous ca doit le faire :

If Len(Dir(dossier_essai, vbDirectory)) = 0 Then
MkDir dossier_essai
End If

La condition IF est pour vérifier que le dossier n'existe pas avant de le creer.

Suistrop

 

[post prod]

Re : Macro pour creation de dossier automatique

bonjour suistrop merci pour ta reponse
mais ces quoi faire une boucle sur la liste de nom ( moi etre gros debutant)

 

[DoubleZero]

Re : Macro pour creation de dossier automatique

Bonjour, post prod, suistrop, le Forum,

Un essai en pièce jointe, grâce à un code de Robert.

Dans le code, penser à changer les xxxxxxxxxx par le nom de l'utilisateur.

Bon courage

 

[post prod]

Re : Macro pour creation de dossier automatique

merci doublezero genial ca marche un grand MERCI ca va m'eviter des tonnes de creation de dossier
excuse moi doublezero j'ai parler trop vite
ta macro fonctionne mais elle me crer des fichier excel avec les noms
en fait moi j'ai besoin de creer des DOSSIERS

 

[post prod]

Re : Macro pour creation de dossier automatique

excuse moi doublezero j'ai parler trop vite
ta macro fonctionne mais elle me crer des fichier excel avec les noms
en fait moi j'ai besoin de creer des DOSSIERS

 

[DoubleZero]

Re : Macro pour creation de dossier automatique

Re-bonjour,

... j'ai parler trop vite ...

Et moi, j'ai lu trop rapidement .

Il doit bien y avoir une solution dans le forum. Je vais faire des recherches...

 

[Efgé]

Re : Macro pour creation de dossier automatique

Bonjour post prod, suistrop ,Bonjour DoubleZero ,
Une proposition;

Sub Crea_dossiers()
Dim C As Range, Chemin$, Classeur$
Chemin = ThisWorkbook.Path & "/"
For Each C In Range("a1:a" & Range("a65535").End(xlUp).Row)
    If C.Value <> "" Then
        Classeur = C.Value
        If Dir(Chemin & Classeur, vbDirectory) = "" Then MkDir Chemin & Classeur
    End If
Next C
End Sub

et un fil où on créait un fichier par jour dans un classeur par mois
Cordialement

 

[Pierrot93]

Re : Macro pour creation de dossier automatique

Bonjour à tous,

tu avais posé la question déjà ici :
https://www.excel-downloads.com/threads/macro-pour-creation-de-dossier.162771/

de plus tu n'avais pas donné suite aux réponses données...

bonne journée
@+

 

[DoubleZero]

Re : Macro pour creation de dossier automatique

Re-bonjour, bonjour Efgé , bonjour Pierrot93 ,

Merci d'être intervenus !

En faisant des recherches pour post prod, j'ai bien trouvé ton code, Pierrot93, mais je n'arrivais pas à résoudre ce problème :

MkDir "C:\Documents\" & Cells(i, 1).Value

Cette ligne est surlignée .

Tout fonctionne parfaitement avec ton code, Efgé.

Bon appétit et à bientôt .