Problèmes création de dossiers

[doscai]

Bonjour,

Je souhaite créer plusieurs dossiers d'après une liste de nom depuis une colonne.

La macro que je tapée ci-dessous marche mais que pour une cellule alors que je souhaite avoir la colonne entière.

J'ai essayé avec columns mais sa ne marche pas.
Pouvez-vous m'aider svp ?

Sub Macro5()
dossier = Cells(1, 1).Value
Chemin = "C:\Documents and Settings\dcn\Mes documents\"
If Dir(Chemin & dossier) = "" Then MkDir Chemin & dossier
End Sub

Ps: Débutant

 

[chipriote]

Re : Problèmes création de dossiers

Bonjour,

Je souhaite créer plusieurs dossiers d'après une liste de nom depuis une colonne.

La macro que je tapée ci-dessous marche mais que pour une cellule alors que je souhaite avoir la colonne entière.

J'ai essayé avec columns mais sa ne marche pas.
Pouvez-vous m'aider svp ?

Sub Macro5()
dossier = Cells(1, 1).Value
Chemin = "C:\Documents and Settings\dcn\Mes documents\"
If Dir(Chemin & dossier) = "" Then MkDir Chemin & dossier
End Sub

Ps: Débutant

remplacer dossier = Cells(1, 1).Value
par dossier = range(b:b).Value
(si colonne B)

 

[doscai]

Re : Problèmes création de dossiers

J'ai essayé dossier = range(a:a).Value
mais il me met erreur de syntaxe !!!!

 

[Efgé]

Re : Problèmes création de dossiers

Bonjour doscai, chipriote,
Une proposition:

Sub Macro5()
[COLOR=seagreen]'Pour toute les cellule dans la plage A1 : A et dernière ligne remplie de la colonne A[/COLOR]
For Each c In Range("A1:A" & Range("A" & Application.Rows.Count).End(xlUp).Row)
    dossier = c.Value
    Chemin = "C:\Documents and Settings\dcn\Mes documents\"
    If Dir(Chemin & dossier) = "" Then MkDir Chemin & dossier
'Cellule suivante
Next c
End Sub

Cordialement

 

[doscai]

Re : Problèmes création de dossiers

Merci mais c'est bon j'ai trouvé.