Macro pour creation de dossier automatique

suistrop

XLDnaute Impliqué

• 10 Mai 2011

• #2

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 :

Code:

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

 

Vote positif 0 Vote négatif

P

post prod

XLDnaute Occasionnel

• 10 Mai 2011

• #3

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)

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 10 Mai 2011

• #4

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 🙂

 

Pièces jointes

• 00 - post prod.xls

  41 KB · Affichages: 518

Vote positif 0 Vote négatif

P

post prod

XLDnaute Occasionnel

• 10 Mai 2011

• #5

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

 

Dernière édition: 10 Mai 2011

Vote positif 0 Vote négatif

P

post prod

XLDnaute Occasionnel

• 10 Mai 2011

• #6

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 10 Mai 2011

• #7

Re : Macro pour creation de dossier automatique

Re-bonjour,

post prod à dit:

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

Cliquez pour agrandir...

Et moi, j'ai lu trop rapidement 😱.

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 10 Mai 2011

• #8

Re : Macro pour creation de dossier automatique

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

VB:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Mai 2011

• #9

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
@+

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 10 Mai 2011

• #10

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 :

Code:

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 🙂.

 

Vote positif 0 Vote négatif