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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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

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
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

Dernière édition:
Vote positif 0 Vote négatif
Solution
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
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.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

T
  • Résolu(e)
XL 2010 VAB - Lister et renommer fichiers en bloc
Réponses
6
Affichages
481
tchi456
T
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
713
Webperegrino
W
T
  • Résolu(e)
XL 2010 VBA - Bouton lister fichiers et bouton renommer ces fichiers
Réponses
4
Affichages
648
Titi456
T
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
433
JJ69
J
POWERQUERY :: Combinaisons (Table.Combine) de dossiers contenant des fichiers .CSV ou des fichiers Excel - V2
Réponses
0
Affichages
780
oguruma
T
  • Résolu(e)
XL 2010 VBA - Insérer le nom d'un fichier dans une cellule spécifique
Réponses
4
Affichages
1 K
tchi456
T
L
  • Question Question
XL 2019 VBA - classeur maitre agrégateur de fichiers élèves
Réponses
10
Affichages
2 K
yal
Y
L
  • Question Question
XL 2019 VBA - Renommer des fichiers avec Name (ancienne et nouvelles valeurs dans une table)
Réponses
5
Affichages
2 K
Dranreb
  • Question Question
XL 2016 Macro VBA pour créer une BdD à partir de plusieurs fichiers
Réponses
2
Affichages
2 K
surgeon84fr
F
  • Question Question
Renommer des fichiers dans plusieurs sous-répertoires
2
Réponses
28
Affichages
4 K
sousou
J
  • Question Question
VBA: Obtenir le nom des dossiers présents dans un repertoire
Réponses
6
Affichages
2 K
Caillou
C
P
  • Question Question
Lister des fichiers d'un repertoire dont le nom contient certains caracteres
Réponses
12
Affichages
4 K
PAT0051
P
F
  • Question Question
Compiler des fichiers .txt avec Excel
Réponses
0
Affichages
1 K
fusati
F
R
  • Question Question
[VBA] Lister et répertorier le contenu d'un dossier Windows
Réponses
8
Affichages
23 K
Robert
G
  • Question Question
Sélectionner fichiers Excel dans un dossier
Réponses
7
Affichages
8 K
Gasp73
G
  • Question Question
Récupérer des valeurs de fichiers excel dont le nom est incomplet
Réponses
3
Affichages
6 K
Chris57
E
  • Question Question
Comment dans cet macro je pourrais enregistrer mes fichiers excel avec le nom voulue
Réponses
0
Affichages
20 K
eko2390
E
M
  • Question Question
Lister des fichiers excel dans une feuille excel sous conditions
Réponses
2
Affichages
1 K
mirek
M
G
  • Question Question
Compiler des fichiers TXT dans une feuille excel
Réponses
3
Affichages
3 K
Gagougnia
G
P
  • Question Question
Réunir les feuilles des autres fichiers excel dans un seul
Réponses
4
Affichages
2 K
jp14
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…