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
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" <bastien...@gmail.com> a écrit dans le message de news:
d455bf92-990d-4d7b-a305-510504ee5...@25g2000hsx.googlegroups.com...
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
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
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
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" <bastien...@gmail.com> a écrit dans le message de news:
d455bf92-990d-4d7b-a305-510504ee5...@25g2000hsx.googlegroups.com...
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
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
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 -
Pas bien compris si tous les sous-dossiers sont au même niveau ?
Daniel
"sleg" <bastien...@gmail.com> a écrit dans le message de news:
5608ec2d-698a-4d5d-8066-97fc026c4...@z66g2000hsc.googlegroups.com...
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" <dZZZcolarde...@free.fr> 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" <bastien...@gmail.com> a écrit dans le message de news:
d455bf92-990d-4d7b-a305-510504ee5...@25g2000hsx.googlegroups.com...
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 -
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 -
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 -
Pas bien compris si tous les sous-dossiers sont au même niveau ?
Daniel
"sleg" <bastien...@gmail.com> a écrit dans le message de news:
5608ec2d-698a-4d5d-8066-97fc026c4...@z66g2000hsc.googlegroups.com...
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" <dZZZcolarde...@free.fr> 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" <bastien...@gmail.com> a écrit dans le message de news:
d455bf92-990d-4d7b-a305-510504ee5...@25g2000hsx.googlegroups.com...
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 -
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 -
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 -
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" <bastien...@gmail.com> a écrit dans le message de news:
df2a330c-c192-4e14-be06-4231ba912...@t54g2000hsg.googlegroups.com...
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" <dZZZcolarde...@free.fr> wrote:
Pas bien compris si tous les sous-dossiers sont au même niveau ?
Daniel
"sleg" <bastien...@gmail.com> a écrit dans le message de news:
5608ec2d-698a-4d5d-8066-97fc026c4...@z66g2000hsc.googlegroups.com...
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" <dZZZcolarde...@free.fr> 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" <bastien...@gmail.com> a écrit dans le message de news:
d455bf92-990d-4d7b-a305-510504ee5...@25g2000hsx.googlegroups.com...
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 -
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 -
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 -
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" <bastien...@gmail.com> a écrit dans le message de news:
df2a330c-c192-4e14-be06-4231ba912...@t54g2000hsg.googlegroups.com...
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" <dZZZcolarde...@free.fr> wrote:
Pas bien compris si tous les sous-dossiers sont au même niveau ?
Daniel
"sleg" <bastien...@gmail.com> a écrit dans le message de news:
5608ec2d-698a-4d5d-8066-97fc026c4...@z66g2000hsc.googlegroups.com...
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" <dZZZcolarde...@free.fr> 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" <bastien...@gmail.com> a écrit dans le message de news:
d455bf92-990d-4d7b-a305-510504ee5...@25g2000hsx.googlegroups.com...
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 -
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 -
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 -
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" <bastien...@gmail.com> a écrit dans le message de news:
df2a330c-c192-4e14-be06-4231ba912...@t54g2000hsg.googlegroups.com...
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" <dZZZcolarde...@free.fr> wrote:
Pas bien compris si tous les sous-dossiers sont au même niveau ?
Daniel
"sleg" <bastien...@gmail.com> a écrit dans le message de news:
5608ec2d-698a-4d5d-8066-97fc026c4...@z66g2000hsc.googlegroups.com...
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" <dZZZcolarde...@free.fr> 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" <bastien...@gmail.com> a écrit dans le message de news:
d455bf92-990d-4d7b-a305-510504ee5...@25g2000hsx.googlegroups.com...
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 -
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 -
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 -
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" <bastien...@gmail.com> a écrit dans le message de news:
36929e14-d259-4d64-a6a0-717d8e801...@e53g2000hsa.googlegroups.com...
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" <dZZZcolarde...@free.fr> 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" <bastien...@gmail.com> a écrit dans le message de news:
df2a330c-c192-4e14-be06-4231ba912...@t54g2000hsg.googlegroups.com...
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" <dZZZcolarde...@free.fr> wrote:
Pas bien compris si tous les sous-dossiers sont au même niveau ?
Daniel
"sleg" <bastien...@gmail.com> a écrit dans le message de news:
5608ec2d-698a-4d5d-8066-97fc026c4...@z66g2000hsc.googlegroups.com...
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" <dZZZcolarde...@free.fr> 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" <bastien...@gmail.com> a écrit dans le message de news:
d455bf92-990d-4d7b-a305-510504ee5...@25g2000hsx.googlegroups.com...
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 -
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 -
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 -
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" <bastien...@gmail.com> a écrit dans le message de news:
36929e14-d259-4d64-a6a0-717d8e801...@e53g2000hsa.googlegroups.com...
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" <dZZZcolarde...@free.fr> 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" <bastien...@gmail.com> a écrit dans le message de news:
df2a330c-c192-4e14-be06-4231ba912...@t54g2000hsg.googlegroups.com...
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" <dZZZcolarde...@free.fr> wrote:
Pas bien compris si tous les sous-dossiers sont au même niveau ?
Daniel
"sleg" <bastien...@gmail.com> a écrit dans le message de news:
5608ec2d-698a-4d5d-8066-97fc026c4...@z66g2000hsc.googlegroups.com...
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" <dZZZcolarde...@free.fr> 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" <bastien...@gmail.com> a écrit dans le message de news:
d455bf92-990d-4d7b-a305-510504ee5...@25g2000hsx.googlegroups.com...
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 -
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 -