Macro consolidation de plusieurs fichiers en une seule table

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 !

dudumomo

XLDnaute Occasionnel
Bonjour a tous,

Je recherche une macro qui peut m'aider a consolider environ une centaine de fichier (Qui s'agrandit de jour en jour).
Ils sont tous situé dans un même dossier, et ils commencent tous par "STU -" qui sont a consolider dans un même fichier (Celui qui aura la macro)

Dans ces fichiers, il y a 2 onglets, "Info" avec les infos sur le fichier (Ref et date par exemple) et un second onglet avec le détails des étudiants. (Code, nom, ...)

J'ai donc besoin de:
1) Consolider les 2 onglets de chaque fichier dans une même table unique (Fichier plat), en gardant pour chaque détails des étudiants, les informations du fichier (ref et date)
2) Vu que je vais faire tourner cette macro tous les jours ou semaine, je voudrais que ça garde en compte les fichiers que j'ai déjà importé, pour éviter des les reprendre. (Peut être en gardant dans la table, le nom du fichier source?)

Je joins un fichier exemple pour plus de clarté.

Vous avez des idées?

Merci grandement!
 

Pièces jointes

Re : Macro consolidation de plusieurs fichiers en une seule table

Bonsoir dudumomo, le forum,
Fichiers pour test ci-inclus.
Cordialement,
Bernard
 

Pièces jointes

Re : Macro consolidation de plusieurs fichiers en une seule table

Apres encore quelques tests, ça fonctionne a merveille.

J'ai juste un problème, certains noms de fichiers ont des caractères spéciaux. (Certains fichiers ont des noms vietnamiens par exemple, avec des Hạ au lieu de Ha) et du coup ça pose problème pour ouvrir le fichier...

C'est possible d’améliorer cela?

Merci!
 
Re : Macro consolidation de plusieurs fichiers en une seule table

Bonjour a tous, avez vous une idée de comment améliorer cette macro? Je n'ai pas encore trouvé une façon d'ouvrir des fichiers avec des caractères Vietnamien ou Chinois par exemple.

Merci grandement
 
Re : Macro consolidation de plusieurs fichiers en une seule table

Bonjour à tous,

Si tes noms de fichiers avec des caractères asiatiques sont inscrits dans la feuille de calcul, l'ouverture en se basant sur la valeur de la cellule fonctionne chez moi

Code:
    Workbooks.Open Filename:="C:\Users\toto\Desktop\" & Range("a1").Value
 
Re : Macro consolidation de plusieurs fichiers en une seule table

Bonsoir,

Visiblement Dir ne supporte pas les caractères asiatiques
Il faut passer par FileSystemObject à la place

un exemple :

Code:
Sub test()
Dim FSO As Object, Doss As Object, Fic As Object
    Set FSO = CreateObject("Scripting.Filesystemobject")
    Set Doss = FSO.getfolder("C:\Users\toto\Downloads\tst\")
    For Each Fic In Doss.Files
    If Fic.Name Like "STU*.xls*" Then
        Workbooks.Open "C:\Users\toto\Downloads\tst\" & Fic.Name
    End If
    Next
set fic=nothing
set doss=nothing
set fso=nothing
End Sub
 
Re : Macro consolidation de plusieurs fichiers en une seule table

Salut Tototiti2008 et le forum,

J'arrive bien a ouvrir le fichier, en faisant ainsi:
Code:
    Set FSO = CreateObject("Scripting.Filesystemobject")
    Set Doss = FSO.getfolder(ThisWorkbook.Path & "\")
    For Each Fic In Doss.Files
    If Fic.Name Like "STU*.xls*" Then
        Set wbksource = Workbooks.Open(Doss & "/" & Fic.Name)
Impec! (J'espere que mes legeres modifications ne sont pas mauvaise.)

En revanche j'ai du mal a l’intégrer a la macro... vu que ca doit en premier regarder dans les sources si le fichier a déjà été ajouté, etc...

Sur la base de bbb38, comment tu penses que je peux faire?

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

Retour