Note: The other languages of the website are Google-translated. Back to English

Comment créer rapidement des dossiers en fonction des valeurs de cellule dans Excel?

Supposons que vous ayez une liste de noms de personnel dans une plage d'une feuille de calcul et que vous souhaitiez maintenant créer des dossiers pour chacun d'eux dans les cellules afin d'enregistrer leurs informations. Si vous créez les dossiers un par un, cela vous fera perdre beaucoup de temps. Mais comment pouvez-vous créer rapidement ces dossiers? Aujourd'hui, je vais vous présenter quelques astuces rapides:

Créer des dossiers basés sur les valeurs de cellule avec le code VBA

Créez rapidement des dossiers basés sur les valeurs de cellule avec Kutools for Excelbonne idée3


Créer des dossiers basés sur les valeurs de cellule avec le code VBA

Par exemple, j'ai une plage de noms dans une feuille de calcul, je veux créer des dossiers pour chacun d'eux et les enregistrer dans un chemin spécifié, avec le code VBA, je peux terminer cette tâche.

1. Placez le classeur actif dans un répertoire spécifique dans lequel vous placerez les dossiers créés. Ouvrez le classeur et sélectionnez la plage de cellules que vous souhaitez utiliser.

doc-créer-dossiers1

2. Cliquez Développeur > Visual Basic, Un nouveau Microsoft Visual Basic pour les applications la fenêtre s'affichera, cliquez sur insérer > Moduleet entrez le code suivant dans le module:

Code VBA: créer des dossiers en fonction des valeurs de cellule

Sub MakeFolders()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub

3. Cliquez doc-multiplier-calcul-3 bouton pour exécuter le code. Toutes les cellules sélectionnées ont été créées dans des dossiers avec leurs valeurs. Et les dossiers sont placés dans le chemin d'accès comme le classeur actif. Voir la capture d'écran:

doc-créer-dossiers2


Créez rapidement des dossiers basés sur les valeurs de cellule avec Kutools for Excel

Il est facile et pratique pour vous de créer des dossiers basés sur les valeurs de cellule si vous utilisez l'outil Kutools for Excel.

Kutools pour Excel, avec plus de 300 fonctions pratiques, rend vos travaux plus faciles. 

Après l'installation de Kutools for Excel, procédez comme suit:(Téléchargez gratuitement Kutools pour Excel maintenant!)

1. Sélectionnez la plage dans laquelle vous souhaitez créer des dossiers.

2. Cliquez Kutools Plus > Import / Export > Créer des dossiers à partir du contenu des cellules…, Voir capture d'écran:

doc créer le dossier 1

3. Dans le Créer des dossiers à partir du contenu des cellules boîte de dialogue, cliquez sur doc-créer-dossiers3pour spécifier le chemin dans lequel vous souhaitez enregistrer les dossiers. Capture d'écran vue:

doc créer le dossier 2

4. Cliquez OK. Et une boîte de dialogue vous rappellera combien de dossiers ont été créés. Voir la capture d'écran:

doc créer le dossier 3

5. Cliquez OK. Et toutes les valeurs de la plage sélectionnée ont été créées dans des dossiers dans le dossier spécifié.
doc créer le dossier 4


Répertorier tous les noms de fichiers d'un dossier dans une feuille

pour en savoir plus sur cette fonction.

Voici un utilitaire dans Kutools pour Excel - Liste des noms de fichiers peut lister tous les noms de fichiers d'un dossier dans une feuille, si cela vous intéresse, continuez à lire.

Après l'installation de Kutools for Excel, procédez comme suit:(Téléchargez gratuitement Kutools pour Excel maintenant!)

1. Cliquez Kutools Plus > Import / Export > Liste des noms de fichiers.
doc créer le dossier 5

2. dans le Liste des noms de fichiers boîte de dialogue, sélectionnez un dossier dont vous souhaitez lister ses fichiers, la coche Tous les fichiers or Spécifier option selon vos besoins Type de fichiers ssection.
img src = "https: // cdn.extendoffice.com / images / stories / doc-excel / create-folders / doc-create-folder-6.png "alt =" doc create folder 6 "/>

3. Cliquez Ok, une nouvelle feuille est créée avec tous les noms de fichiers et certaines informations relatives.
doc créer le dossier 7


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Commentaires (59)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Quel est le problème en suivant l'instruction VBA? Faire pendant que r
Jozef
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour votre réponse, le code VBA a de petites questions lorsque je le modifie, donc ici je l'ai modifié, et il s'applique avec succès, veuillez l'essayer. Bonne chance!
skyyang
Ce commentaire a été minimisé par le modérateur sur le site
SkyYang, [quote]Merci pour votre réponse, le code VBA pose de petites questions lorsque je le modifie, donc ici je l'ai modifié, et il s'applique avec succès, veuillez l'essayer. Bonne chance!Par skyyang[/quote] VOUS ÊTES GÉNIAL !! J'ai pu être plus productif au travail grâce au programme (code VBA dans Developer).
Happy Tang
Ce commentaire a été minimisé par le modérateur sur le site
Qui a jamais écrit le premier exemple - Vous êtes génial !!
Mel
Ce commentaire a été minimisé par le modérateur sur le site
s'il vous plaît, j'ai besoin de la même macro mais au lieu de les enregistrer en tant que dossiers, j'en ai besoin pour enregistrer des blocs-notes avec uniquement les noms de cellules dans une plage de colonnes, appréciez le support.
Ahmed ElGammal
Ce commentaire a été minimisé par le modérateur sur le site
Bien... :) Merci.. Cela me rend le travail simple.
karthiha devi
Ce commentaire a été minimisé par le modérateur sur le site
Merci cela me fait gagner beaucoup de temps. Mais comment créer des sous dossiers ?
SASAR
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup!!! C'est la solution la plus efficace et la plus simple que j'ai trouvée sur Internet pour cela ! :mdr:
mike69
Ce commentaire a été minimisé par le modérateur sur le site
:-) Merci d'avoir fourni ces données.... m'a fait gagner beaucoup de temps
Charan
Ce commentaire a été minimisé par le modérateur sur le site
Comment faire cela dans LibreOffice ou OpenOffice Veuillez répondre.
Yogesh
Ce commentaire a été minimisé par le modérateur sur le site
AIDE !!! J'ai plus de 7500 dossiers à créer mais le programme rencontre une erreur de compilation mettant en évidence [b]Sub MakeFolders ()[b] comme s'il s'agissait d'un nom invalide ou quelque chose du genre ! J'utilise Excel 2010.
Collin@Cooper
Ce commentaire a été minimisé par le modérateur sur le site
J'ai eu le même problème, mais quand j'ai regardé le nom du dossier de plus près, il y avait un / et une fois que je l'ai supprimé, le code a fonctionné comme un charme.
BJA101
Ce commentaire a été minimisé par le modérateur sur le site
Tu es un sauveur!!!!! [b]Merci ![b] Remarque : ne mettez pas d'espace entre MakeFolder et ().
Collin@Cooper
Ce commentaire a été minimisé par le modérateur sur le site
Pour une raison quelconque, le classeur actif rencontre des problèmes avec le chemin. HELPPPP :cry:
Collin@Cooper
Ce commentaire a été minimisé par le modérateur sur le site
J'ai eu un problème similaire, à la fin j'ai compris que le programme ne fonctionnait pas si le nom du fichier avait des barres obliques / ou \ , je remplace / par _, cela a fonctionné
VC
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour cela - Excellent gain de temps
Peter Lewis
Ce commentaire a été minimisé par le modérateur sur le site
A fonctionné comme un charme, mais existe-t-il un moyen de créer des sous-dossiers ?
juliekadas
Ce commentaire a été minimisé par le modérateur sur le site
Essayer ceci sur un Mac et j'obtiens "Erreur d'exécution '68' : périphérique indisponible", et appuyer sur le débogage indique la ligne de code suivante comme coupable : If Len(Dir(ActiveWorkbook.Path & "\" & Rng( r, c), vbDirectory)) = 0 Alors MkDir (ActiveWorkbook.Path & "\" & Rng(r, c)) Aidez-moi s'il vous plaît.
ktrazz
Ce commentaire a été minimisé par le modérateur sur le site
J'aimerais bien le savoir aussi. J'ai besoin de créer des sous-dossiers avec le nom déjà ajouté. Exemple : Excelnamedfolder\P\E J'ai besoin de deux dossiers dans le dossier P nommés E et K.
Jaakko
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup pour cet article très utile qui m'a fait gagner du temps. J'adore les nerds :) Que ferions-nous sans eux, sérieux !
Vincent
Ce commentaire a été minimisé par le modérateur sur le site
J'essaie d'ajouter plusieurs colonnes lors de la création d'un dossier. Des suggestions sur la façon de faire cela? par exemple ABC 1 A1 A2 A3 2 B1 B2 B3 3 C1 C2 C3 Le produit final une fois les dossiers créés doit être : Dossier 1 (A1 + A2 + A3) Dossier 2 (B1 + B2 + B3) Etc... J'ai trouvé plusieurs formules sur créer des dossiers à partir de cellules individuelles mais rien pour plusieurs. J'ai également essayé de modifier certaines choses sans succès. Des idées? Merci
Denny
Ce commentaire a été minimisé par le modérateur sur le site
Tu es incroyable. Ça a marché. Merci.
srikar
Ce commentaire a été minimisé par le modérateur sur le site
Beau Travail.....Excellent
Sanjeev
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup pour ces onglets KUTOOLS & Enterprise ...... outil de gain de temps ..
Vinay
Ce commentaire a été minimisé par le modérateur sur le site
tu viens de me faire gagner beaucoup de temps mon pote
Manuel
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup mec, ça marche...
Manikkavasagan R
Ce commentaire a été minimisé par le modérateur sur le site
Acclamations! Grande fonction!
MKontul
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour cela. fonctionne bien
travailleur
Il n'y a pas encore de commentaires postés ici
TÉLÉCHARGER PLUS
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0  Personnages
Emplacements suggérés