Fusion de tableaux.

[eniotacom]

Bonjour,
j'ai dans excel, plusieurs fichier ayant la meme architecture

Champ 1 - champ 2 - champ 3 - ... tous les même en tetes

les données sont en fait classées, à savoir, 1 fichier par fournisseur et par jour.

Pour faire un TCD il faudrait que je regroupe en 1 seul fichier les données de près de 600 fichiers... Le nombre de ligne n'excèdera pas les 65000

Merci de votre aide

 

[CBernardT]

Re : Fusion de tableaux.

Bonjour eniotacom,

1- Il est souhaitable d'enregistrer les 600 fichiers fournisseurs dans le même
répertoire que celui du fichier synthèse.

2- Réaliser une boucle sur l'ensemble des fichiers fournisseurs.

3- Ouvrir chaque fichier, transférer les valeurs nécessaires dans le fichier synthèse et refermer le fichier.

La syntaxe est du style :

Sub ouvrirFichiers()
Dim i As Integer
With Application.FileSearch
.LookIn = ThisWorkbook.Path
If .Execute > 1 Then
For i = 1 To .FoundFiles.Count
If .Filename <> ThisWorkbook.Name Then
Workbooks.Open .FoundFiles(i)
'................

' ...............
ActiveWorkbook.Close
End If
Next i
Else
MsgBox "Aucun fichier trouvé"
End If
End With
End Sub