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

1 réponse

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
sleg
Bonjour,

et bien grand merci ça marche impec

bonne semaine.



On 6 juin, 21:11, "Daniel.C" wrote:
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 cha cun
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 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 -






1 2