Regrouper plusieurs fichier Excel en un seul

jay33 · 22 Novembre 2012

Bonjour à tous,

je viens demander de l'aide à des specialistes Excel, pour savoir si une fonction existe deja dans excel ou si on pourrait me faire un fichier qui pourrait regrouper plusieurs fichiers excel en un seul.
tous les fichiers ont le meme format, et meme presentation, mais ont tous un nom different, et les données sont differente a chaque fois.

Voila mon soucis :

tous les jours, et plusieurs fois par jour, on envoi des informations sur des reparations de portable sur un site du constructeur.
on envoi des informations et si c'est refusé on corrige et on renvoi a nouveau, jusqu'a ce que ça soit accepter.
le site me permet sur une periode de retelecharger tous ces informations en Xls, mais fichier par fichier.
ce que j'aimerais c'est un seul fichier excel, ou je pourrais cliquer sur un bouton par exemple pour rechercher mes fichiers sur le disque, ceux que j'aurais telecharger du site sur une periode, et les regrouper sur un seul fichier.
en piece jointe un exemple de telechargement de fichier, une dizaine sur un mois, mais ça peut etre plus
Les informations qui m'interresse sont uniquement a partir de la ligne 8. ce qu'il y au dessus n'est pas important.

donc le fichier final, aurait juste la ligne ou je ferai des filtres, et toutes les interventions les une apres les autres, accepté ou non.

Est ce que vous pensez que c'est faisable ?

merci d'avance a tous.

kjin · 22 Novembre 2012

Re : Regrouper plusieurs fichier Excel en un seul

Bonsoir,
suite...

Code:

Sub zzzzzzzzz()
Application.ScreenUpdating = False
pfile = ActiveWorkbook.Path & "\archive\" 'indiquer ici le chemin du répertoire
nfile = Dir(pfile & "*.xls") 'ou xlsx ou xlsm
i = 2
Range("A2:D65000").ClearContents
Do Until nfile = ""
    Range("J1").Formula = "=COUNTA('" & pfile & "[" & nfile & "]Workorder'!$A$8:A2000)"
    j = Int(Range("J1")) + i
    Range("A" & i & ":d" & j - 1) = "='" & pfile & "[" & nfile & "]Workorder'!A8"
    i = j
    nfile = Dir()
Loop
Range("J1").Clear
With Range("A2:E" & Range("A65000").End(xlUp).Row)
    .Value = .Value
End With
End Sub

A+
kjin

jay33 · 23 Novembre 2012

Re : Regrouper plusieurs fichier Excel en un seul

un grand merci c'est exactement ça, merci aussi pour la rapidité de réponse.

meme si je suis un peu degouté de ne pas comprendre comment vous faites.

kjin · 23 Novembre 2012

Re : Regrouper plusieurs fichier Excel en un seul

Bonsoir,

jay33 à dit:
meme si je suis un peu degouté de ne pas comprendre comment vous faites.

Je te rassure....moi (nous ?) non plus !
A+
kjin

Staple1600 · 24 Novembre 2012

Re : Regrouper plusieurs fichier Excel en un seul

Bonsoir à tous

N'apporte rien au fil___________________________________________________________ (c) JCGL
Juste pour saluer kjin ()
et pour lui signaler qu'il a oublié sa paire de Dim

kjin · 24 Novembre 2012

Re : Regrouper plusieurs fichier Excel en un seul

Bonjour, signore Staple,

Staple1600 à dit:
et pour lui signaler qu'il a oublié sa paire de Dim

Bah, comme tout le monde, des hauts et pas forcément....des bas
J'ajouterai que ça fait souvent débat
A+
kjin

magicien74 · 19 Novembre 2013

Re : Regrouper plusieurs fichier Excel en un seul

bonjour
je veux regrouper les meme fichier excel de meme( stucture feil NAR ) dans un seul fichier excel

j'ai esayer votre macrosmais ca bloque sur
nfile = Dir(pfile & "*.xls") 'ou xlsx ou xlsm

salutation

Regrouper plusieurs fichier Excel en un seul

jay33

XLDnaute Nouveau

Pièces jointes

kjin

XLDnaute Barbatruc

Pièces jointes

jay33

XLDnaute Nouveau

kjin

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

magicien74

XLDnaute Nouveau

Discussions similaires