OVH Cloud OVH Cloud

creation de dossier en fonction d'une liste excel

5 réponses
Avatar
thierry schweitzer
Bonsoir

J'ai une liste de 196 dossiers, structure d'un system d'archivage, qui doit
etre utiliser par une Cinquantaine d'utilisateur
JE voudrais fournir a chaque utilisateur un repertoire contenant tout les
repertoires possible, chaque utilisateur effacera les repertoires qui ne
sont pas necessaires.

J'ai eu beau cherché le net et Excel Labo, je nai pas trouvé un outil pour
créer des repertoires en fonction d'une liste texte ou excel.

Est ce qu'il y aurais une ame charitable pour m'aider, j'avoue ne pas avoir
trop envie de creer 196 repertoires a la main !!!
Excel + Vbasic devrais pouvoir faire ca !!


Merci en avance de votre aide

Thierry

5 réponses

Avatar
Mousnynao
Bonjour,

en supposant que la liste est en colonne A
et commence en ligne 1
sélectionner la première cellule
et lancer cette macro :

Sub CreationDossierUtilisateur()

Dim NomRep As String

' Se positionner dans le bon dossier
' de départ
ChDir ("C:Dossier")
NomRep = ActiveCell.Value
While (NomRep <> "")
MkDir NomRep
ActiveCell.Offset(1, 0).Select
NomRep = ActiveCell.Value
Wend

End Sub

mousnynao



Bonsoir

J'ai une liste de 196 dossiers, structure d'un system d'archivage, qui doit
etre utiliser par une Cinquantaine d'utilisateur
JE voudrais fournir a chaque utilisateur un repertoire contenant tout les
repertoires possible, chaque utilisateur effacera les repertoires qui ne
sont pas necessaires.

J'ai eu beau cherché le net et Excel Labo, je nai pas trouvé un outil pour
créer des repertoires en fonction d'une liste texte ou excel.

Est ce qu'il y aurais une ame charitable pour m'aider, j'avoue ne pas avoir
trop envie de creer 196 repertoires a la main !!!
Excel + Vbasic devrais pouvoir faire ca !!


Merci en avance de votre aide

Thierry





Avatar
thierry schweitzer
Mousnyna

merci de ta reponse, j'ai changer le repertoire de destination pour
c:Dossier qui existe sur le DD
je me positionne en A1, debut de la liste et lance la macro qui ce deroule
normalement le curseur descend jusqu'a la derniere cellule non vide et puis
s'arrete, mais il n'y a pas de repertoire creer dans c:temp !!!

Est ce qu'il ne faudrait pas que
NomRep = ActiveCell.Value
soit dans la boucle while - wend ??

merci par avance de ta reponse

thierry


"Mousnynao" a écrit dans le message de
news:
Bonjour,

en supposant que la liste est en colonne A
et commence en ligne 1
sélectionner la première cellule
et lancer cette macro :

Sub CreationDossierUtilisateur()

Dim NomRep As String

' Se positionner dans le bon dossier
' de départ
ChDir ("C:Dossier")
NomRep = ActiveCell.Value
While (NomRep <> "")
MkDir NomRep
ActiveCell.Offset(1, 0).Select
NomRep = ActiveCell.Value
Wend

End Sub

mousnynao



Bonsoir

J'ai une liste de 196 dossiers, structure d'un system d'archivage, qui
doit
etre utiliser par une Cinquantaine d'utilisateur
JE voudrais fournir a chaque utilisateur un repertoire contenant tout les
repertoires possible, chaque utilisateur effacera les repertoires qui ne
sont pas necessaires.

J'ai eu beau cherché le net et Excel Labo, je nai pas trouvé un outil
pour
créer des repertoires en fonction d'une liste texte ou excel.

Est ce qu'il y aurais une ame charitable pour m'aider, j'avoue ne pas
avoir
trop envie de creer 196 repertoires a la main !!!
Excel + Vbasic devrais pouvoir faire ca !!


Merci en avance de votre aide

Thierry







Avatar
thierry schweitzer
Mousnynao

En faite les repertoires sont bien creer, mais dans le repertoire "mes
document" !!!
Ca marche a moitié, mais bon ca marche quant meme

amities

thierry


"Mousnynao" a écrit dans le message de
news:
Bonjour,

en supposant que la liste est en colonne A
et commence en ligne 1
sélectionner la première cellule
et lancer cette macro :

Sub CreationDossierUtilisateur()

Dim NomRep As String

' Se positionner dans le bon dossier
' de départ
ChDir ("C:Dossier")
NomRep = ActiveCell.Value
While (NomRep <> "")
MkDir NomRep
ActiveCell.Offset(1, 0).Select
NomRep = ActiveCell.Value
Wend

End Sub

mousnynao



Bonsoir

J'ai une liste de 196 dossiers, structure d'un system d'archivage, qui
doit
etre utiliser par une Cinquantaine d'utilisateur
JE voudrais fournir a chaque utilisateur un repertoire contenant tout les
repertoires possible, chaque utilisateur effacera les repertoires qui ne
sont pas necessaires.

J'ai eu beau cherché le net et Excel Labo, je nai pas trouvé un outil
pour
créer des repertoires en fonction d'une liste texte ou excel.

Est ce qu'il y aurais une ame charitable pour m'aider, j'avoue ne pas
avoir
trop envie de creer 196 repertoires a la main !!!
Excel + Vbasic devrais pouvoir faire ca !!


Merci en avance de votre aide

Thierry







Avatar
ThierryP
Excusez moi de m'immiscer...

Sub CreationDossierUtilisateur()

Dim NomRep As String

' Se positionner dans le bon dossier
' de départ
chemin = "C:Dossier" <---- Ajouter l'antislash final
NomRep = ActiveCell.Value
While (NomRep <> "")
MkDir chemin & NomRep
ActiveCell.Offset(1, 0).Select
NomRep = ActiveCell.Value
Wend

End Sub

Le répertoire principal est sous forme de variable.

@+

Mousnyna

merci de ta reponse, j'ai changer le repertoire de destination pour
c:Dossier qui existe sur le DD
je me positionne en A1, debut de la liste et lance la macro qui ce deroule
normalement le curseur descend jusqu'a la derniere cellule non vide et puis
s'arrete, mais il n'y a pas de repertoire creer dans c:temp !!!

Est ce qu'il ne faudrait pas que
NomRep = ActiveCell.Value
soit dans la boucle while - wend ??

merci par avance de ta reponse

thierry


"Mousnynao" a écrit dans le message de
news:
Bonjour,

en supposant que la liste est en colonne A
et commence en ligne 1
sélectionner la première cellule
et lancer cette macro :

Sub CreationDossierUtilisateur()

Dim NomRep As String

' Se positionner dans le bon dossier
' de départ
ChDir ("C:Dossier")
NomRep = ActiveCell.Value
While (NomRep <> "")
MkDir NomRep
ActiveCell.Offset(1, 0).Select
NomRep = ActiveCell.Value
Wend

End Sub

mousnynao



Bonsoir

J'ai une liste de 196 dossiers, structure d'un system d'archivage, qui
doit
etre utiliser par une Cinquantaine d'utilisateur
JE voudrais fournir a chaque utilisateur un repertoire contenant tout les
repertoires possible, chaque utilisateur effacera les repertoires qui ne
sont pas necessaires.

J'ai eu beau cherché le net et Excel Labo, je nai pas trouvé un outil
pour
créer des repertoires en fonction d'une liste texte ou excel.

Est ce qu'il y aurais une ame charitable pour m'aider, j'avoue ne pas
avoir
trop envie de creer 196 repertoires a la main !!!
Excel + Vbasic devrais pouvoir faire ca !!


Merci en avance de votre aide

Thierry









--
@+ thierryp



Avatar
Mousnynao
Bonjour,

Il y a anguille sous roche, chez moi ça fonctionne tel quel !
Avez-vous les droits d'écritures sur le répertoire visé !

mousnynao


Mousnynao

En faite les repertoires sont bien creer, mais dans le repertoire "mes
document" !!!
Ca marche a moitié, mais bon ca marche quant meme

amities

thierry


"Mousnynao" a écrit dans le message de
news:
Bonjour,

en supposant que la liste est en colonne A
et commence en ligne 1
sélectionner la première cellule
et lancer cette macro :

Sub CreationDossierUtilisateur()

Dim NomRep As String

' Se positionner dans le bon dossier
' de départ
ChDir ("C:Dossier")
NomRep = ActiveCell.Value
While (NomRep <> "")
MkDir NomRep
ActiveCell.Offset(1, 0).Select
NomRep = ActiveCell.Value
Wend

End Sub

mousnynao



Bonsoir

J'ai une liste de 196 dossiers, structure d'un system d'archivage, qui
doit
etre utiliser par une Cinquantaine d'utilisateur
JE voudrais fournir a chaque utilisateur un repertoire contenant tout les
repertoires possible, chaque utilisateur effacera les repertoires qui ne
sont pas necessaires.

J'ai eu beau cherché le net et Excel Labo, je nai pas trouvé un outil
pour
créer des repertoires en fonction d'une liste texte ou excel.

Est ce qu'il y aurais une ame charitable pour m'aider, j'avoue ne pas
avoir
trop envie de creer 196 repertoires a la main !!!
Excel + Vbasic devrais pouvoir faire ca !!


Merci en avance de votre aide

Thierry