Fusion de fichiers Excel

Bonjour,

Habitué du site mais pas du tout du forum Excel, outil pour lequel je suis assez novice et encore plus pour le VBA...voici mon souci.

Je vais récupérer dans un dossier "Sources" un nombre N de fichier Excel ayant tous le même format mais des noms différents.

Je voudrais par le biais d'une tâche planifiée, lancer un VBA qui concaténerai l'ensemble de mes N fichiers l'un à la suite dans un fichier nommé TOTAL.

Quels sont les pistes à suivre pour arriver à cela ?
Existe-t-il des scripts exemples ?

merci d'avance pour votre aide.

Bonjour,

J'ai modifié un script que j'ai trouvé.

Par contre j'aimerai ne pas récupérer la première ligne des fichiers que je concatène, comment faire ça avec le script ci-dessous ?

merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Compilation() Dim Temp As String Dim Ligne As Long Temp = Dir(ActiveWorkbook.Path & "\*.xls") Application.DisplayAlerts = False Do While Temp <> "" If Temp <> "Recap.xls" Then Workbooks.Open ActiveWorkbook.Path & "\" & Temp Workbooks(Temp).Sheets(1).Range("A1").CurrentRegion.Copy Workbooks("Recap.xls").Sheets(1).Activate Ligne = Sheets(1).Range("A65536").End(xlUp).Row + 1 Range("A" & CStr(Ligne)).Select ActiveSheet.Paste Workbooks(Temp).Close End If Temp = Dir Loop Range("A1").Select Application.DisplayAlerts = True End Sub

---

bonsoir weedmann,

Je suis débutant en VBA et je bricole comme je peux !

Pour ce genre de chose j'enregistre la macro en faisant des importations de données externes.

Entre chaque feuilles importées tu comptes la ligne ou importer la seconde feuille:

Code:

---

1 2	Dim lf As Long lf = Range("A65536").End(xlUp).Row + 1

---

Comme la première ligne reste sélectionnée après l'importation, tu peux l'effacer.

Code:

---

1 2	Rows(ActiveCell.Row).Select Selection.Delete

---

ainsi de suite...

Bonne soirée ou bonjour