créer des dossiers windows à partir de contenu de cellule

[lili54]

Bonjour à tous les xlnautes!
j'ai un gros problème!!!
je cherche à créer autant de dossier windows( les jaunes!!!) qu'il y a de cellule pleine et de plus portant le même nom que le contenu de ces cellules!
il y a t'il une solution ?
merci .

 

[Épaf]

Re : créer des dossiers windows à partir de contenu de cellule

Déjà, regarde Mkdir, dans l'aide, nos explications ne seront pas meilleures que celles qu'elle te donnera
Pour créer un répertoire, tu dois d'abord indiquer le répertoire parent. Ex :

Chemin = "C:\LeParent\"
Mkdir Chemin & Cells(NoLigne, NoCol)

va te créer le répertoire correspondant au contenu de la cellule(NoLigne, NoCol)
Pour parcourir la plage de cellule concernée

Dim cell as range, chemin as string
Chemin = "C:\LeParent\"
For each Cell in Range("A1:A" & range("A65536).end(xlup).row)
     if cell <>"" then
           NomRep = Cell
           Mkdir Chemin & Cell
     endif
Next

Tu adaptes la colonne (ici A) et Chemin

 

[lili54]

Re : créer des dossiers windows à partir de contenu de cellule

Merci Epaf, de ta rapide réponse, mais je ne sais pas programmer!!
j'ai essayé donc de créer une macro suivant tes conseils, la voici:

Sub dossier()
Chemin = "C:\lespatients\"
MkDir Chemin & Cells(Noligne, Nocol)
Dim cell As Range
Dim Chemin As String
Chemin = "C:\lespatients\"
For Each cell In Range("B1:B" & Range("B65536").End(xlUp).Row)
If cell <> "" Then
NomRep = cell
MkDir Chemin & cell
End If
Next
End Sub

mais lorsque je veux l'executer il me signale erreur de compilation : déclaration existante dans la portée en cours au niveau de chemin as string
je ne comprends pas !!!!
peux tu encore une fois m'aider , merci.

 

[Épaf]

Re : créer des dossiers windows à partir de contenu de cellule

Tes déclarations doivent être en tête de macro. Dans ton code, tu affectes une valeur à Chemin avant la déclaration

Chemin = "C:\lespatients\"
MkDir Chemin & Cells(Noligne, Nocol)
Dim cell As Range
Dim Chemin As String

En outre tu recommences à affecter le chemin à la ligne suivante 😉

Rien à corriger au code de carcharodon-carcharias si ce n'est une variable aussi inutile que dans mon code : NomRep,

If cell <> "" Then
[COLOR="red"]NomRep = cell[/COLOR]
MkDir chemin & cell.Value

Tu peux simplifier en mettant

           If cell <> ""  then Mkdir Chemin & Cell

Si tu fais ainsi, tu n'as à déclarer que le chemin et Cell

Dim Cell as range, Chemin as string

toujours en tête de macro.

 

[coxsurf]

Re : créer des dossiers windows à partir de contenu de cellule

bonjour,
je viens de tester ce code
il marche sauf quand un répertoire existe déjà
comment on peut faire pour qu'il ne fasse que pour les nouvelles cellules
en gros j'ai utilisé la macro
et j'ai rajouté après des lignes ,donc des nouveau répertoires a créer sans devoir effacer ceux crée precedement
merci
Sub nouveau_dossier()
Dim cell As Range
Dim chemin As String, NomRep
chemin = "C:\essai\"

For Each cell In Range("A2:A" & Range("A65536").End(xlUp).Row)
'remplace les a par la colonne consernée
If cell <> "" Then
NomRep = cell

MkDir chemin & cell.Value
End If
Next
End Sub

 

[tototiti2008]

Re : créer des dossiers windows à partir de contenu de cellule

Bonjour à tous,

ajoute un On Error resume next juste après les lignes Dim. ça veut dire, s'il y a une erreur, continue sans faire l'action...

 

[coxsurf]

Re : créer des dossiers windows à partir de contenu de cellule

effectivement c'est nickel
et si je veux copier des repertoires
qui sont dans "c:\type" dans les repertoires que la macro a crée
merci d'avance

 

[coxsurf]

Re : créer des dossiers windows à partir de contenu de cellule

En fait c'est une question😀
peut t'on copier le contenu d'un repertoire type (des repertoires et fichiers)
dans les repertoire que la macro a crée?
merci
j'ai trouvé des solutions sur le forum pour des chemin bien specifique mais pas dans mon cas
Sub nouveau_dossier()
Dim Cell As Range, Chemin As String
Chemin = "C:\essai\"
On Error Resume Next

For Each Cell In Range("A2:A" & Range("A65536").End(xlUp).Row)
'remplace les a par la colonne consernée
If Cell <> "" Then MkDir Chemin & Cell
ChDir Chemin & Cell.Value

Next
End Sub