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

É

Épaf

XLDnaute Occasionnel

• 3 Octobre 2007

• #2

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 :

Code:

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

Code:

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

 

Vote positif 0 Vote négatif

L

lili54

Guest

• 3 Octobre 2007

• #3

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.

 

Vote positif 0 Vote négatif

É

Épaf

XLDnaute Occasionnel

• 3 Octobre 2007

• #4

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

Cliquez pour agrandir...

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,

Code:

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

Tu peux simplifier en mettant

Code:

           If cell <> ""  then Mkdir Chemin & Cell

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

Code:

Dim Cell as range, Chemin as string

toujours en tête de macro.

 

Vote positif 0 Vote négatif

C

coxsurf

Guest

• 5 Septembre 2008

• #5

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 5 Septembre 2008

• #6

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

 

Vote positif 0 Vote négatif

C

coxsurf

Guest

• 5 Septembre 2008

• #7

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

 

Vote positif 0 Vote négatif

C

coxsurf

Guest

• 5 Septembre 2008

• #8

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

 

Vote positif 0 Vote négatif