Transformer une liste excel en dossiers windows

[sofysofe]

Transformer une liste excel en dossiers windows

Bonjour,

J'ai une liste d'une colonne contenant des noms, et j'aimerai pouvoir créer automatiquement un dossier par nom (l'emplacement à peu d'importance, C:\Temp par exemple).
Mon fichier d'exemple ne contient que quelques noms, celui sur lequel j'aimerai le faire en contient environ 1200.

Merci d'avance pour votre aide !!!

Sofysofe

 

[kjin]

Re : Transformer une liste excel en dossiers windows

Bonjour,
Urgent !?

...j'aimerai pouvoir créer automatiquement un dossier par nom...

Euh, c'est quoi un dossier ?
A+
kjin

 

[sacapatates]

Re : Transformer une liste excel en dossiers windows (URGENT ...)

Un répertoire je pense
mkdir ? )

 

[bvb09]

Re : Transformer une liste excel en dossiers windows (URGENT ...)

Bonjour,

Est-ce ce que tu cherches?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 1 Then
MkDir "C:\" & Target


End If
End Sub


Cordialement

bvb09

 

[MJ13]

Re : Transformer une liste excel en dossiers windows (URGENT ...)

Bonjour à tous

Voir aussi ce post de notre ami Kiki29:

https://www.excel-downloads.com/threads/creer-dossier-enregistrer-dedans.110203/

 

[sofysofe]

Re : Transformer une liste excel en dossiers windows

Bonjour,
Urgent !?

Euh, c'est quoi un dossier ?
A+
kjin

Oui, urgent, je l'ai enlevé ensuite car c'est pas très "poli" en effet.

Je suis surprise que tu ne saches pas ce qu'est un dossier (folder) , c'est un peu la base, non ?

 

[sofysofe]

Re : Transformer une liste excel en dossiers windows (URGENT ...)

Bonjour,

Est-ce ce que tu cherches?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 1 Then
MkDir "C:\" & Target


End If
End Sub


Cordialement

bvb09

Bonjour,

En fait, je ne veux pas que ça me crée, dans Excel, un chemin d'accès, mais que ça crée réellement les dossiers (dans c:\Temp par exemple et je les déplacerai ensuite manuellement dans leur emplacement sur le réseau).
En fait j'ai une liste de noms et je dois créer un dossier par nom, ce qui risque d'être long car j'ai 1500 noms, je me suis donc dit qu'il existait peut-être un moyen pour automatiser ça ...

 

[sacapatates]

Re : Transformer une liste excel en dossiers windows (URGENT ...)

Un truc dans ce genre je pense
sauf qu'ici si le dossier existe deja ca plante

Sub dossier()
Dim i As Integer
Dim rep As String


i = 2
While Sheets(1).Cells(i, 1) <> ""
rep = "C:\" & Sheets(1).Cells(i, 1).Value

MkDir rep

Wend

End Sub

 

[sofysofe]

Re : Transformer une liste excel en dossiers windows (URGENT ...)

Bonjour à tous

Voir aussi ce post de notre ami Kiki29:

https://www.excel-downloads.com/threads/creer-dossier-enregistrer-dedans.110203/

C'est exactement ce que je souhaite faire, mais mes connaissance ne sont pas suffisantes pour l'adapter à mon cas, quelqu'un peut m'aider (encore ...) ?

 

[sofysofe]

Re : Transformer une liste excel en dossiers windows (URGENT ...)

Un truc dans ce genre je pense
sauf qu'ici si le dossier existe deja ca plante

C'est super ! Sauf que :
1. Ca ne créé qu'un dossier
2. Ca plante et quand je fait Debug, ça se met sur la ligne "MkDir rep"

 

[chris]

Re : Transformer une liste excel en dossiers windows (URGENT ...)

Bonjour

Un truc dans ce genre je pense
sauf qu'ici si le dossier existe deja ca plante

Sub dossier()
Dim i As Integer
Dim rep As String


i = 2
While Sheets(1).Cells(i, 1) <> ""
rep = "C:\" & Sheets(1).Cells(i, 1).Value

MkDir rep

Wend

End Sub

Il doit manquer i=i+1
avant le Wend

 

[sacapatates]

Re : Transformer une liste excel en dossiers windows (URGENT ...)

C'est super ! Sauf que :
1. Ca ne créé qu'un dossier
2. Ca plante et quand je fait Debug, ça se met sur la ligne "MkDir rep"

Pour 1 cf reponse de chris
Pour 2

sauf qu'ici si le dossier existe deja ca plante

Sub dossier()
Dim i As Integer
Dim rep As String


i = 2
While Sheets(1).Cells(i, 1) <> ""
rep = "C:\" & Sheets(1).Cells(i, 1).Value

On Error Resume Next
MkDir rep

i = i + 1
Wend

End Sub

 

[MJ13]

Re : Transformer une liste excel en dossiers windows (URGENT ...)

Re

Voir la pièce jointe:

 

[sofysofe]

Re : Transformer une liste excel en dossiers windows (URGENT ...)

Merci !
C'est parfait !

 

[dany.wanono]

Re : Toute petite amélioration

J'ai effectué une petite amélioration. L'utilisateur saisit le chemin du dossier à partir duquel les autres sont créés en C1.
On pourrait d'ailleurs imaginer qu'une boîte de dialogue le permette en sélectionnant cela en cliquant.




Option Explicit
Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
(ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long
Private Sub CreationDossier(sNomRep As String)
'issu d'un code de KiKi29 de https://www.excel-downloads.com/threads/creer-dossier-enregistrer-dedans.110203/
'ChDrive "D"
SHCreateDirectoryEx 0&, sNomRep, 0&
End Sub

Sub Tst()
'issu d'un code de KiKi29 de https://www.excel-downloads.com/threads/creer-dossier-enregistrer-dedans.110203/
Dim Rep As String, nomdeb As String, cel As Range, derl As Double
derl = Range("A65536").End(xlUp).Rows.Row
'nomdeb = "C:\Temp"
nomdeb = Range("C1").Value

For Each cel In Range("A2:A" & derl)
cel.Select
Rep = nomdeb & "\" & ActiveCell.Value
'MsgBox Rep
CreationDossier Rep
Next
End Sub