Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 VBA - Lister fichiers et décortiquer le nom des fichiers dans colonne A et B

T

tchi456

XLDnaute Occasionnel
Bonjour,

Je recherche un code à mettre sur un bouton qui me permette de sélectionner un dossier et de lister tous les fichiers de ce dossier et décortiquer le texte de ces fichiers.

Dans la majorité des cas les fichiers sont nommés comme ceci: NOM - Prénom.pdf et je souhaiterais pouvoir séparer les "NOMS" (colonne A) et les "Prénoms" (colonne B).
Le problème c'est que je peux avoir des NOMS et des Prénoms composés avec un "-" mais j'aimerais qu'il me sépare le texte quand il y a " - " (espace, tiret, espace) et non pas uniquement un tiret.

Exemple:

Si un de mes nombreux fichiers est nommé "VON BERGEN - Jean-Philippe.pdf", je souhaiterais qu'il me sépare le texte en colonne A "VON BERGEN" et en colonne B "Jean-Philippe".

Pouvez-vous m'aider?

Mes meilleures salutations,

Thierry
 

Pièces jointes

  • Test.xlsx
    14.3 KB · Affichages: 4
Solution
Bonjour Tchi,
Un essai en PJ avec :
Code: 
Sub BoucleFichiers()
    Dim Chemin$, Fichier$, L%, T
    [A:B].ClearContents
    Chemin = "C:\Users\PC_PAPA\Desktop\XLD\Ludo\"  'Définit le répertoire contenant les fichiers, doit se terminer par \
    'Boucle sur tous les fichiers pdf du répertoire.
    Fichier = Dir(Chemin & "*.pdf")
    L = 1
    Do While Len(Fichier) > 0
        'Sépare le nom avec " - " et range les nom et prénoms
        T = Split(Mid(Fichier, 1, Len(Fichier) - 4), " - ")
        Cells(L, "A") = T(0)
        On Error Resume Next ' Dans le cas où " - " est introuvable
        Cells(L, "B") = T(1)
        L = L + 1
        Fichier = Dir()
    Loop
End Sub
Le chemin doit être évidemment modifié. Il doit se terminer par "\"
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Tchi,
Un essai en PJ avec :
Code: 
Sub BoucleFichiers()
    Dim Chemin$, Fichier$, L%, T
    [A:B].ClearContents
    Chemin = "C:\Users\PC_PAPA\Desktop\XLD\Ludo\"  'Définit le répertoire contenant les fichiers, doit se terminer par \
    'Boucle sur tous les fichiers pdf du répertoire.
    Fichier = Dir(Chemin & "*.pdf")
    L = 1
    Do While Len(Fichier) > 0
        'Sépare le nom avec " - " et range les nom et prénoms
        T = Split(Mid(Fichier, 1, Len(Fichier) - 4), " - ")
        Cells(L, "A") = T(0)
        On Error Resume Next ' Dans le cas où " - " est introuvable
        Cells(L, "B") = T(1)
        L = L + 1
        Fichier = Dir()
    Loop
End Sub
Le chemin doit être évidemment modifié. Il doit se terminer par "\"
 

Pièces jointes

  • Test (8).xlsm
    16.7 KB · Affichages: 7
Dernière édition:
Vote positif 0 Vote négatif
Solution

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Et si vous voulez demander quel dossier traiter, alors remplacer par :
VB: 
Sub BoucleFichiers()
    Dim Chemin$, Fichier$, L%, T, Dossier As FileDialog
    [A:B].ClearContents
    ' Demande quel dossier traiter
    Set Dossier = Application.FileDialog(msoFileDialogFolderPicker)
    Dossier.Show
    If Dossier.SelectedItems.Count > 0 Then Chemin = Dossier.SelectedItems(1) & "\"
    'Boucle sur tous les fichiers pdf du répertoire.
    Fichier = Dir(Chemin & "*.pdf")
    L = 1
    Do While Len(Fichier) > 0
        'Sépare le nom avec " - " et range les nom et prénoms
        T = Split(Mid(Fichier, 1, Len(Fichier) - 4), " - ")
        Cells(L, "A") = T(0)
        On Error Resume Next ' Dans le cas où le nom du fichier ne comporte pas " - "
        Cells(L, "B") = T(1)
        L = L + 1
        Fichier = Dir()
    Loop
End Sub
 
Vote positif 0 Vote négatif
T

tchi456

XLDnaute Occasionnel
Bonjour Sylvanu,

Je n'ai rien à ajouter mis à part que votre code fonctionne parfaitement bien.
Je vous remercie beaucoup pour votre aide; je n'aurais jamais été capable de trouver ça tout seul.

Mes meilleures salutations et bonne fin de semaine,

Thierry
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

T
  • Résolu(e)
XL 2010 VAB - Lister et renommer fichiers en bloc
Réponses
6
Affichages
348
tchi456
T
T
  • Résolu(e)
XL 2010 VBA - Bouton lister fichiers et bouton renommer ces fichiers
Réponses
4
Affichages
564
Titi456
T
M
  • Question
XL 2021 Creation VBA copie de differents fichiers dans différents dossiers
Réponses
5
Affichages
348
patricktoulon
L
  • Résolu(e)
XL 2016 Extraction nom composé
2
Réponses
19
Affichages
942
dysorthographie
F
  • Question
XL 2016 copier des fichiers dans des sous dossiers a partir de case a cocher sous excel
2
Réponses
17
Affichages
1 K
Felipe54
F
E
  • Question
XL 2019 lister les classeurs dans un dossier et sous dossiers et cherche mots clés dans chaque feuille
Réponses
1
Affichages
495
Hasco
T
  • Résolu(e)
XL 2010 VBA - Bouton extraction structure dossier sélectionné
Réponses
5
Affichages
841
Titi456
T
L
  • Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
653
Liner77
L
F
  • Question
Microsoft 365 Importer certaines données d'un ou plusieurs fichiers txt dans des cellules d'une feuille Excel
2
Réponses
19
Affichages
2 K
job75
POWERQUERY :: Combinaisons (Table.Combine) de dossiers contenant des fichiers .CSV ou des fichiers Excel - V2
Réponses
0
Affichages
523
oguruma
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…