Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Création de répertoire

Création de répertoire

5 réponses
Avatar
Gaspareau
Bonjour à vous tous,

Encore une fois j'aurais besoin de vos "lumineuses" habiletés !

J'ai un fichier avec dans la colonne A une liste d'environ 500
entités.
Je dois créer un répertoire pour chacunes de ces entités

Disons que je n'ai pas vraiment le temps de les faire une à une !!

Je suis certain qu'il est possible de le faire automatiquement avec Excel

Je me trompe ??

Donc en résumé je voudrais créer dans

Z:\Inspections par caméra\Troncons
une série de répertoires dont le nom se retrouve dans la
colonne A nommée ENTITES d'un fichier EXCEL

Merci
Signaler un problème avec ce contenu

5 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
Avatar
Pierre Fauconnier
Bonjour

Dim Cellule As Range
For Each Cellule In Range("a1:a" & Range("a65536").End(xlUp).Row)
MkDir "Z:Inspections par caméraTroncons" & Cellule
Next Cellule

Ok?
--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien en
commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Gaspareau" a écrit dans le message de news:
%
Bonjour à vous tous,

Encore une fois j'aurais besoin de vos "lumineuses" habiletés !

J'ai un fichier avec dans la colonne A une liste d'environ 500
entités.
Je dois créer un répertoire pour chacunes de ces entités

Disons que je n'ai pas vraiment le temps de les faire une à une !!

Je suis certain qu'il est possible de le faire automatiquement avec Excel

Je me trompe ??

Donc en résumé je voudrais créer dans

Z:Inspections par caméraTroncons
une série de répertoires dont le nom se retrouve dans la
colonne A nommée ENTITES d'un fichier EXCEL

Merci




Avatar
Gaspareau
Merci beaucoup Pierre c'est super et
exactement ce que je voulais

Maintenant, si je pousse un peu plus, mais là je ne suis
pas certain de la faisabilité.
Toujours dans ce même répertoire
Z:Inspections par caméraTroncons, j'ai plusieurs fichiers
que je veux déplacer dans les répertoires que je viens de créer
grâce à ta procédure.
Les noms de fichiers débutent par le nom du répertoire créé
exemple :
répertoire DOM-01-002-001
fichier DOM-02-002-001 - RD-02-002 - 2005-08-24 Bécancour.AVI
Donc les 14 premiers caractères du fichier sont identique au nom du
répertoire. Est-ce possible de les déplacer automatiquement ?

Merci beaucoup encore une fois


"Pierre Fauconnier" a écrit dans le
message de news:%
Bonjour

Dim Cellule As Range
For Each Cellule In Range("a1:a" & Range("a65536").End(xlUp).Row)
MkDir "Z:Inspections par caméraTroncons" & Cellule
Next Cellule

Ok?
--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien en
commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Gaspareau" a écrit dans le message de news:
%
Bonjour à vous tous,

Encore une fois j'aurais besoin de vos "lumineuses" habiletés !

J'ai un fichier avec dans la colonne A une liste d'environ 500
entités.
Je dois créer un répertoire pour chacunes de ces entités

Disons que je n'ai pas vraiment le temps de les faire une à une !!

Je suis certain qu'il est possible de le faire automatiquement avec
Excel



Je me trompe ??

Donc en résumé je voudrais créer dans

Z:Inspections par caméraTroncons
une série de répertoires dont le nom se retrouve dans la
colonne A nommée ENTITES d'un fichier EXCEL

Merci








Avatar
Pierre Fauconnier
Re-bonsoir

Ceci devrait faire ton bonheur.

Il faut cocher la référence "Microsoft Scripting Runtime". Cela tient compte
du fait que chaque nom de dossier est composé de 14 caractères, et que le
nom de chaque fichier initial est composé des 14 caractères du "dossier",
puis de trois caractères " - " puis du nom de fichier.


Sub Deplacement()
Dim fs As New Scripting.FileSystemObject
Dim Fichier As Scripting.File
Dim Source As Scripting.Folder
Dim Cible As Scripting.Folder
Dim NomComplet As String

Set Source = fs.GetFolder("Z:Inspections par caméraTroncons")

' Itération sur chaque fichier de s:inspection...
For Each Fichier In Source.Files
' Pour chaque fichier, on recompose le nouveau nom
NomComplet = Source.Path & "" & Left(Fichier.Name, 14) & "" &
Right(Fichier.Name, Len(Fichier.Name) - 17)
' On déplace le fichier en le renommant
Fichier.Move NomComplet
Next Fichier
End Sub

Ok?
--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien en
commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci



"Gaspareau" a écrit dans le message de news:

Merci beaucoup Pierre c'est super et
exactement ce que je voulais

Maintenant, si je pousse un peu plus, mais là je ne suis
pas certain de la faisabilité.
Toujours dans ce même répertoire
Z:Inspections par caméraTroncons, j'ai plusieurs fichiers
que je veux déplacer dans les répertoires que je viens de créer
grâce à ta procédure.
Les noms de fichiers débutent par le nom du répertoire créé
exemple :
répertoire DOM-01-002-001
fichier DOM-02-002-001 - RD-02-002 - 2005-08-24 Bécancour.AVI
Donc les 14 premiers caractères du fichier sont identique au nom du
répertoire. Est-ce possible de les déplacer automatiquement ?

Merci beaucoup encore une fois


"Pierre Fauconnier" a écrit dans le
message de news:%
Bonjour

Dim Cellule As Range
For Each Cellule In Range("a1:a" & Range("a65536").End(xlUp).Row)
MkDir "Z:Inspections par caméraTroncons" & Cellule
Next Cellule

Ok?
--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien en
commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Gaspareau" a écrit dans le message de news:
%
Bonjour à vous tous,

Encore une fois j'aurais besoin de vos "lumineuses" habiletés !

J'ai un fichier avec dans la colonne A une liste d'environ 500
entités.
Je dois créer un répertoire pour chacunes de ces entités

Disons que je n'ai pas vraiment le temps de les faire une à une !!

Je suis certain qu'il est possible de le faire automatiquement avec
Excel



Je me trompe ??

Donc en résumé je voudrais créer dans

Z:Inspections par caméraTroncons
une série de répertoires dont le nom se retrouve dans la
colonne A nommée ENTITES d'un fichier EXCEL

Merci












Avatar
Pierre Fauconnier
Re...

Dans mon exemple, je suppose que TOUS les fichiers doivent être déplacés. Si
ce n'est pas le cas, il faut adapter la proc.

Reviens ici au besoin

--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien en
commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Gaspareau" a écrit dans le message de news:

Merci beaucoup Pierre c'est super et
exactement ce que je voulais

Maintenant, si je pousse un peu plus, mais là je ne suis
pas certain de la faisabilité.
Toujours dans ce même répertoire
Z:Inspections par caméraTroncons, j'ai plusieurs fichiers
que je veux déplacer dans les répertoires que je viens de créer
grâce à ta procédure.
Les noms de fichiers débutent par le nom du répertoire créé
exemple :
répertoire DOM-01-002-001
fichier DOM-02-002-001 - RD-02-002 - 2005-08-24 Bécancour.AVI
Donc les 14 premiers caractères du fichier sont identique au nom du
répertoire. Est-ce possible de les déplacer automatiquement ?

Merci beaucoup encore une fois


"Pierre Fauconnier" a écrit dans le
message de news:%
Bonjour

Dim Cellule As Range
For Each Cellule In Range("a1:a" & Range("a65536").End(xlUp).Row)
MkDir "Z:Inspections par caméraTroncons" & Cellule
Next Cellule

Ok?
--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien en
commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Gaspareau" a écrit dans le message de news:
%
Bonjour à vous tous,

Encore une fois j'aurais besoin de vos "lumineuses" habiletés !

J'ai un fichier avec dans la colonne A une liste d'environ 500
entités.
Je dois créer un répertoire pour chacunes de ces entités

Disons que je n'ai pas vraiment le temps de les faire une à une !!

Je suis certain qu'il est possible de le faire automatiquement avec
Excel



Je me trompe ??

Donc en résumé je voudrais créer dans

Z:Inspections par caméraTroncons
une série de répertoires dont le nom se retrouve dans la
colonne A nommée ENTITES d'un fichier EXCEL

Merci












Avatar
Gaspareau
Merci Pierre

Malheureusement je me suis aperçu que mes fichiers n'avaient pas
été nommés de façon identique qui m'Aurait facilité la tâche, j'ai donc
dû faire le travail "à la main"

Merci tout de même pour ton aide dans la création de répertoire

Bonne soirée

"Pierre Fauconnier" a écrit dans le
message de news:ef8G5$
Re...

Dans mon exemple, je suppose que TOUS les fichiers doivent être déplacés.
Si

ce n'est pas le cas, il faut adapter la proc.

Reviens ici au besoin

--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien en
commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Gaspareau" a écrit dans le message de news:

Merci beaucoup Pierre c'est super et
exactement ce que je voulais

Maintenant, si je pousse un peu plus, mais là je ne suis
pas certain de la faisabilité.
Toujours dans ce même répertoire
Z:Inspections par caméraTroncons, j'ai plusieurs fichiers
que je veux déplacer dans les répertoires que je viens de créer
grâce à ta procédure.
Les noms de fichiers débutent par le nom du répertoire créé
exemple :
répertoire DOM-01-002-001
fichier DOM-02-002-001 - RD-02-002 - 2005-08-24 Bécancour.AVI
Donc les 14 premiers caractères du fichier sont identique au nom du
répertoire. Est-ce possible de les déplacer automatiquement ?

Merci beaucoup encore une fois


"Pierre Fauconnier" a écrit dans le
message de news:%
Bonjour

Dim Cellule As Range
For Each Cellule In Range("a1:a" & Range("a65536").End(xlUp).Row)
MkDir "Z:Inspections par caméraTroncons" & Cellule
Next Cellule

Ok?
--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien
en



commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Gaspareau" a écrit dans le message de news:
%
Bonjour à vous tous,

Encore une fois j'aurais besoin de vos "lumineuses" habiletés !

J'ai un fichier avec dans la colonne A une liste d'environ 500
entités.
Je dois créer un répertoire pour chacunes de ces entités

Disons que je n'ai pas vraiment le temps de les faire une à une !!

Je suis certain qu'il est possible de le faire automatiquement avec
Excel



Je me trompe ??

Donc en résumé je voudrais créer dans

Z:Inspections par caméraTroncons
une série de répertoires dont le nom se retrouve dans la
colonne A nommée ENTITES d'un fichier EXCEL

Merci