Consolider plusieurs classeurs dans un classeur
Bonjour, j'aimerais pouvoir créer une macro afin de consolider plusieurs classeurs d'un même dossier (variable) dans un classeur unique (nommé:"Données").
En sachant que j'aimerais ajouter une colonne avec le nom des classeurs importés.
J'ai déjà essayé cela, mais je n'arrive pas à avoir un dossier variable
Merci d'avance
Option Explicit
'Déclaration des variables
Dim NC As String
Dim LT As Integer
Dim DERL As Integer
Dim Derlignetable As Integer
Sub Consolider()
'Etape 1: Parcourir tous les fichiers du dossier prédéfini
ChDir "C:\Users\215584\Desktop\Nouveau dossier"
'On cherche le premier classeur dans le dossier
NC = Dir("C:\Users\215584\Desktop\Nouveau dossier\*.csv")
'On boucle pour chercher tous les classeurs Excel
While Len(NC) > 0
Application.DisplayAlerts = False
Workbooks.Open NC 'Ouverture du classeur
LT = ActiveSheet.UsedRange.Rows.Count 'on récupère
Range("A2:T" & LigneTotal).Copy 'On copie toutes les données
Workbooks("Données").Activate
DERL = ActiveSheet.UsedRange.Rows.Count + 1
Range("A" & derligne).Select ' on se positionne sur la dernière ligne de la colonne A
ActiveSheet.Paste 'Je colle les donnnées
Range("U" & DERL & ":U" & ActiveSheet.UsedRange.Rows.Count) = NC
Workbooks(NC).Close 'on ferme le classeur
NC = Dir 'on passe au prochain fichier
Wend
End Sub
Bonjour Mathieu,
Pour une consolidation, le mieux est d'utiliser PQ (Power Query)
A+
Effectivement c'est pas mal, mais je n'arrive pas à créer une colonne avec le nom du classeur sur chaque lignes.
Bonjour à tous !
Dans Power Query, la fonction Folder.Files va vous restituer de nombreuses données sur le dossier passé en paramètre. Une des informations retournées concerne le nom de chaque fichier.
Vous êtes donc en mesure d'intégrer ce nom dans la suite de votre requête.
Merci. Mais néanmoins n’est il pas possible d’obtenir que je veux pas un code vba ?
Bonjour à tous de nouveau !
Ce n'est pas, à ma connaissance, la meilleure manière de procéder.
Cela étant, les spécialistes VBA du forum devraient pouvoir vous concocter une macro fonctionnelle.