Fusionner plusieurs tableaux qui ont exactement les memes colonnes

[Babouche]

Bonjour,

Surement un problème de néophyte , qui plus est travaillant sur MAC , mais je souhaite mettre les uns à la suite des autres des tableaux d'environ 6 000 lignes pour pouvoir travailler dessus ensuite . Comme les fichiers sont trop long je ne peux pas y arriver en faisant simplement du copier / Coller

Ces tableaux ont exactement le meme nombre de colonne , et chaque colonne comporte le meme type de données.
Col A pays
colonne B titre
col C monnaies
col D Taux de conversion
col E nombre d'article
etc etc

Merci de votre aide

Babouche

 

[flyonets44]

Re : Fusionner plusieurs tableaux qui ont exactement les memes colonnes

Bonsoir
voici un code à insérer dans ton classeur "recap"
attention :code non testé sur mac car je suis sur pc avec excel 2003.

Sub Compilerfichiers()
'compilation de datas tirées de plusieurs classeurs à inscrire dans une seule feuille
'les unes à la suite des autres.

Dim Temp As String, Group$
Dim Cible, Rng As Range
Dim Lrw As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
Group = ActiveWorkbook.Name
Temp = Dir(ActiveWorkbook.Path & "\*.xls")
Do While Temp <> ""
Lrw = ActiveSheet.Range("A65536").End(xlUp).Row + 1
Set Cible = Feuil1.Range("A" & CStr(Lrw))
If Temp <> Group Then
Workbooks.Open ActiveWorkbook.Path & "\" & Temp
Set Rng = Workbooks(Temp).Sheets(1).Range("A1").CurrentRegion
Lrw = Feuil1.Range("A65536").End(xlUp).Row + 1
Rng.Copy Cible
Workbooks(Temp).Close
End If
Temp = Dir
Set Rng = Nothing: Set Cible = Nothing
Exit Do
Loop
Application.Goto Reference:=Feuil1.Cells(2, 1), scroll:=False
Application.DisplayAlerts = True
Application.Calculation = xlCalculationAutomatic
End Sub
Cordialement
flyonets

 

[Babouche]

Re : Fusionner plusieurs tableaux qui ont exactement les memes colonnes

Merci beaucoup de la reponse

pour moi c'est un peu comme du chinois .. Je ne sais pas trop comment faire

mais je vais essayer de me debrouiller !