Discussion :

[Linkay]

Bonjour à tous :)

Je reviens vers vous suite à la précieuse aide que vous m'aviez apporté la dernière fois !

J'ai un nouveau projet et je dois réunir plusieurs fichier excel en un seul. Ces fichiers sources, se trouvant dans le même dossier, possèdent tous la même interface, et on tous un tableau identique. Ces tableaux ont des colonnes Non Applicable, Notions, Application, Maîtrise, Expert. Sur chaque ligne du tableau est présente une croix:X (ou n'importe quel autre élément) dans une des colonne précédemment cité.


Ailleurs se trouve un fichier qui compile tous ces fichiers. Chaque tableau de fichier se résume en une ligne. La différence est que les croix se transforme en NA si dans la colonne NA, en 1 si dans la colonne Notions, en 2 si dans le colonne Applications, en 3 si dans la colonne Maîtrise, en 4 si dans le colonne Expert. Voilà ce à quoi devrait ressembler le fichier compilateur une fois la macro réalisé:


J'aimerai avoir votre aide concernant le code à utiliser pour qu'automatiquement les lignes se remplissent.

J'ai déjà commencé avec ces lignes de codes afin que les fichiers excels puissent être lus:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Option Explicit
'Déclaration des variables
Dim FichierSource As String
Dim CheminFichiersSource As String
Dim WBSource As Workbook 'Appelle le fichier source
 
Sub Compilateur()
 
'Etape 1: Parcourir les fichiers du dossier prédéfini
 
CheminFichiersSource = "C:\XXXXXXXXXXXXXXXXXXXXXXXXXX\Unificateur de fichiers excel\test"
'On cherche le premier classeur dans le dossier
FichierSource = Dir(CheminFichiersSource & "*.xlsx")
'On boucle pour chercher tous les classeurs Excel
 
While Len(FichierSource) > 0
    Set WBSource = Workbooks.Open(CheminFichiersSource & FichierSource)  'On ouvre le fichier dans lequel on veut extraire les données
 
'On prend les données du fichier
 
    ThisWorkbook.Activate  'On revient sur le classeur de synthèse
 
'On les traites et colle dans le fichier compilateur

Comme vous le voyez je ne sais pas comment traiter les données du tableaux pour les transformer. Donc si quelqu'un avait une solution j'en serais extremement ravi :)

Merci d'avance pour votre aide :D

[78chris]

Bonjour

Une solution PowerQuery (intégré à Excel)

Adapter le nom du dossier puis Données, actualiser tout ou automatiser avec ThisWorkbook.RefreshAll

[Linkay]

Merci Chris pour ton aide.

Je ne connaissais pas Power Query. j'arrive à faire fonctionner ton fichier. Néanmoins j'ai un peu simplifier le problème que je vous ai exposer et je ne sais pas si on peut toujours l'utiliser avec les contraintes que je n'ai pas énoncer.
Le truc c'est qu'il y a plusieurs fichiers à traiter et que j'aimerai qu'il ajoute aux données existantes les nouvelles sans les effacer. Ca serait possible ? C'est aussi pour ça que je passais par un code vba.

[78chris]

Bonjour

Ton dossier peut contenir autant de classeurs que tu veux

As-tu testé ?

[Linkay]

Oui j'ai testé et il fonctionne et ce quelque soit le nombre de fichiers.

Mais j'ai trois problèmes:
- le premier c'est que j'ai plusieurs tableaux à extraire dans une même feuille d'un fichier source.
- le second c'est que le tableau à remplir dans mon fichier compilateur est déjà prédéterminé. Ce que je souhaite c'est le remplir.
- le troisième est les fichiers sources se trouvent dans des dossiers différents. Par exemple dans C:\Doc\Femmes j'ai les fichiers source de Anne, Ines et Sophie à récupérer et dans C:\doc\Hommes j'ai les fichiers sources de Pierre, Paul, Jacques et ainsi de suite.

Je vais donc préciser ce que je cherche à faire.

Dans les deux nouveaux fichiers çi-joint, les tableaux sont placés exactement comme ils devraient être.
Le FichierCompilateur prends les informations (Nom, Prénom, Date, Milieux) de feuilles excel comme Paul, Pierre, Jacques dans un dossier et les enregistre. Puis je pointe vers un autre dossier et il prendra les fichiers excel de cet autre dossier sans écraser les anciennes.
Comme je le disais avant, les croix se transforment en NA si dans la colonne NA, en 1 si dans la colonne Notions, en 2 si dans le colonne Applications, en 3 si dans la colonne Maîtrise, en 4 si dans le colonne Expert.

FichierCompilateur.xlsx
Antoine.xlsx

j'espère que cela sera plus clair de la sorte.

[78chris]

RE

Un fichier vide avec juste des titres à remplir ou un résultat complet, je ne vois pas ce que cela change si les règles de titrage sont précisées.

Mais si tu fournis des fichiers non représentatifs et des explications changeantes je vais m'abstenir...

Bonjour à tous

Ces fichiers sources, se trouvant dans le même dossier, possèdent tous la même interface, et on tous un tableau identique.

Oui j'ai testé et il fonctionne et ce quelque soit le nombre de fichiers.

Mais j'ai trois problèmes:
- le premier c'est que j'ai plusieurs tableaux à extraire dans une même feuille d'un fichier source.
- le second c'est que le tableau à remplir dans mon fichier compilateur est déjà prédéterminé. Ce que je souhaite c'est le remplir.
- le troisième est les fichiers sources se trouvent dans des dossiers différents.