Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel creation de repertoire a partir d'excel

creation de repertoire a partir d'excel

11 réponses
Avatar
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 \\serveur\repertoire\

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

Merci de votre aide.

Bonne journ=E9e
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
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" a écrit dans le message de news:

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
Avatar
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" wrote:
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" a écrit dans le message de news:

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


Avatar
Daniel.C
Pas bien compris si tous les sous-dossiers sont au même niveau ?
Daniel
"sleg" a écrit dans le message de news:

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" wrote:
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" a écrit dans le message de news:

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


Avatar
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" wrote:
Pas bien compris si tous les sous-dossiers sont au même niveau ?
Daniel
"sleg" a écrit dans le message de news:

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" wrote:



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" a écrit dans le message de news:

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 -



Avatar
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" a écrit dans le message de news:

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" wrote:
Pas bien compris si tous les sous-dossiers sont au même niveau ?
Daniel
"sleg" a écrit dans le message de news:

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" wrote:



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" a écrit dans le message de news:

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 -



Avatar
sleg
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" wrote:
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" a écrit dans le message de news:

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" wrote:



Pas bien compris si tous les sous-dossiers sont au même niveau ?
Daniel
"sleg" a écrit dans le message de news:

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" wrote:

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" a écrit dans le message de news:

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 -




Avatar
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" wrote:
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" a écrit dans le message de news:

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" wrote:



Pas bien compris si tous les sous-dossiers sont au même niveau ?
Daniel
"sleg" a écrit dans le message de news:

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" wrote:

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" a écrit dans le message de news:

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 -




Avatar
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" a écrit dans le message de news:

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" wrote:
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" a écrit dans le message de news:

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" wrote:



Pas bien compris si tous les sous-dossiers sont au même niveau ?
Daniel
"sleg" a écrit dans le message de news:

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" wrote:

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" a écrit dans le message de news:

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 -




Avatar
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" wrote:
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" a écrit dans le message de news:

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" wrote:



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" a écrit dans le message de news:

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" wrote:

Pas bien compris si tous les sous-dossiers sont au même niveau ?
Daniel
"sleg" a écrit dans le message de news:

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" wrote:

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" a écrit dans le message de news:

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 -





Avatar
Daniel.C
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" a écrit dans le message de news:


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" wrote:
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" a écrit dans le message de news:

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" wrote:



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" a écrit dans le message de news:

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" wrote:

Pas bien compris si tous les sous-dossiers sont au même niveau ?
Daniel
"sleg" a écrit dans le message de news:

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" wrote:

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" a écrit dans le message de news:

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 -





1 2