creation de repertoire a partir d'excel

Le
sleg
Bonjour,

je voudrais savoir s'il est possible de creer des repertoire par
rapport a des cellule ?

je m'explique

en cellule A1 j'ai le chemin du type \serveurepertoire

en A3 à a 270 j'ai un nom et je dois creer un repetoire pour chacun de
ces noms ce qui me donnera
\serveurepertoire"nom contenu en cellule a3"
\serveurepertoire"nom contenu en cellule a4"
\serveurepertoire"nom contenu en cellule a5"
etc.

Merci de votre aide.

Bonne journée
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #6790631
Bonjour.
Essaie :
Sub test2()
Dim c As Range
For Each c In [A3:A270]
MkDir "\serveurrepertoire" & c.Value
Next c
End Sub
(non testé, toutefois).
Cordialement.
Daniel
"sleg"
Bonjour,

je voudrais savoir s'il est possible de creer des repertoire par
rapport a des cellule ?

je m'explique

en cellule A1 j'ai le chemin du type \serveurrepertoire

en A3 à a 270 j'ai un nom et je dois creer un repetoire pour chacun de
ces noms ce qui me donnera
\serveurrepertoire"nom contenu en cellule a3"
\serveurrepertoire"nom contenu en cellule a4"
\serveurrepertoire"nom contenu en cellule a5"
etc....

Merci de votre aide.

Bonne journée
sleg
Le #6791151
Bonjour,

impecable ça marche nickel autre petite question apres avoir creer
tous mes repertoires je devrais creer dans chaque nouveau repertoire
l'orborescence suivante :

Projet
Architecture
Organisation
Contacts
Escalade
SLA
PRA
Exploitation
Application
Sauvegarde
Supervision
Sécurité
Procédures
Arrêt/relance
Système
Sauvegarde
Supervision
Sécurité
Procédures
Arrêt/relance
Création de compte …
Produits
Sauvegarde
Sécurité
Procédures
Pilotage
Consignes permanentes
Consignes exceptionnelles
Ordonnancement Flux
Mod
APP TE

Une idée ?

encore merci pour ta solution.

Bonne journée.




On 6 juin, 13:36, "Daniel.C"
Bonjour.
Essaie :
Sub test2()
    Dim c As Range
    For Each c In [A3:A270]
        MkDir "\serveurrepertoire" & c.Value
    Next c
End Sub
(non testé, toutefois).
Cordialement.
Daniel
"sleg"
Bonjour,

je voudrais savoir s'il est possible de creer des repertoire par
rapport a des cellule ?

je m'explique

en cellule A1 j'ai le chemin du type \serveurrepertoire

en A3 à a 270 j'ai un nom et je dois creer un repetoire pour chacun de
ces noms ce qui me donnera
\serveurrepertoire"nom contenu en cellule a3"
\serveurrepertoire"nom contenu en cellule a4"
\serveurrepertoire"nom contenu en cellule a5"
etc....

Merci de votre aide.

Bonne journée


Daniel.C
Le #6791131
Pas bien compris si tous les sous-dossiers sont au même niveau ?
Daniel
"sleg"
Bonjour,

impecable ça marche nickel autre petite question apres avoir creer
tous mes repertoires je devrais creer dans chaque nouveau repertoire
l'orborescence suivante :

Projet
Architecture
Organisation
Contacts
Escalade
SLA
PRA
Exploitation
Application
Sauvegarde
Supervision
Sécurité
Procédures
Arrêt/relance
Système
Sauvegarde
Supervision
Sécurité
Procédures
Arrêt/relance
Création de compte …
Produits
Sauvegarde
Sécurité
Procédures
Pilotage
Consignes permanentes
Consignes exceptionnelles
Ordonnancement Flux
Mod
APP TE

Une idée ?

encore merci pour ta solution.

Bonne journée.




On 6 juin, 13:36, "Daniel.C"
Bonjour.
Essaie :
Sub test2()
Dim c As Range
For Each c In [A3:A270]
MkDir "\serveurrepertoire" & c.Value
Next c
End Sub
(non testé, toutefois).
Cordialement.
Daniel
"sleg"
Bonjour,

je voudrais savoir s'il est possible de creer des repertoire par
rapport a des cellule ?

je m'explique

en cellule A1 j'ai le chemin du type \serveurrepertoire

en A3 à a 270 j'ai un nom et je dois creer un repetoire pour chacun de
ces noms ce qui me donnera
\serveurrepertoire"nom contenu en cellule a3"
\serveurrepertoire"nom contenu en cellule a4"
\serveurrepertoire"nom contenu en cellule a5"
etc....

Merci de votre aide.

Bonne journée


sleg
Le #6791591
re moi non ils ne soint pas tous au meme niveai voici le detail :

en gros je fais un repertoire avec ta premiere macro et apres dans
chacun des 270 repertoires je dois avoir ce qui est en dessous:



repertoire 1 dans ce repetoire tout le reste
Projet
Architecture
Organisation
==> Contacts
==> Escalade
==> SLA
PRA
Exploitation
Application
Sauvegarde
Supervision
Sécurité
Procédures
==> Arrêt/relance
Système
==> Sauvegarde
==> Supervision
Sécurité
==> Procédures
==> Arrêt/relance
==> Création de compte
Produits
==> Sauvegarde
Sécurité
==> Procédures
Pilotage
==> Consignes permanentes
==> Consignes exceptionnelles
Ordonnancement Flux
Mod
APP TE

apres les ==> c un sous repetoire

je sais pas si je suis tres clair.



On 6 juin, 15:12, "Daniel.C"
Pas bien compris si tous les sous-dossiers sont au même niveau ?
Daniel
"sleg"
Bonjour,

impecable ça marche nickel autre petite question apres avoir creer
tous mes repertoires je devrais creer dans chaque nouveau repertoire
l'orborescence suivante :

Projet
Architecture
Organisation
Contacts
Escalade
SLA
PRA
Exploitation
Application
Sauvegarde
Supervision
Sécurité
Procédures
Arrêt/relance
Système
Sauvegarde
Supervision
Sécurité
Procédures
Arrêt/relance
Création de compte …
Produits
Sauvegarde
Sécurité
Procédures
Pilotage
Consignes permanentes
Consignes exceptionnelles
Ordonnancement Flux
Mod
APP TE

Une idée ?

encore merci pour ta solution.

Bonne journée.

On 6 juin, 13:36, "Daniel.C"


Bonjour.
Essaie :
Sub test2()
Dim c As Range
For Each c In [A3:A270]
MkDir "\serveurrepertoire" & c.Value
Next c
End Sub
(non testé, toutefois).
Cordialement.
Daniel
"sleg"
Bonjour,

je voudrais savoir s'il est possible de creer des repertoire par
rapport a des cellule ?

je m'explique

en cellule A1 j'ai le chemin du type \serveurrepertoire

en A3 à a 270 j'ai un nom et je dois creer un repetoire pour chacun de
ces noms ce qui me donnera
\serveurrepertoire"nom contenu en cellule a3"
\serveurrepertoire"nom contenu en cellule a4"
\serveurrepertoire"nom contenu en cellule a5"
etc....

Merci de votre aide.

Bonne journée- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Daniel.C
Le #6792211
En conservant les dossiers en colonne A, en mettant les dossiers de second
niveau en Colonne B, à partir de B3 :

Sub test2()
Dim c As Range, d As Range
For Each c In [A3:A270]
ChDir "\serveurrepertoire" & c.Value
' Dossiers de second nieau
For Each d In Range("B3", Range("B65000").End(xlUp))
ChDir "\serveurrepertoire" & c.Value & "" & d.Value
Next d
'dossiers de troisième niveau
ChDir "\serveurrepertoire" & c.Value & "Organisation"
MkDir "Contacts"
MkDir "Escalade"
MkDir "SLA"
' etc.
Next c
End Sub

Il faut compléter la macro pour les autres dossiers.
Daniel
"sleg"
re moi non ils ne soint pas tous au meme niveai voici le detail :

en gros je fais un repertoire avec ta premiere macro et apres dans
chacun des 270 repertoires je dois avoir ce qui est en dessous:



repertoire 1 dans ce repetoire tout le reste
Projet
Architecture
Organisation
==> Contacts
==> Escalade
==> SLA
PRA
Exploitation
Application
Sauvegarde
Supervision
Sécurité
Procédures
==> Arrêt/relance
Système
==> Sauvegarde
==> Supervision
Sécurité
==> Procédures
==> Arrêt/relance
==> Création de compte
Produits
==> Sauvegarde
Sécurité
==> Procédures
Pilotage
==> Consignes permanentes
==> Consignes exceptionnelles
Ordonnancement Flux
Mod
APP TE

apres les ==> c un sous repetoire

je sais pas si je suis tres clair.



On 6 juin, 15:12, "Daniel.C"
Pas bien compris si tous les sous-dossiers sont au même niveau ?
Daniel
"sleg"
Bonjour,

impecable ça marche nickel autre petite question apres avoir creer
tous mes repertoires je devrais creer dans chaque nouveau repertoire
l'orborescence suivante :

Projet
Architecture
Organisation
Contacts
Escalade
SLA
PRA
Exploitation
Application
Sauvegarde
Supervision
Sécurité
Procédures
Arrêt/relance
Système
Sauvegarde
Supervision
Sécurité
Procédures
Arrêt/relance
Création de compte …
Produits
Sauvegarde
Sécurité
Procédures
Pilotage
Consignes permanentes
Consignes exceptionnelles
Ordonnancement Flux
Mod
APP TE

Une idée ?

encore merci pour ta solution.

Bonne journée.

On 6 juin, 13:36, "Daniel.C"


Bonjour.
Essaie :
Sub test2()
Dim c As Range
For Each c In [A3:A270]
MkDir "\serveurrepertoire" & c.Value
Next c
End Sub
(non testé, toutefois).
Cordialement.
Daniel
"sleg"
Bonjour,

je voudrais savoir s'il est possible de creer des repertoire par
rapport a des cellule ?

je m'explique

en cellule A1 j'ai le chemin du type \serveurrepertoire

en A3 à a 270 j'ai un nom et je dois creer un repetoire pour chacun de
ces noms ce qui me donnera
\serveurrepertoire"nom contenu en cellule a3"
\serveurrepertoire"nom contenu en cellule a4"
\serveurrepertoire"nom contenu en cellule a5"
etc....

Merci de votre aide.

Bonne journée- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



sleg
Le #6792191
re moi,

voici la structure du fichier

A3 B3
Icopitole Architecture
duers PRA
info10 Exploitation
qualiak Pilotage
ter Ordonnancement_Flux

et voici la macro :
Sub test2()
Dim c As Range, d As Range
For Each c In [A3:A270]
MkDir "c:test" & c.Value
' Dossiers de second nieau
For Each d In Range("B3", Range("B7").End(xlUp))
MkDir "c:test" & c.Value & "" & d.Value
Next d
'dossiers de troisième niveau
ChDir "c:test" & c.Value & "Architecture"
MkDir "Contacts"
MkDir "Escalade"
MkDir "SLA"
' etc.
Next c
End Sub

et j'obtiens une erreur 75
erreur d'aces chemin/fichier

il arrive a créer "C:testIcopitoleArchitecture"

une idée

et grand merci de ton aide



On 6 juin, 16:33, "Daniel.C"
En conservant les dossiers en colonne A, en mettant les dossiers de second
niveau en Colonne B, à partir de B3 :

Sub test2()
    Dim c As Range, d As Range
    For Each c In [A3:A270]
        ChDir "\serveurrepertoire" & c.Value
            ' Dossiers de second nieau
            For Each d In Range("B3", Range("B65000").End(xlUp ))
                ChDir "\serveurrepertoire" & c.Value & "" & d.Value
            Next d
            'dossiers de troisième niveau
            ChDir "\serveurrepertoire" & c.Value & "Organi sation"
            MkDir "Contacts"
            MkDir "Escalade"
            MkDir "SLA"
            ' etc.
    Next c
End Sub

Il faut compléter la macro pour les autres dossiers.
Daniel
"sleg"
re moi non ils ne soint pas tous au meme niveai voici le detail :

en gros je fais un repertoire avec ta premiere macro et apres dans
chacun des 270 repertoires je dois avoir ce qui est en dessous:

repertoire 1 dans ce repetoire tout le reste
Projet
Architecture
Organisation
        ==> Contacts
        ==> Escalade
        ==> SLA
PRA
Exploitation
Application
Sauvegarde
Supervision
Sécurité
Procédures
               ==>  Arrêt/relance
Système
                ==> Sauvegarde
                ==> Supervision
Sécurité
                ==> Procédures
                ==> Arrêt/relance
                ==> Création de compte
        Produits
                ==> Sauvegarde
Sécurité
                ==> Procédures
Pilotage
                ==> Consignes permanentes
                ==> Consignes exceptionnelles
Ordonnancement Flux
Mod
APP TE

apres les ==> c un sous repetoire

je sais pas si je suis tres clair.

On 6 juin, 15:12, "Daniel.C"


Pas bien compris si tous les sous-dossiers sont au même niveau ?
Daniel
"sleg"
Bonjour,

impecable ça marche nickel autre petite question apres avoir creer
tous mes repertoires je devrais creer dans chaque nouveau repertoire
l'orborescence suivante :

Projet
Architecture
Organisation
Contacts
Escalade
SLA
PRA
Exploitation
Application
Sauvegarde
Supervision
Sécurité
Procédures
Arrêt/relance
Système
Sauvegarde
Supervision
Sécurité
Procédures
Arrêt/relance
Création de compte …
Produits
Sauvegarde
Sécurité
Procédures
Pilotage
Consignes permanentes
Consignes exceptionnelles
Ordonnancement Flux
Mod
APP TE

Une idée ?

encore merci pour ta solution.

Bonne journée.

On 6 juin, 13:36, "Daniel.C"
Bonjour.
Essaie :
Sub test2()
Dim c As Range
For Each c In [A3:A270]
MkDir "\serveurrepertoire" & c.Value
Next c
End Sub
(non testé, toutefois).
Cordialement.
Daniel
"sleg"
Bonjour,

je voudrais savoir s'il est possible de creer des repertoire par
rapport a des cellule ?

je m'explique

en cellule A1 j'ai le chemin du type \serveurrepertoire

en A3 à a 270 j'ai un nom et je dois creer un repetoire pour chacun de
ces noms ce qui me donnera
\serveurrepertoire"nom contenu en cellule a3"
\serveurrepertoire"nom contenu en cellule a4"
\serveurrepertoire"nom contenu en cellule a5"
etc....

Merci de votre aide.

Bonne journée- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -




sleg
Le #6792181
re moi,

voici la structure du fichier


A3 B3
appli1 Architecture
appli2 PRA
appli3 Exploitation
appli4 Pilotage
appli5 Ordonnancement_Flux


et voici la macro :
Sub test2()
Dim c As Range, d As Range
For Each c In [A3:A270]
MkDir "c:test" & c.Value
' Dossiers de second nieau
For Each d In Range("B3", Range("B7").End(xlUp))
MkDir "c:test" & c.Value & "" & d.Value
Next d
'dossiers de troisième niveau
ChDir "c:test" & c.Value & "Architecture"
MkDir "Contacts"
MkDir "Escalade"
MkDir "SLA"
' etc.
Next c
End Sub


et j'obtiens une erreur 75
erreur d'acces chemin/fichier


il arrive a créer "C:testIcopitoleArchitecture" et message
d'erreur.


une idée


et grand merci de ton aide






On 6 juin, 16:33, "Daniel.C"
En conservant les dossiers en colonne A, en mettant les dossiers de second
niveau en Colonne B, à partir de B3 :

Sub test2()
    Dim c As Range, d As Range
    For Each c In [A3:A270]
        ChDir "\serveurrepertoire" & c.Value
            ' Dossiers de second nieau
            For Each d In Range("B3", Range("B65000").End(xlUp ))
                ChDir "\serveurrepertoire" & c.Value & "" & d.Value
            Next d
            'dossiers de troisième niveau
            ChDir "\serveurrepertoire" & c.Value & "Organi sation"
            MkDir "Contacts"
            MkDir "Escalade"
            MkDir "SLA"
            ' etc.
    Next c
End Sub

Il faut compléter la macro pour les autres dossiers.
Daniel
"sleg"
re moi non ils ne soint pas tous au meme niveai voici le detail :

en gros je fais un repertoire avec ta premiere macro et apres dans
chacun des 270 repertoires je dois avoir ce qui est en dessous:

repertoire 1 dans ce repetoire tout le reste
Projet
Architecture
Organisation
        ==> Contacts
        ==> Escalade
        ==> SLA
PRA
Exploitation
Application
Sauvegarde
Supervision
Sécurité
Procédures
               ==>  Arrêt/relance
Système
                ==> Sauvegarde
                ==> Supervision
Sécurité
                ==> Procédures
                ==> Arrêt/relance
                ==> Création de compte
        Produits
                ==> Sauvegarde
Sécurité
                ==> Procédures
Pilotage
                ==> Consignes permanentes
                ==> Consignes exceptionnelles
Ordonnancement Flux
Mod
APP TE

apres les ==> c un sous repetoire

je sais pas si je suis tres clair.

On 6 juin, 15:12, "Daniel.C"


Pas bien compris si tous les sous-dossiers sont au même niveau ?
Daniel
"sleg"
Bonjour,

impecable ça marche nickel autre petite question apres avoir creer
tous mes repertoires je devrais creer dans chaque nouveau repertoire
l'orborescence suivante :

Projet
Architecture
Organisation
Contacts
Escalade
SLA
PRA
Exploitation
Application
Sauvegarde
Supervision
Sécurité
Procédures
Arrêt/relance
Système
Sauvegarde
Supervision
Sécurité
Procédures
Arrêt/relance
Création de compte …
Produits
Sauvegarde
Sécurité
Procédures
Pilotage
Consignes permanentes
Consignes exceptionnelles
Ordonnancement Flux
Mod
APP TE

Une idée ?

encore merci pour ta solution.

Bonne journée.

On 6 juin, 13:36, "Daniel.C"
Bonjour.
Essaie :
Sub test2()
Dim c As Range
For Each c In [A3:A270]
MkDir "\serveurrepertoire" & c.Value
Next c
End Sub
(non testé, toutefois).
Cordialement.
Daniel
"sleg"
Bonjour,

je voudrais savoir s'il est possible de creer des repertoire par
rapport a des cellule ?

je m'explique

en cellule A1 j'ai le chemin du type \serveurrepertoire

en A3 à a 270 j'ai un nom et je dois creer un repetoire pour chacun de
ces noms ce qui me donnera
\serveurrepertoire"nom contenu en cellule a3"
\serveurrepertoire"nom contenu en cellule a4"
\serveurrepertoire"nom contenu en cellule a5"
etc....

Merci de votre aide.

Bonne journée- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -




Daniel.C
Le #6792171
Remets la ligne :
For Each d In Range("B3", Range("B65000").End(xlUp))
que tu as remplacé par :
For Each d In Range("B3", Range("B7").End(xlUp))
Daniel
"sleg"
re moi,

voici la structure du fichier


A3 B3
appli1 Architecture
appli2 PRA
appli3 Exploitation
appli4 Pilotage
appli5 Ordonnancement_Flux


et voici la macro :
Sub test2()
Dim c As Range, d As Range
For Each c In [A3:A270]
MkDir "c:test" & c.Value
' Dossiers de second nieau
For Each d In Range("B3", Range("B7").End(xlUp))
MkDir "c:test" & c.Value & "" & d.Value
Next d
'dossiers de troisième niveau
ChDir "c:test" & c.Value & "Architecture"
MkDir "Contacts"
MkDir "Escalade"
MkDir "SLA"
' etc.
Next c
End Sub


et j'obtiens une erreur 75
erreur d'acces chemin/fichier


il arrive a créer "C:testIcopitoleArchitecture" et message
d'erreur.


une idée


et grand merci de ton aide






On 6 juin, 16:33, "Daniel.C"
En conservant les dossiers en colonne A, en mettant les dossiers de second
niveau en Colonne B, à partir de B3 :

Sub test2()
Dim c As Range, d As Range
For Each c In [A3:A270]
ChDir "\serveurrepertoire" & c.Value
' Dossiers de second nieau
For Each d In Range("B3", Range("B65000").End(xlUp))
ChDir "\serveurrepertoire" & c.Value & "" & d.Value
Next d
'dossiers de troisième niveau
ChDir "\serveurrepertoire" & c.Value & "Organisation"
MkDir "Contacts"
MkDir "Escalade"
MkDir "SLA"
' etc.
Next c
End Sub

Il faut compléter la macro pour les autres dossiers.
Daniel
"sleg"
re moi non ils ne soint pas tous au meme niveai voici le detail :

en gros je fais un repertoire avec ta premiere macro et apres dans
chacun des 270 repertoires je dois avoir ce qui est en dessous:

repertoire 1 dans ce repetoire tout le reste
Projet
Architecture
Organisation
==> Contacts
==> Escalade
==> SLA
PRA
Exploitation
Application
Sauvegarde
Supervision
Sécurité
Procédures
==> Arrêt/relance
Système
==> Sauvegarde
==> Supervision
Sécurité
==> Procédures
==> Arrêt/relance
==> Création de compte
Produits
==> Sauvegarde
Sécurité
==> Procédures
Pilotage
==> Consignes permanentes
==> Consignes exceptionnelles
Ordonnancement Flux
Mod
APP TE

apres les ==> c un sous repetoire

je sais pas si je suis tres clair.

On 6 juin, 15:12, "Daniel.C"


Pas bien compris si tous les sous-dossiers sont au même niveau ?
Daniel
"sleg"
Bonjour,

impecable ça marche nickel autre petite question apres avoir creer
tous mes repertoires je devrais creer dans chaque nouveau repertoire
l'orborescence suivante :

Projet
Architecture
Organisation
Contacts
Escalade
SLA
PRA
Exploitation
Application
Sauvegarde
Supervision
Sécurité
Procédures
Arrêt/relance
Système
Sauvegarde
Supervision
Sécurité
Procédures
Arrêt/relance
Création de compte …
Produits
Sauvegarde
Sécurité
Procédures
Pilotage
Consignes permanentes
Consignes exceptionnelles
Ordonnancement Flux
Mod
APP TE

Une idée ?

encore merci pour ta solution.

Bonne journée.

On 6 juin, 13:36, "Daniel.C"
Bonjour.
Essaie :
Sub test2()
Dim c As Range
For Each c In [A3:A270]
MkDir "\serveurrepertoire" & c.Value
Next c
End Sub
(non testé, toutefois).
Cordialement.
Daniel
"sleg"
Bonjour,

je voudrais savoir s'il est possible de creer des repertoire par
rapport a des cellule ?

je m'explique

en cellule A1 j'ai le chemin du type \serveurrepertoire

en A3 à a 270 j'ai un nom et je dois creer un repetoire pour chacun de
ces noms ce qui me donnera
\serveurrepertoire"nom contenu en cellule a3"
\serveurrepertoire"nom contenu en cellule a4"
\serveurrepertoire"nom contenu en cellule a5"
etc....

Merci de votre aide.

Bonne journée- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -


- Afficher le texte des messages précédents -




sleg
Le #6792161
alors comme ça

Sub test2()
Dim c As Range, d As Range
For Each c In [A3:A7]
MkDir "c:test" & c.Value
' Dossiers de second nieau
For Each d In Range("B3", Range("B65000").End(xlUp))
MkDir "c:test" & c.Value & "" & d.Value
Next d
'dossiers de troisième niveau
ChDir "c:test" & c.Value & "Exploitation"
MkDir "Sauvegarde"
MkDir "Securite"
MkDir "Supervision"
MkDir "Procedures"
' etc.
Next c
End Sub

il colle la même erreur mais sur la ligne MkDir "Sauvegarde"

fichier

A B
appli1 Architecture
appli2 Exploitation
appli3 Ordonnancement_Flux
appli4 Pilotage
appli5 PRA


Snifff...



On 6 juin, 17:23, "Daniel.C"
Remets la ligne :
For Each d In Range("B3", Range("B65000").End(xlUp))
que tu as remplacé par :
For Each d In Range("B3", Range("B7").End(xlUp))
Daniel
"sleg"
re moi,

voici la structure du fichier

   A3               B3
appli1       Architecture
appli2      PRA
appli3     Exploitation
appli4     Pilotage
appli5     Ordonnancement_Flux

et voici la macro :
Sub test2()
    Dim c As Range, d As Range
    For Each c In [A3:A270]
        MkDir "c:test" & c.Value
            ' Dossiers de second nieau
            For Each d In Range("B3", Range("B7").End(xlUp))
                MkDir "c:test" & c.Value & "" & d.Value
            Next d
            'dossiers de troisième niveau
            ChDir "c:test" & c.Value & "Architecture"
            MkDir "Contacts"
            MkDir "Escalade"
            MkDir "SLA"
            ' etc.
    Next c
End Sub

et j'obtiens une erreur 75
erreur d'acces chemin/fichier

il arrive a créer "C:testIcopitoleArchitecture"  et message
d'erreur.

une idée

et grand merci de ton aide

On 6 juin, 16:33, "Daniel.C"


En conservant les dossiers en colonne A, en mettant les dossiers de seco nd
niveau en Colonne B, à partir de B3 :

Sub test2()
Dim c As Range, d As Range
For Each c In [A3:A270]
ChDir "\serveurrepertoire" & c.Value
' Dossiers de second nieau
For Each d In Range("B3", Range("B65000").End(xlUp))
ChDir "\serveurrepertoire" & c.Value & "" & d.Value
Next d
'dossiers de troisième niveau
ChDir "\serveurrepertoire" & c.Value & "Organisation"
MkDir "Contacts"
MkDir "Escalade"
MkDir "SLA"
' etc.
Next c
End Sub

Il faut compléter la macro pour les autres dossiers.
Daniel
"sleg"
re moi non ils ne soint pas tous au meme niveai voici le detail :

en gros je fais un repertoire avec ta premiere macro et apres dans
chacun des 270 repertoires je dois avoir ce qui est en dessous:

repertoire 1 dans ce repetoire tout le reste
Projet
Architecture
Organisation
==> Contacts
==> Escalade
==> SLA
PRA
Exploitation
Application
Sauvegarde
Supervision
Sécurité
Procédures
==> Arrêt/relance
Système
==> Sauvegarde
==> Supervision
Sécurité
==> Procédures
==> Arrêt/relance
==> Création de compte
Produits
==> Sauvegarde
Sécurité
==> Procédures
Pilotage
==> Consignes permanentes
==> Consignes exceptionnelles
Ordonnancement Flux
Mod
APP TE

apres les ==> c un sous repetoire

je sais pas si je suis tres clair.

On 6 juin, 15:12, "Daniel.C"
Pas bien compris si tous les sous-dossiers sont au même niveau ?
Daniel
"sleg"
Bonjour,

impecable ça marche nickel autre petite question apres avoir creer
tous mes repertoires je devrais creer dans chaque nouveau repertoire
l'orborescence suivante :

Projet
Architecture
Organisation
Contacts
Escalade
SLA
PRA
Exploitation
Application
Sauvegarde
Supervision
Sécurité
Procédures
Arrêt/relance
Système
Sauvegarde
Supervision
Sécurité
Procédures
Arrêt/relance
Création de compte …
Produits
Sauvegarde
Sécurité
Procédures
Pilotage
Consignes permanentes
Consignes exceptionnelles
Ordonnancement Flux
Mod
APP TE

Une idée ?

encore merci pour ta solution.

Bonne journée.

On 6 juin, 13:36, "Daniel.C"
Bonjour.
Essaie :
Sub test2()
Dim c As Range
For Each c In [A3:A270]
MkDir "\serveurrepertoire" & c.Value
Next c
End Sub
(non testé, toutefois).
Cordialement.
Daniel
"sleg"
Bonjour,

je voudrais savoir s'il est possible de creer des repertoire par
rapport a des cellule ?

je m'explique

en cellule A1 j'ai le chemin du type \serveurrepertoire

en A3 à a 270 j'ai un nom et je dois creer un repetoire pour chacu n de
ces noms ce qui me donnera
\serveurrepertoire"nom contenu en cellule a3"
\serveurrepertoire"nom contenu en cellule a4"
\serveurrepertoire"nom contenu en cellule a5"
etc....

Merci de votre aide.

Bonne journée- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte de s
messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -





Daniel.C
Le #6793411
Effectivement, ça peut planter (ça dépend du lecteur par défaut); on change
:
Sub test()
Dim c As Range, d As Range
ChDrive "c"
For Each c In [A3:A7]
MkDir "c:test" & c.Value
' Dossiers de second nieau
For Each d In Range("B3", Range("B65000").End(xlUp))
MkDir "c:test" & c.Value & "" & d.Value
Next d
Next c
'dossiers de troisième niveau
MkDir "c:testAppli1ExploitationContacts"
End Sub
Daniel
"sleg"

alors comme ça

Sub test2()
Dim c As Range, d As Range
For Each c In [A3:A7]
MkDir "c:test" & c.Value
' Dossiers de second nieau
For Each d In Range("B3", Range("B65000").End(xlUp))
MkDir "c:test" & c.Value & "" & d.Value
Next d
'dossiers de troisième niveau
ChDir "c:test" & c.Value & "Exploitation"
MkDir "Sauvegarde"
MkDir "Securite"
MkDir "Supervision"
MkDir "Procedures"
' etc.
Next c
End Sub

il colle la même erreur mais sur la ligne MkDir "Sauvegarde"

fichier

A B
appli1 Architecture
appli2 Exploitation
appli3 Ordonnancement_Flux
appli4 Pilotage
appli5 PRA


Snifff...



On 6 juin, 17:23, "Daniel.C"
Remets la ligne :
For Each d In Range("B3", Range("B65000").End(xlUp))
que tu as remplacé par :
For Each d In Range("B3", Range("B7").End(xlUp))
Daniel
"sleg"
re moi,

voici la structure du fichier

A3 B3
appli1 Architecture
appli2 PRA
appli3 Exploitation
appli4 Pilotage
appli5 Ordonnancement_Flux

et voici la macro :
Sub test2()
Dim c As Range, d As Range
For Each c In [A3:A270]
MkDir "c:test" & c.Value
' Dossiers de second nieau
For Each d In Range("B3", Range("B7").End(xlUp))
MkDir "c:test" & c.Value & "" & d.Value
Next d
'dossiers de troisième niveau
ChDir "c:test" & c.Value & "Architecture"
MkDir "Contacts"
MkDir "Escalade"
MkDir "SLA"
' etc.
Next c
End Sub

et j'obtiens une erreur 75
erreur d'acces chemin/fichier

il arrive a créer "C:testIcopitoleArchitecture" et message
d'erreur.

une idée

et grand merci de ton aide

On 6 juin, 16:33, "Daniel.C"


En conservant les dossiers en colonne A, en mettant les dossiers de
second
niveau en Colonne B, à partir de B3 :

Sub test2()
Dim c As Range, d As Range
For Each c In [A3:A270]
ChDir "\serveurrepertoire" & c.Value
' Dossiers de second nieau
For Each d In Range("B3", Range("B65000").End(xlUp))
ChDir "\serveurrepertoire" & c.Value & "" & d.Value
Next d
'dossiers de troisième niveau
ChDir "\serveurrepertoire" & c.Value & "Organisation"
MkDir "Contacts"
MkDir "Escalade"
MkDir "SLA"
' etc.
Next c
End Sub

Il faut compléter la macro pour les autres dossiers.
Daniel
"sleg"
re moi non ils ne soint pas tous au meme niveai voici le detail :

en gros je fais un repertoire avec ta premiere macro et apres dans
chacun des 270 repertoires je dois avoir ce qui est en dessous:

repertoire 1 dans ce repetoire tout le reste
Projet
Architecture
Organisation
==> Contacts
==> Escalade
==> SLA
PRA
Exploitation
Application
Sauvegarde
Supervision
Sécurité
Procédures
==> Arrêt/relance
Système
==> Sauvegarde
==> Supervision
Sécurité
==> Procédures
==> Arrêt/relance
==> Création de compte
Produits
==> Sauvegarde
Sécurité
==> Procédures
Pilotage
==> Consignes permanentes
==> Consignes exceptionnelles
Ordonnancement Flux
Mod
APP TE

apres les ==> c un sous repetoire

je sais pas si je suis tres clair.

On 6 juin, 15:12, "Daniel.C"
Pas bien compris si tous les sous-dossiers sont au même niveau ?
Daniel
"sleg"
Bonjour,

impecable ça marche nickel autre petite question apres avoir creer
tous mes repertoires je devrais creer dans chaque nouveau repertoire
l'orborescence suivante :

Projet
Architecture
Organisation
Contacts
Escalade
SLA
PRA
Exploitation
Application
Sauvegarde
Supervision
Sécurité
Procédures
Arrêt/relance
Système
Sauvegarde
Supervision
Sécurité
Procédures
Arrêt/relance
Création de compte …
Produits
Sauvegarde
Sécurité
Procédures
Pilotage
Consignes permanentes
Consignes exceptionnelles
Ordonnancement Flux
Mod
APP TE

Une idée ?

encore merci pour ta solution.

Bonne journée.

On 6 juin, 13:36, "Daniel.C"
Bonjour.
Essaie :
Sub test2()
Dim c As Range
For Each c In [A3:A270]
MkDir "\serveurrepertoire" & c.Value
Next c
End Sub
(non testé, toutefois).
Cordialement.
Daniel
"sleg"
Bonjour,

je voudrais savoir s'il est possible de creer des repertoire par
rapport a des cellule ?

je m'explique

en cellule A1 j'ai le chemin du type \serveurrepertoire

en A3 à a 270 j'ai un nom et je dois creer un repetoire pour chacun
de
ces noms ce qui me donnera
\serveurrepertoire"nom contenu en cellule a3"
\serveurrepertoire"nom contenu en cellule a4"
\serveurrepertoire"nom contenu en cellule a5"
etc....

Merci de votre aide.

Bonne journée- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -


- Afficher le texte des messages précédents -





Publicité
Poster une réponse
Anonyme