Problèmes création de dossiers

doscai · 8 Juin 2010

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 · 8 Juin 2010

Re : Problèmes création de dossiers

doscai à dit:
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 · 8 Juin 2010

Re : Problèmes création de dossiers

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

Efgé · 8 Juin 2010

Re : Problèmes création de dossiers

Bonjour doscai, chipriote,
Une proposition:

Code:

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 · 8 Juin 2010

Re : Problèmes création de dossiers

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

Problèmes création de dossiers

doscai

XLDnaute Nouveau

chipriote

XLDnaute Occasionnel

doscai

XLDnaute Nouveau

Efgé

XLDnaute Barbatruc

doscai

XLDnaute Nouveau

Discussions similaires