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:
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 :)
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
Merci d'avance pour votre aide :D
Partager