agréger des données de plusieurs fichiers xls

[JJAL07]

Bonjour,

J'ai parcouru le forum et vu des questions qui s'en rapprochent mais je ne retrouve pas mon besoin

J'ai n fichiers excel qui contiennent tous une feuille nommée "Données" qui contient tableau de données qui commence ligne 3 par les entêtes (étiquettes) de chaque colonne suivi des données - donc à partir de ligne 4 - (Le tableau ne commençant en ligne 4 car il y sur les premières lignes des commentaires). Le format des données et les étiquettes sont identiques dans les fichiers seul le contenu des données change.

tous les fichiers sont dans le même dossier mais leur nombre peut varier. Je voudrai pouvoir agréger dans un seul fichier dans une seule feuille "Données" dans un seul tableau identique à ceux des fichiers l'ensemble des données de ces n fichiers de façon automatique.

Merci pour les réponses.

P.S. Chaque zone de données concernées de chaque fichier à un nom "REF_donnees"

 

[tototiti2008]

Re : agréger des données de plusieurs fichiers xls

Bonjour JJAL07,

un petit fichier exemple ? Quelle version d'Excel utilises-tu ?

 

[JJAL07]

Re : agréger des données de plusieurs fichiers xls

Voici le fichier exemple. n fichier de ce type contenant des données que je veux agréger un un seul fichier de même format sur une seule feuille

Merci

 

[JJAL07]

Re : agréger des données de plusieurs fichiers xls

j'ai excel 2003

 

[Modeste]

Re : agréger des données de plusieurs fichiers xls

Dans le menu Données, l'outil Consolider permet -me semble-t-il- de répondre à tes attentes ... Reste à voir combien de classeurs tu veux "agréger": ça risque de devenir un peu fastidieux. Voir aussi si tu fais la manipulation une seule fois ou (très ?) régulièrement. Si oui, il faudra utiliser une Macro.

 

[JJAL07]

Re : agréger des données de plusieurs fichiers xls

je vais faire la manip régulièrement car j'ai des mises à jour périodiques, c'est mieux si avec une macro. Ne peut-t-on aussi faire une requête type MSquery puisque j'ai défini un nom pour ma zone de données ? j'ai essayé mais ne suis pas pro en la matière

 

[kiki29]

Re : agréger des données de plusieurs fichiers xls

Salut, qqs liens
RDBMerge Add-in
https://www.excel-downloads.com/threads/extraction-entre-fichier.89955/
https://www.excel-downloads.com/threads/recherche-dans-plusieurs-fichiers.72998/
Sinon via ADO quand il s'agit de plages de données

 

[JJAL07]

Re : agréger des données de plusieurs fichiers xls

Merci, j'ai testé le "RDBmerge", je récupère bien toute mes données dans un seul onglet, je pense que cela devrait convenir

Merci encore pour votre aide 🙂

 

[BOISGONTIER]

Re : agréger des données de plusieurs fichiers xls

Bonsoir,

Tous les fichiers sont dans le même répertoire:

Sub syntèseClasseursBD2()
  [A4:L10000].Clear
  Set maitre = ActiveWorkbook
  Repertoire = ThisWorkbook.Path
  nf = Dir(Repertoire & "\*.xls")  ' premier fichier
  Do While nf <> ""
    If nf <> ThisWorkbook.Name Then
      Workbooks.Open Filename:=Repertoire & "\" & nf
      Range("A4", [A65000].End(xlUp)).Resize(, 12).Copy _
         maitre.Sheets(1).[A65000].End(xlUp).Offset(1, 0)
      ActiveWorkbook.Close False
    End If
    nf = Dir ' fichier suivant
  Loop
End Sub

JB
Formation Excel VBA JB

 

[oly22]

Re : agréger des données de plusieurs fichiers xls

Bonsoir

en m'inspirant de la macro ci-dessus, j'ai voulu adapté le code pour excel 2007

mon probleme est qu'il ouvre bien le classeur à copier, mais le copie aucune donnée dans le feuille de synthese

pouvez-vous m'aider ?

merci

Sub syntèseClasseursBD2()
Set maitre = ActiveWorkbook
Repertoire = ThisWorkbook.Path
nf = Dir(Repertoire & "\*.xls") ' premier fichier
Do While nf <> ""
If nf <> ThisWorkbook.Name Then
Workbooks.Open Filename:=Repertoire & "\" & nf
Range("A2", [A1048576].End(xlUp)).Resize(, 12).Copy _
maitre.Sheets(1).[A1048576].End(xlUp).Offset(1, 0)
ActiveWorkbook.Close False
End If
nf = Dir ' fichier suivant
Loop
End Sub